Skip to content

Instantly share code, notes, and snippets.

@wizardofzos

wizardofzos/list.txt

Created June 21, 2020 09:48
Show Gist options
  • Save wizardofzos/75739e28727ea75713a0dec5d6d969ab to your computer and use it in GitHub Desktop.
Save wizardofzos/75739e28727ea75713a0dec5d6d969ab to your computer and use it in GitHub Desktop.
Download ZIP
compile/link output HWTHXPI1 from SYS1.SAMPLIB
Raw
list.txt
1 J E S 2 J O B L O G -- S Y S T E M S 0 W 1 -- N O
0
05.42.39 JOB04990 ---- SUNDAY, 21 JUN 2020 ----
05.42.39 JOB04990 IRR010I USERID IBMUSER IS ASSIGNED TO THIS JOB.
05.42.39 JOB04990 ICH70001I IBMUSER LAST ACCESS AT 05:41:26 ON SUNDAY, JUNE 2
05.42.39 JOB04990 $HASP373 ZDOMTR STARTED - INIT 2 - CLASS A - SYS
05.42.39 JOB04990 IEF403I ZDOMTR - STARTED - TIME=05.42.39
05.42.40 JOB04990 $HASP375 ZDOMTR ESTIMATED LINES EXCEEDED
05.42.41 JOB04990 - -----TIMINGS (MINS.)-
05.42.41 JOB04990 -STEPNAME PROCSTEP RC EXCP CONN TCB SRB
05.42.41 JOB04990 -PLI 04 10116 0 .02 .00
05.42.41 JOB04990 -LINKPLI 08 306 0 .00 .00
05.42.41 JOB04990 IEF404I ZDOMTR - ENDED - TIME=05.42.41
05.42.41 JOB04990 -ZDOMTR ENDED. NAME-MatterMost TOTAL TCB CPU TI
05.42.41 JOB04990 $HASP395 ZDOMTR ENDED - RC=0008
0------ JES2 JOB STATISTICS ------
- 21 JUN 2020 JOB EXECUTION DATE
- 36 CARDS READ
- 13,218 SYSOUT PRINT RECORDS
- 0 SYSOUT PUNCH RECORDS
- 1,164 SYSOUT SPOOL KBYTES
- 0.03 MINUTES EXECUTION TIME
1 //ZDOMTR JOB MTRMST,
// 'MatterMost ',
// MSGCLASS=X,
// MSGLEVEL=(1,1),
// CLASS=A,
// NOTIFY=&SYSUID
//*-- Compile the PL/1 Source into an object
IEFC653I SUBSTITUTION JCL - MTRMST,'MatterMost ',MSGCLASS=X,MSGL
2 //PLI EXEC PGM=IBMZPLI,
// REGION=0M,
// PARM='OPTIONS,LIST,LIMITS(EXTNAME(44)),RENT'
3 //STEPLIB DD DSN=IEL520.SIBMZCMP,DISP=SHR
4 // DD DSN=CEE.SCEERUN,DISP=SHR
5 //SYSLIB DD DSN=SYS1.MACLIB,DISP=SHR
//* ******** CHANGE OBJ HERE
6 //PLI.SYSLIN DD DSN=ZDO.MTTRMOST.OBJ(HWTHXPI1),DISP=SHR
//* *** CHANGE SOURCE HERE
7 //PLI.SYSIN DD DSN=ZDO.MTTRMOST.STUFF(HWTHXPI1),DISP=SHR
8 //PLI.SYSPRINT DD SYSOUT=*
9 //SYSUT1 DD SPACE=(1024,(200,50),,CONTIG,ROUND),UNIT=3390,
// DCB=BLKSIZE=1024
//*--
10 //LINKPLI EXEC PGM=IEWL,
// PARM='LIST,MAP,RENT',
// REGION=1024K
11 //SYSPRINT DD SYSOUT=*
12 //OBJLIB DD DSN=ZDO.MTTRMOST.OBJ,DISP=SHR
13 //SYSLIB DD DSN=CEE.SCEELKED,DISP=SHR
14 // DD DSN=SYS1.CSSLIB,DISP=SHR
15 //SYSLMOD DD DSN=ZDO.MTTRMOST.LOAD,DISP=SHR
16 //SYSUT1 DD UNIT=(SYSDA,SEP=(SYSLMOD,SCSIOBJ)),
// SPACE=(CYL,(10,1))
//* CHANGE IT HERE TOO!!!
17 //SYSLIN DD *
ICH70001I IBMUSER LAST ACCESS AT 05:41:26 ON SUNDAY, JUNE 21, 2020
IEFA111I ZDOMTR IS USING THE FOLLOWING JOB RELATED SETTINGS:
SWA=ABOVE,TIOT SIZE=32K,DSENQSHR=DISALLOW,GDGBIAS=JOB
IEF236I ALLOC. FOR ZDOMTR PLI
IEF237I 0A96 ALLOCATED TO STEPLIB
IEF237I 0A81 ALLOCATED TO
IEF237I 0A80 ALLOCATED TO SYSLIB
IGD103I SMS ALLOCATED TO DDNAME SYSLIN
IGD103I SMS ALLOCATED TO DDNAME SYSIN
IEF237I JES2 ALLOCATED TO SYSPRINT
IGD101I SMS ALLOCATED TO DDNAME (SYSUT1 )
DSN (SYS20173.T054239.RA000.ZDOMTR.R0101874 )
STORCLAS (SCBASE) MGMTCLAS ( ) DATACLAS ( )
VOL SER NOS= VIO
IEF237I JES2 ALLOCATED TO SYS00001
IEF285I IBMUSER.ZDOMTR.JOB04990.D0000104.? SYSOUT
IEF142I ZDOMTR PLI - STEP WAS EXECUTED - COND CODE 0004
IEF285I IEL520.SIBMZCMP KEPT
IEF285I VOL SER NOS= C3PRD1.
IEF285I CEE.SCEERUN KEPT
IEF285I VOL SER NOS= C3RES2.
IEF285I SYS1.MACLIB KEPT
IEF285I VOL SER NOS= C3RES1.
IGD104I ZDO.MTTRMOST.OBJ RETAINED, DDNAME=SYSLIN
IGD104I ZDO.MTTRMOST.STUFF RETAINED, DDNAME=SYSIN
IEF285I IBMUSER.ZDOMTR.JOB04990.D0000102.? SYSOUT
IGD105I SYS20173.T054239.RA000.ZDOMTR.R0101874 DELETED, DDNAME=SYSUT1
IEF373I STEP/PLI /START 2020173.0542
IEF032I STEP/PLI /STOP 2020173.0542
CPU: 0 HR 00 MIN 01.36 SEC SRB: 0 HR 00 MIN 00.04 SEC
VIRT: 96K SYS: 740K EXT: 78372K SYS: 12468K
ATB- REAL: 32K SLOTS: 0K
VIRT- ALLOC: 12M SHRD: 0M
IEF236I ALLOC. FOR ZDOMTR LINKPLI
IEF237I JES2 ALLOCATED TO SYSPRINT
IGD103I SMS ALLOCATED TO DDNAME OBJLIB
IEF237I 0A80 ALLOCATED TO SYSLIB
IEF237I 0A80 ALLOCATED TO
IGD103I SMS ALLOCATED TO DDNAME SYSLMOD
IGD101I SMS ALLOCATED TO DDNAME (SYSUT1 )
DSN (SYS20173.T054239.RA000.ZDOMTR.R0101875 )
STORCLAS (SCBASE) MGMTCLAS ( ) DATACLAS ( )
VOL SER NOS= VIO
IEF237I JES2 ALLOCATED TO SYSLIN
IEF142I ZDOMTR LINKPLI - STEP WAS EXECUTED - COND CODE 0008
IEF285I IBMUSER.ZDOMTR.JOB04990.D0000103.? SYSOUT
IGD104I ZDO.MTTRMOST.OBJ RETAINED, DDNAME=OBJLIB
IEF285I CEE.SCEELKED KEPT
IEF285I VOL SER NOS= C3RES1.
IEF285I SYS1.CSSLIB KEPT
IEF285I VOL SER NOS= C3RES1.
IGD104I ZDO.MTTRMOST.LOAD RETAINED, DDNAME=SYSLMOD
IGD105I SYS20173.T054239.RA000.ZDOMTR.R0101875 DELETED, DDNAME=SYSUT1
IEF285I IBMUSER.ZDOMTR.JOB04990.D0000101.? SYSIN
IEF373I STEP/LINKPLI /START 2020173.0542
IEF032I STEP/LINKPLI /STOP 2020173.0542
CPU: 0 HR 00 MIN 00.16 SEC SRB: 0 HR 00 MIN 00.02 SEC
VIRT: 92K SYS: 244K EXT: 2408K SYS: 10308K
ATB- REAL: 32K SLOTS: 0K
VIRT- ALLOC: 12M SHRD: 0M
IEF375I JOB/ZDOMTR /START 2020173.0542
IEF033I JOB/ZDOMTR /STOP 2020173.0542
CPU: 0 HR 00 MIN 01.52 SEC SRB: 0 HR 00 MIN 00.06 SEC
15655-PL5 IBM(R) Enterprise PL/I for z/OS V5.R2.M3 (Built:20180906)
- Options Specified
0 Install:
0 Command: OPTIONS,LIST,LIMITS(EXTNAME(44)),RENT
0 Line.File Process Statements
0 1.0 *PROCESS SYSTEM(MVS) PP(MACRO('CASE(ASIS)')) SOURCE;
2.0 *PROCESS DEFAULT( NODESCRIPTOR NOOVERLAP );
0 Install:
- Options Used
0 NOAGGREGATE
ARCH(9)
ASSERT(ENTRY)
NOATTRIBUTES
BACKREG(5)
BIFPREC(15)
BLANK('05'x)
BLKOFF
BRACKETS('ݨ')
CASE(UPPER)
CASERULES( KEYWORD( MIXED ) )
CEESTART(FIRST)
CHECK( NOCONFORMANCE NOSTORAGE )
CMPAT(V2)
CODEPAGE(01140)
NOCOMMON
NOCOMPILE(S)
NOCOPYRIGHT
CSECT
CSECTCUT(4)
CURRENCY('$')
NODBCS
NODBRMLIB
DD('SYSPRINT','SYSIN','SYSLIB','SYSPUNCH','SYSLIN','SYSADATA','SYSXMLSD'
DDSQL('')
DECIMAL( FOFLONASGN NOFOFLONMULT NOFORCEDSIGN NOTRUNCFLOAT )
NODECOMP
+ DEFAULT(IBM ASSIGNABLE NOINITFILL NONCONNECTED
NODESCRIPTOR DESCLOCATOR DUMMY(ALIGNED) ORDINAL(MIN) NOPADDING
BYADDR RETURNS(BYADDR) LINKAGE(OPTLINK) NORETCODE
NOINLINE REORDER NOOVERLAP NONRECURSIVE ALIGNED NULL370
BIN1ARG PSEUDODUMMY NULLSTRADDR NULLSTRPTR(NULL) EVENDEC
SHORT(HEXADEC) EBCDIC HEXADEC NATIVE NATIVEADDR E(HEXADEC))
DEPRECATE(
BUILTIN()
ENTRY()
INCLUDE()
VARIABLE()
STMT()
)
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 DEPRECATENEXT(
BUILTIN()
ENTRY()
INCLUDE()
VARIABLE()
STMT()
)
DISPLAY( WTO )
NODLLINIT
NOEXIT
EXPORTALL
EXTRN(FULL)
FILEREF
FLAG(W)
FLOAT( NODFP )
FLOATINMATH(ASIS)
NOGOFF
NOGONUMBER
NOGRAPHIC
HEADER(SOURCE)
NOIGNORE
INCAFTER(PROCESS(""))
NOINCDIR
INCLUDE
NOINITAUTO
NOINITBASED
NOINITCTL
NOINITSTATIC
NOINSOURCE
NOINTERRUPT
JSON( CASE(UPPER) )
LANGLVL(OS)
+ LIMITS( EXTNAME(44) FIXEDBIN(31,63) FIXEDDEC(15,31) NAME(100) STRING(32K
LINECOUNT(60)
NOLINEDIR
+ LIST
LISTVIEW(SOURCE)
LP(32)
NOMACRO
NOMAP
MARGINI(' ')
+ MARGINS(2,72)
MAXBRANCH(2000)
MAXGEN(100000)
MAXINIT(65536)
MAXMEM(1048576)
MAXMSG(W 250)
MAXNEST( BLOCK(17) DO(17) IF(17) )
MAXSTMT(4096,8192)
MAXTEMP(50000)
NOMDECK
NOMSGSUMMARY
NONAME
NAMES('@#$' '@#$')
NATLANG(ENU)
NONEST
NOT('^')
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 NONULLDATE
NUMBER
OBJECT
NOOFFSET
OFFSETSIZE(4)
NOONSNAP
OPTIMIZE(0)
+ OPTIONS
OR('|')
+ PP( MACRO )
NOPPCICS
NOPPINCLUDE
PPLIST(KEEP)
NOPPMACRO
NOPPSQL
NOPPTRACE
PRECTYPE(ANS)
PREFIX(CONVERSION FIXEDOVERFLOW INVALIDOP OVERFLOW
NOSIZE NOSTRINGRANGE NOSTRINGSIZE NOSUBSCRIPTRANGE
UNDERFLOW ZERODIVIDE)
NOPROCEED(S)
PROCESS(DELETE)
QUOTE('"')
REDUCE
+ RENT
RESEXP
RESPECT()
RTCHECK( NONULLPTR )
RULES(IBM BYNAME COMPLEX CONTROLLED NODECSIZE
ELSEIF EVENDEC GOTO GLOBAL GLOBALDO
NOLAXBIF LAXCONV NOLAXCTL NOLAXDCL NOLAXDEF
LAXENTRY LAXEXPORTS LAXFIELDS NOLAXIF LAXINOUT LAXINTERFACE LAXLIN
LAXMARGINS LAXNESTED LAXPACKAGE LAXPARMS LAXPUNC LAXQUAL
LAXRETURN NOLAXSCALE(LOOSE,ALL) LAXSEMI LAXSTG
LAXSTMT
NOLAXSTRZ NOMULTICLOSE MULTIENTRY MULTIEXIT MULTISEMI
PADDING PROCENDONLY RECURSIVE SELFASSIGN
UNREF UNREFBASED UNREFCTL UNREFDEFINED
UNREFENTRY UNREFFILE UNREFSTATIC YY )
NOSEMANTIC(S)
NOSERVICE
+ SOURCE
SPILL(512)
STATIC(SHORT)
NOSTDSYS
NOSTMT
NOSTORAGE
STRINGOFGRAPHIC(GRAPHIC)
NOSYNTAX(S)
SYSPARM('')
SYSTEM(MVS)
NOTEST
UNROLL(AUTO)
USAGE( HEX(SIZE) ROUND(IBM) SUBSTR(STRICT) UNSPEC(IBM) )
WIDECHAR(BIGENDIAN)
WINDOW(1950)
WRITABLE
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 XINFO( NODEF NOMSG NOSYM NOSYN NOXML )
XML( CASE(UPPER) XMLATTR(APOSTROPHE) )
NOXREF
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 Compiler Source
0 Line.File
0 3.0
4.0 HWTHXPI1: PACKAGE EXPORTS(*);
5.0
6.0 /* BEGIN %INCLUDE SYSLIB(HWTJIPLI) */
1.1 /**START OF SPECIFICATIONS*************************************
2.1 *
3.1 * Macro Name: HWTJIPLI
4.1 *
5.1 * Descriptive Name: PL/I Interface Declaration File for the
6.1 * JSON portion of the z/OS Client Web
7.1 * Enablement Toolkit.
8.1 *
9.1 * Acronym: none
10.1 *
11.1 *01* PROPRIETARY STATEMENT=
12.1 *
13.1 *
14.1 * LICENSED MATERIALS - PROPERTY OF IBM
15.1 * 5650-ZOS COPYRIGHT IBM CORP. 2015, 2019
16.1 *
17.1 * STATUS= HBB77A0,HBB77B0
18.1 *
19.1 * DSECT Name: n/a
20.1 *
21.1 * Component: HWT (SCHWT)
22.1 *
23.1 * External Classification: PI
24.1 * End of External Classification:
25.1 *
26.1 * Eye-Catcher: none
27.1 *
28.1 * Storage Attributes: n/a
29.1 *
30.1 * Subpool: n/a
31.1 * Key: n/a
32.1 * Residency: n/a
33.1 *
34.1 * Function:
35.1 * HWTJIPLI defines HWT constants and declares for programs
36.1 * written in the PL/I language which will invoke the HWT
37.1 * JSON services.
38.1 *
39.1 * Method of Access:
40.1 * %INCLUDE SYSLIB(HWTJIPLI)
41.1 *
42.1 * Created by: n/a
43.1 *
44.1 * Pointed to by: n/a
45.1 *
46.1 * Size: n/a
47.1 *
48.1 * Serialization: n/a
49.1 *
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 Line.File
0 50.1 *01* Change Activity:
51.1 *
52.1 * PN REASON RLSE DATE ORG COMMENTS
53.1 * ----------------------------------------------------------
54.1 * $L0= ME27717 HBB77A0 140617 PDLH: Web enablement Toolkit
55.1 * JSON Parser Support
56.1 * $P0= ME28555 HBB77A0 141219 PDLH: Removed
57.1 * HWTJ_JCREN_OBJECTHANDLE_
58.1 * $P1= ME28683 HBB77A0 150128 PDLH: Miscellaneous changes
59.1 * $P2= ME28799 HBB77A0 150209 PDLH: Miscellaneous changes
60.1 * $L1= ME28918 HBB77A0 150228 PDSCW: Support for HWTJGNUV
61.1 * service
62.1 * $01= OA48505 HBB77A0 150806 PDLH:: Updated a comment
63.1 * $L2= 209076 HBB77C0 180326 PDJRM: Support for HWTJDEL ser
64.1 **END OF SPECIFICATIONS***************************************
65.1 /**************************************************************
66.1 /*
67.1 /* ABEND Reason Codes
68.1 /*
69.1 /**************************************************************
70.1 DECLARE (
71.1 HWTJ_JCREN_PRIM_ADDR VALUE('00010000'XN),
72.1 (65536) The parameters pas
73.1 the caller are not in the pr
74.1 address space.
75.1 HWTJ_JCREN_BAD_PARM VALUE('00010001'XN),
76.1 (65537) Number of paramete
77.1 passed by the caller is inco
78.1
79.1 HWTJ_JGAEN_PRIM_ADDR VALUE('00020000'XN),
80.1 (131072) The parameters pass
81.1 the caller are not in the pr
82.1 address space.
83.1 HWTJ_JGAEN_BAD_PARM VALUE('00020001'XN),
84.1 (131073)Number of parameters
85.1 by the caller is incorrect.
86.1 HWTJ_JGBOV_PRIM_ADDR VALUE('00030000'XN),
87.1 (196608) The parameters pass
88.1 the caller are not in the pr
89.1 address space.
90.1 HWTJ_JGBOV_BAD_PARM VALUE('00030001'XN),
91.1 (196609) Number of parameter
92.1 passed by the caller is inco
93.1
94.1 HWTJ_JGJST_PRIM_ADDR VALUE('00040000'XN),
95.1 (262144) The parameters pass
96.1 the caller are not in the pr
97.1 address space.
98.1 HWTJ_JGJST_BAD_PARM VALUE('00040001'XN),
99.1 (262145) Number of parameter
100.1 passed by the caller is inco
101.1
102.1 HWTJ_JGNUE_PRIM_ADDR VALUE('00050000'XN),
103.1 (327680) The parameters pass
104.1 the caller are not in the pr
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 Line.File
0 105.1 address space.
106.1 HWTJ_JGNUE_BAD_PARM VALUE('00050001'XN),
107.1 (327681) Number of parameter
108.1 passed by the caller is inco
109.1
110.1 HWTJ_JGOEN_PRIM_ADDR VALUE('00060000'XN),
111.1 (393216) The parameters pass
112.1 the caller are not in the pr
113.1 address space.
114.1 HWTJ_JGOEN_BAD_PARM VALUE('00060001'XN),
115.1 (393217) Number of parameter
116.1 passed by the caller is inco
117.1
118.1 HWTJ_JGVAL_PRIM_ADDR VALUE('00070000'XN),
119.1 (458752) The parameters pas
120.1 the caller are not in the pr
121.1 address space.
122.1 HWTJ_JGVAL_BAD_PARM VALUE('00070001'XN),
123.1 (458753) Number of paramete
124.1 passed by the caller is inco
125.1
126.1 HWTJ_JINIT_PRIM_ADDR VALUE('00080000'XN),
127.1 (524288) The parameters pass
128.1 the caller are not in the pr
129.1 address space.
130.1 HWTJ_JINIT_BAD_PARM VALUE('00080001'XN),
131.1 (524289) Number of parameter
132.1 passed by the caller is inco
133.1
134.1 HWTJ_JPARS_PRIM_ADDR VALUE('00090000'XN),
135.1 (589824) The parameters pas
136.1 the caller are not in the pr
137.1 address space.
138.1 HWTJ_JPARS_BAD_PARM VALUE('00090001'XN),
139.1 (589825) Number of paramete
140.1 passed by the caller is inco
141.1
142.1 HWTJ_JSERI_PRIM_ADDR VALUE('000A0000'XN),
143.1 (655360) The parameters pas
144.1 the caller are not in the pr
145.1 address space.
146.1 HWTJ_JSERI_BAD_PARM VALUE('000A0001'XN),
147.1 (655361) Number of paramete
148.1 passed by the caller is inco
149.1
150.1 HWTJ_JSRCH_PRIM_ADDR VALUE('000B0000'XN),
151.1 (720896) The parameters pas
152.1 the caller are not in the pr
153.1 address space.
154.1 HWTJ_JSRCH_BAD_PARM VALUE('000B0001'XN),
155.1 (720897) Number of paramete
156.1 passed by the caller is inco
157.1
158.1 HWTJ_JTERM_PRIM_ADDR VALUE('000C0000'XN),
159.1 (786432) The parameters pas
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 Line.File
0 160.1 the caller are not in the pr
161.1 address space.
162.1 HWTJ_JTERM_BAD_PARM VALUE('000C0001'XN),
163.1 (786433) Number of paramete
164.1 passed by the caller is inco
165.1
166.1 HWTJ_JGNUV_PRIM_ADDR VALUE('000D0000'XN),
167.1 (851968) The parameters pas
168.1 the caller are not in the pr
169.1 address space.
170.1 HWTJ_JGNUV_BAD_PARM VALUE('000D0001'XN),
171.1 (851969) Number of paramete
172.1 passed by the caller is inco
173.1
174.1 HWTJ_JDEL_PRIM_ADDR VALUE('000E0000'XN),
175.1 (917504) The parameters pas
176.1 the caller are not in the pr
177.1 address space.
178.1 HWTJ_JDEL_BAD_PARM VALUE('000E0001'XN)
179.1 (917505) Number of paramete
180.1 passed by the caller is inco
181.1
182.1
183.1 ) FIXED BINARY(31);
184.1 /**************************************************************
185.1 /*
186.1 /* Return Codes
187.1 /*
188.1 /**************************************************************
189.1
190.1 DECLARE (
191.1 HWTJ_OK VALUE('00000000'XN),
192.1 (0) Successful
193.1 HWTJ_WARNING VALUE('00000004'XN),
194.1 (4) Warning. See service-
195.1 specific documentation
196.1 further explanation.
197.1 HWTJ_PARSERHANDLE_INV VALUE('00000101'XN),
198.1 (257) Invalid ParserHandle.
199.1 HWTJ_PARSERHANDLE_INUSE VALUE('00000102'XN),
200.1 (258) ParserHandle is being
201.1 by another caller.
202.1 HWTJ_INACCESSIBLE_PARM VALUE('00000103'XN),
203.1 (259) One of the parameters
204.1 by the caller is not
205.1 accessible.
206.1 HWTJ_HANDLE_INV VALUE('00000104'XN),
207.1 (260) Specified ObjectHandle
208.1 EntryValueHandle is
209.1 invalid.
210.1 HWTJ_HANDLE_TYPE_ERROR VALUE('00000105'XN),
211.1 (261) Specified ObjectHandle
212.1 EntryValueHandle is no
213.1 type the service expec
214.1 HWTJ_BUFFER_TOO_SMALL VALUE('00000106'XN),
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 Line.File
0 215.1 (262) Provided buffer is too
216.1 small.
217.1 HWTJ_INDEX_OUT_OF_BOUNDS VALUE('00000107'XN),
218.1 (263) Specified index value
219.1 larger than the number
220.1 object or array elemen
221.1 HWTJ_WORKAREA_TOO_SMALL VALUE('00000108'XN),
222.1 (264) The MaxWorkAreaSize sp
223.1 on the HWTJINIT servic
224.1 not large enough to pe
225.1 the request.
226.1 HWTJ_PARSE_ERROR VALUE('00000109'XN),
227.1 (265) The JSON string specif
228.1 the HWTJPARS or HWTJCR
229.1 service (EntryValueTyp
230.1 HWT_JSONTEXTVALUETYPE)
231.1 a syntax error.
232.1 HWTJ_ROOT_OBJECT_MISSING VALUE('0000010A'XN),
233.1 (266) There is no JSON objec
234.1 to perform the HWTJSER
235.1 HWTJSRCH request. A pa
236.1 instance can be suppli
237.1 existing JSON text thr
238.1 the HWTJPARS service,
239.1 new JSON object(s) thr
240.1 the HWTJCREN service.
241.1 HWTJ_CANNOT_OBTAIN_WORKAREA VALUE('0000010B'XN),
242.1 (267) The current workarea
243.1 specified by the HWTJI
244.1 not large enough to ha
245.1 the data passed in by
246.1 HWTJPARS or HWTJCREN
247.1 service.
248.1 HWTJ_JCREN_ENTRYNAMEADDR_INV VALUE('00000201'XN),
249.1 (513) Specified EntryNameAdd
250.1 less than or equal to
251.1 when ObjectHandle
252.1 represents an Object;
253.1 it is not zero when
254.1 ObjectHandle represent
255.1 an array.
256.1 HWTJ_JCREN_ENTRYNAMELEN_INV VALUE('00000202'XN),
257.1 (514) Specified EntryNameLen
258.1 less than or equal to
259.1 when ObjectHandle
260.1 represents an Object;
261.1 it is not zero when
262.1 ObjectHandle represent
263.1 an array.
264.1 HWTJ_JCREN_ENTRYVALUEADDR_INV VALUE('00000203'XN),
265.1 (515) Specified EntryValueAd
266.1 less than or equal to
267.1 when EntryValueType is
268.1 JsonTextValueType,
269.1 StringValueType or
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 Line.File
0 270.1 NumValueType; or it is
271.1 zero for other
272.1 EntryValueTypes.
273.1 HWTJ_JCREN_ENTRYVALUELEN_INV VALUE('00000204'XN),
274.1 (516) Specified EntryValueLe
275.1 less than or equal to
276.1 when EntryValueType is
277.1 StringValueType, NumVa
278.1 or JSONTextValueType;
279.1 is not zero for other
280.1 EntryValueTypes.
281.1 HWTJ_JCREN_ENTRYVALUETYPE_INV VALUE('00000205'XN),
282.1 (517) Specified EntryValueTy
283.1 not in the valid range
284.1 the EntryValueTypes.
285.1 HWTJ_JCREN_ENTRYNAME_INV VALUE('00000206'XN),
286.1 (518) The EntryName pointed
287.1 the EntryNameAddr has
288.1 syntax error.
289.1 HWTJ_JCREN_ENTRYVALUE_INV VALUE('00000207'XN),
290.1 (519) The EntryValue pointed
291.1 the EntryValueAddr has
292.1 syntax error.
293.1 HWTJ_JGOEN_BUFFERADDR_INV VALUE('00000301'XN),
294.1 (769) The EntryNameBufferAdd
295.1 parameter is less than
296.1 equal to zero.
297.1 HWTJ_JGOEN_BUFFERLEN_INV VALUE('00000302'XN),
298.1 (770) The EntryNameBufferLen
299.1 parameter is less than
300.1 equal to zero.
301.1 HWTJ_JPARS_JSONTEXTADDR_INV VALUE('00000401'XN),
302.1 (1025) Specified JSON string
303.1 is less than or equal
304.1 zero.
305.1 HWTJ_JPARS_JSONTEXTLEN_INV VALUE('00000402'XN),
306.1 (1026) Specified JSON text le
307.1 is less than or equal
308.1 zero.
309.1 HWTJ_JPARS_WORKAREA_ERROR VALUE('00000403'XN),
310.1 (1027) An error occurs when
311.1 workarea is being acce
312.1 HWTJ_JSERI_NEWJTXTBUFFADDR_INV VALUE('00000501'XN),
313.1 (1281) Specified New JSON Tex
314.1 Buffer address is less
315.1 or equal to zero.
316.1 HWTJ_JSERI_NEWJTXTBUFFLEN_INV VALUE('00000502'XN),
317.1 (1282) Specified New JSON Tex
318.1 Buffer Length is less
319.1 or equal to zero.
320.1 HWTJ_JSRCH_SEARCHTYPE_INV VALUE('00000601'XN),
321.1 (1537) Specified SearchType i
322.1 not in the range of va
323.1 SearchType constants.
324.1 HWTJ_JSRCH_SRCHSTRADDR_INV VALUE('00000602'XN),
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 Line.File
0 325.1 (1538) Specified SearchString
326.1 is less than or equal
327.1 zero.
328.1 HWTJ_JSRCH_SRCHSTRLEN_INV VALUE('00000603'XN),
329.1 (1539) Specified SearchString
330.1 is less than or equal
331.1 zero.
332.1 HWTJ_JSRCH_SRCHSTR_NOT_FOUND VALUE('00000604'XN),
333.1 (1540) The string pointed to
334.1 specified SearchString
335.1 is not found.
336.1 HWTJ_JSRCH_STARTINGHANDLE_INV VALUE('00000605'XN),
337.1 (1541) Specified StartingHand
338.1 not a value handle wit
339.1 the input object handl
340.1 the search request.
341.1 HWTJ_JTERM_CANNOT_FREE_WORKA VALUE('00000701'XN),
342.1 (1793) System service used to
343.1 release the workarea f
344.1 HWTJ_JTERM_FORCEOPTION_INV VALUE('00000702'XN),
345.1 (1794) Specified ForceOption
346.1 parameter is not HWTJ_
347.1 or HWTJ_NOFORCE.
348.1 HWTJ_JGNUV_VALBUFFADDR_INV VALUE('00000801'XN),
349.1 (2049) The ValueBufferAddr
350.1 parameter is less than
351.1 equal to zero.
352.1 HWTJ_JGNUV_VALBUFFLEN_INV VALUE('00000802'XN),
353.1 (2050) Specified ValueBufferL
354.1 is an invalid value.
355.1 HWTJ_JGNUV_NUM_OUT_OF_RANGE VALUE('00000803'XN),
356.1 (2051) The binary representat
357.1 the number cannot fit
358.1 buffer specified.
359.1 HWTJ_JDEL_ENTRY_NOT_FOUND VALUE('00000901'XN),
360.1 (2305) Specified EntryValueHa
361.1 does not exist in obje
362.1 represented by ObjectH
363.1
364.1 HWTJ_INTERRUPT_STATUS_INV VALUE('00000F01'XN),
365.1 (3841) Caller is disabled.
366.1 HWTJ_LOCKS_HELD VALUE('00000F02'XN),
367.1 (3842) Caller is holding one
368.1 more locks.
369.1 HWTJ_UNSUPPORTED_RELEASE VALUE('00000F03'XN),
370.1 (3843) The system level does
371.1 support the service.
372.1 HWTJ_UNEXPECTED_ERROR VALUE('00000FFF'XN)
373.1 (4095) The service routine
374.1 encountered an unexpec
375.1 error.
376.1 ) FIXED BINARY(31);
377.1
378.1
379.1 /**************************************************************
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 Line.File
0 380.1 /* ForceOption Constants for the HWTJTERM service
381.1 /**************************************************************
382.1 DECLARE (
383.1 HWTJ_NOFORCE VALUE(0),
384.1 HWTJ_FORCE VALUE(1)
385.1 ) FIXED BINARY(31);
386.1
387.1 /**************************************************************
388.1 /* BooleanValue Constants for the HWTJGBOV service
389.1 /**************************************************************
390.1 DECLARE (
391.1 HWTJ_TRUE VALUE(1),
392.1 HWTJ_FALSE VALUE(0)
393.1 ) FIXED BINARY(31);
394.1
395.1 /**************************************************************
396.1 /* ReasonCode returned in the DiagArea field
397.1 /**************************************************************
398.1 DECLARE (
399.1 PARSE_ERR_UNEXPECTED_TOKEN VALUE(100),
400.1 PARSE_ERR_INCOMPLETE_OBJECT VALUE(101),
401.1 PARSE_ERR_INCOMPLETE_ARRAY VALUE(102),
402.1 PARSE_ERR_MISSING_COMMA VALUE(103),
403.1 PARSE_ERR_MISSING_PAIR_NAME VALUE(104),
404.1 PARSE_ERR_INVALID_OBJECT_KEY VALUE(105),
405.1 PARSE_ERR_MISSING_COLON VALUE(106),
406.1 PARSE_ERR_INV_UNICODE_SEQUENCE VALUE(107),
407.1 PARSE_ERR_UNTERMINATED_STRING VALUE(108),
408.1 PARSE_ERR_INVALID_NUMBER VALUE(109),
409.1 PARSE_ERR_INVALID_TOKEN VALUE(110),
410.1 CREATE_ENTRY_BAD_RESULT_CUR VALUE(220),
411.1 CREATE_ENTRY_BAD_OBJECT_HANDLE VALUE(221),
412.1 CREATE_ENTRY_BAD_RESULT_AREA VALUE(222),
413.1 CREATE_ENTRY_BAD_RESULT_AREA2 VALUE(223),
414.1 CREATE_ENTRY_BAD_TARGET_OBJECT VALUE(224),
415.1 CREATE_ENTRY_BAD_VALUE_TYPE VALUE(225),
416.1 CREATE_ENTRY_BAD_STRING VALUE(226),
417.1 CREATE_ENTRY_BAD_NAME_STRING VALUE(227),
418.1 CREATE_ENTRY_BAD_VALUE_STRING VALUE(228),
419.1 CREATE_ENTRY_CNT_FLAG_NOT_SET VALUE(229),
420.1 CREATE_ENTRY_CNT_VAR_NOT_SET VALUE(230),
421.1 CREATE_ENTRY_PARSE_VALUE_INV VALUE(231),
422.1 CREATE_ENTRY_INVNAM_UNICODESEQ VALUE(232),
423.1 CREATE_ENTRY_INVVAL_UNICODESEQ VALUE(233),
424.1 CREATE_ENTRY_INV_UNICODESEQ VALUE(234),
425.1 GETNUMVAL_NUM_OUT_OF_RANGE VALUE(300)
426.1 ) FIXED BINARY(31);
427.1
428.1 /**************************************************************
429.1 /*
430.1 /* JSON Type Constants - Returned values for HWTJGJST service
431.1 /*
432.1 /**************************************************************
433.1 DECLARE (
434.1 HWTJ_OBJECT_TYPE VALUE(1),
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 Line.File
0 435.1 HWTJ_ARRAY_TYPE VALUE(2),
436.1 HWTJ_STRING_TYPE VALUE(3),
437.1 HWTJ_NUMBER_TYPE VALUE(4),
438.1 HWTJ_BOOLEAN_TYPE VALUE(5),
439.1 HWTJ_NULL_TYPE VALUE(6)
440.1 ) FIXED BINARY(32) UNSIGNED;
441.1
442.1 /**************************************************************
443.1 /*
444.1 /* EntryValueType Constants for HWTJCREN
445.1 /*
446.1 /**************************************************************
447.1 DECLARE (
448.1 HWTJ_OBJECTVALUETYPE VALUE(1),
449.1 HWTJ_ARRAYVALUETYPE VALUE(2),
450.1 HWTJ_STRINGVALUETYPE VALUE(3),
451.1 HWTJ_NUMVALUETYPE VALUE(4),
452.1 HWTJ_TRUEVALUETYPE VALUE(5),
453.1 HWTJ_FALSEVALUETYPE VALUE(6),
454.1 HWTJ_NULLVALUETYPE VALUE(7),
455.1 HWTJ_JSONTEXTVALUETYPE VALUE(8)
456.1 ) FIXED BINARY(31);
457.1
458.1 /**************************************************************
459.1 /*
460.1 /* ValueDescriptor Constants for HWTJGNUV
461.1 /*
462.1 /**************************************************************
463.1 DECLARE (
464.1 HWTJ_INTEGER_VALUE VALUE(1),
465.1 HWTJ_FLOAT_VALUE VALUE(2)
466.1 ) FIXED BINARY(32) UNSIGNED;
467.1
468.1 /**************************************************************
469.1 /*
470.1 /* SearchType Constants for HWTJSRCH
471.1 /*
472.1 /**************************************************************
473.1 DECLARE (
474.1 HWTJ_SEARCHTYPE_GLOBAL VALUE(1),
475.1 HWTJ_SEARCHTYPE_OBJECT VALUE(2)
476.1 ) FIXED BINARY(31);
477.1
478.1 /**************************************************************
479.1 /*
480.1 /* Mapping of PARAMETERS
481.1 /*
482.1 /**************************************************************
483.1 DEFINE ALIAS HWTJ_PARSERHANDLE_TYPE CHAR(12);
484.1 DEFINE ALIAS HWTJ_HANDLE_TYPE FIXED BINARY(31);
485.1 DEFINE ALIAS HWTJ_JTYPE_TYPE FIXED BINARY(32) UNSIGNED
486.1 DEFINE ALIAS HWTJ_VALDESCRIPTOR_TYPE FIXED BINARY(32) UNSIGNED
487.1 DEFINE ALIAS HWTJ_BOOLEANVALUE_TYPE BIT(8);
488.1 DEFINE ALIAS HWTJ_FORCEOPTION_TYPE FIXED BINARY(31);
489.1 DEFINE ALIAS HWTJ_ENTRYVALUETYPE_TYPE FIXED BINARY(31);
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 Line.File
0 490.1
491.1 DEFINE STRUCTURE 1 HWTJ_DIAGAREA_TYPE
492.1 ,3 ReasonCode FIXED BINARY(31)
493.1 ,3 ReasonDesc CHAR(128);
494.1
495.1 /**************************************************************
496.1 /*
497.1 /* Entry Points
498.1 /*
499.1 /**************************************************************
500.1 /* HWTJCREN - Create JSON Entry
501.1 */
502.1 DECLARE
503.1 HWTJCREN ENTRY(
504.1 FIXED BINARY(31) OUTONLY /* Returncode
505.1 ,TYPE HWTJ_PARSERHANDLE_TYPE INONLY /* ParserHandle
506.1 ,FIXED BINARY(31) INONLY /* ObjectHandle
507.1 ,PTR INONLY /* EntryNameAddr
508.1 ,FIXED BINARY(31) INONLY /* EntryNameLen
509.1 ,FIXED BINARY(31) INONLY /* EntryValueType
510.1 ,PTR INONLY /* EntryValueAddr
511.1 ,FIXED BINARY(31) INONLY /* EntryValueLen
512.1 ,FIXED BINARY(31) OUTONLY /* NewEntryValueHan
513.1 ,TYPE HWTJ_DIAGAREA_TYPE OUTONLY) /* DiagArea
514.1 EXTERNAL OPTIONS(ASM INTER);
515.1
516.1 /* HWTJGAEN - JSON Get Array Entry
517.1 */
518.1 DECLARE
519.1 HWTJGAEN ENTRY(
520.1 FIXED BINARY(31) OUTONLY /* Returncode
521.1 ,TYPE HWTJ_PARSERHANDLE_TYPE INONLY /* ParserHandle
522.1 ,FIXED BINARY(31) INONLY /* ObjectHandle
523.1 ,FIXED BINARY(31) INONLY /* ArrayEntryIndex
524.1 ,FIXED BINARY(31) OUTONLY /* EntryValueHandle
525.1 ,TYPE HWTJ_DIAGAREA_TYPE OUTONLY) /* DiagArea Structu
526.1 EXTERNAL OPTIONS(ASM INTER);
527.1
528.1 /* HWTJGBOV - JSON Get Boolean Value
529.1 */
530.1 DECLARE
531.1 HWTJGBOV ENTRY(
532.1 FIXED BINARY(31) OUTONLY /* Returncode
533.1 ,TYPE HWTJ_PARSERHANDLE_TYPE INONLY /* ParserHandle
534.1 ,FIXED BINARY(31) INONLY /* EntryValueHandle
535.1 ,BIT(8) ALIGNED OUTONLY /* BooleanValue
536.1 ,TYPE HWTJ_DIAGAREA_TYPE OUTONLY) /* DiagArea Structu
537.1 EXTERNAL OPTIONS(ASM INTER);
538.1
539.1 /* HWTJGJST - JSON Get JSON Type
540.1 */
541.1 DECLARE
542.1 HWTJGJST ENTRY(
543.1 FIXED BINARY(31) OUTONLY /* Returncode
544.1 ,TYPE HWTJ_PARSERHANDLE_TYPE INONLY /* ParserHandle
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 Line.File
0 545.1 ,FIXED BINARY(31) INONLY /* ObjorEntryValueH
546.1 ,TYPE HWTJ_JTYPE_TYPE OUTONLY /* JSONType
547.1 ,TYPE HWTJ_DIAGAREA_TYPE OUTONLY) /* DiagArea Structu
548.1 EXTERNAL OPTIONS(ASM INTER);
549.1
550.1 /* HWTJGNUE - JSON Number of Entries
551.1 */
552.1 DECLARE
553.1 HWTJGNUE ENTRY(
554.1 FIXED BINARY(31) OUTONLY /* Returncode
555.1 ,TYPE HWTJ_PARSERHANDLE_TYPE INONLY /* ParserHandle
556.1 ,FIXED BINARY(31) INONLY /* ObjectHandle
557.1 ,FIXED BINARY(31) OUTONLY /* NumOfEntries
558.1 ,TYPE HWTJ_DIAGAREA_TYPE OUTONLY) /* DiagArea Structu
559.1 EXTERNAL OPTIONS(ASM INTER);
560.1
561.1 /* HWTJGNUV - JSON Get Number Value
562.1 */
563.1 DECLARE
564.1 HWTJGNUV ENTRY(
565.1 FIXED BINARY(31) OUTONLY /* Returncode
566.1 ,CHAR(12) INONLY /* ParserHandle
567.1 ,FIXED BINARY(31) INONLY /* EntryValueHandle
568.1 ,PTR INONLY /* ValueBufferAddr
569.1 ,FIXED BINARY(31) INONLY /* ValueBufferLen
570.1 ,TYPE HWTJ_VALDESCRIPTOR_TYPE OUTONLY /* ValueDescriptor
571.1 ,TYPE HWTJ_DIAGAREA_TYPE OUTONLY) /* DiagArea Structu
572.1 EXTERNAL OPTIONS(ASM INTER);
573.1
574.1 /* HWTJGOEN - JSON Get Object Entry
575.1 */
576.1 DECLARE
577.1 HWTJGOEN ENTRY(
578.1 FIXED BINARY(31) OUTONLY /* Returncode
579.1 ,TYPE HWTJ_PARSERHANDLE_TYPE INONLY /* ParserHandle
580.1 ,FIXED BINARY(31) INONLY /* ObjectHandle
581.1 ,FIXED BINARY(31) INONLY /* ObjectEntryIndex
582.1 ,PTR INONLY /* EntryNameBufferA
583.1 ,FIXED BINARY(31) INONLY /* EntryNameBufferL
584.1 ,FIXED BINARY(31) OUTONLY /* EntryValueHandle
585.1 ,FIXED BINARY(31) OUTONLY /* ActualNameLenRet
586.1 ,TYPE HWTJ_DIAGAREA_TYPE OUTONLY) /* DiagArea Structu
587.1 EXTERNAL OPTIONS(ASM INTER);
588.1
589.1 /* HWTJGVAL - JSON Get Value
590.1 */
591.1 DECLARE
592.1 HWTJGVAL ENTRY(
593.1 FIXED BINARY(31) OUTONLY /* Returncode
594.1 ,TYPE HWTJ_PARSERHANDLE_TYPE INONLY /* ParserHandle
595.1 ,FIXED BINARY(31) INONLY /* EntryValueHandle
596.1 ,PTR OUTONLY /* ValueLocationAdd
597.1 ,FIXED BINARY(31) OUTONLY /* ValueLen
598.1 ,TYPE HWTJ_DIAGAREA_TYPE OUTONLY) /* DiagArea Structu
599.1 EXTERNAL OPTIONS(ASM INTER);
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 Line.File
0 600.1
601.1 /* HWTJINIT - JSON Initialization
602.1 */
603.1 DECLARE
604.1 HWTJINIT ENTRY(
605.1 FIXED BINARY(31) OUTONLY /* Returncode
606.1 ,FIXED BINARY(31) INONLY /* MaxParserWorkAre
607.1 ,TYPE HWTJ_PARSERHANDLE_TYPE OUTONLY /* ParserHandle
608.1 ,TYPE HWTJ_DIAGAREA_TYPE OUTONLY) /* DiagArea Structu
609.1 EXTERNAL OPTIONS(ASM INTER);
610.1
611.1 /* HWTJPARS - JPARS function
612.1 */
613.1 DECLARE
614.1 HWTJPARS ENTRY(
615.1 FIXED BINARY(31) OUTONLY /* Returncode
616.1 ,TYPE HWTJ_PARSERHANDLE_TYPE INONLY /* ParserHandle
617.1 ,PTR INONLY /* JsonTextAddr
618.1 ,FIXED BINARY(31) INONLY /* JsonTextLen
619.1 ,TYPE HWTJ_DIAGAREA_TYPE OUTONLY) /* DiagArea Structu
620.1 EXTERNAL OPTIONS(ASM INTER);
621.1
622.1 /* HWTJSERI - Build JSON Text (Serialize)
623.1 */
624.1 DECLARE
625.1 HWTJSERI ENTRY(
626.1 FIXED BINARY(31) OUTONLY /* Returncode
627.1 ,TYPE HWTJ_PARSERHANDLE_TYPE INONLY /* ParserHandle
628.1 ,PTR INONLY /* NewJSONTextBuffe
629.1 ,FIXED BINARY(31) INONLY /* NewJSONTextBuffe
630.1 ,FIXED BINARY(31) OUTONLY /* ActualJSONTextLe
631.1 ,TYPE HWTJ_DIAGAREA_TYPE OUTONLY) /* DiagArea
632.1 EXTERNAL OPTIONS(ASM INTER);
633.1
634.1 /* HWTJSRCH - JSON Search
635.1 */
636.1 DECLARE
637.1 HWTJSRCH ENTRY(
638.1 FIXED BINARY(31) OUTONLY /* Returncode
639.1 ,TYPE HWTJ_PARSERHANDLE_TYPE INONLY /* ParserHandle
640.1 ,FIXED BINARY(31) INONLY /* SearchType
641.1 ,PTR INONLY /* SearchStringAddr
642.1 ,FIXED BINARY(31) INONLY /* SearchStringLen
643.1 ,FIXED BINARY(31) INONLY /* ObjectHandle
644.1 ,FIXED BINARY(31) INONLY /* StartingHandle
645.1 ,FIXED BINARY(31) OUTONLY /* SearchResultHand
646.1 ,TYPE HWTJ_DIAGAREA_TYPE OUTONLY) /* DiagArea Structu
647.1 EXTERNAL OPTIONS(ASM INTER);
648.1
649.1 /* HWTJTERM - JSON Termination
650.1 */
651.1 DECLARE
652.1 HWTJTERM ENTRY(
653.1 FIXED BINARY(31) OUTONLY /* Returncode
654.1 ,TYPE HWTJ_PARSERHANDLE_TYPE INONLY /* ParserHandle
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 Line.File
0 655.1 ,FIXED BINARY(31) INONLY /* ForceOption
656.1 ,TYPE HWTJ_DIAGAREA_TYPE OUTONLY) /* DiagArea Structu
657.1 EXTERNAL OPTIONS(ASM INTER);
658.1
659.1 /* HWTJDEL - JSON Delete
660.1 */
661.1 DECLARE
662.1 HWTJDEL ENTRY(
663.1 FIXED BINARY(31) OUTONLY /* Returncode
664.1 ,TYPE HWTJ_PARSERHANDLE_TYPE INONLY /* ParserHandle
665.1 ,FIXED BINARY(31) INONLY /* ObjectHandle
666.1 ,FIXED BINARY(31) INONLY /* EntryValueHandle
667.1 ,TYPE HWTJ_DIAGAREA_TYPE OUTONLY) /* DiagArea
668.1 EXTERNAL OPTIONS(ASM INTER);
669.1
6.0 /* END %INCLUDE SYSLIB(HWTJIPLI) */
6.0 /* JSON Interface Declaration File */
7.0 /* BEGIN %INCLUDE SYSLIB(HWTHIPLI) */
1.2 /**START OF SPECIFICATIONS*************************************
2.2 *
3.2 * Macro Name: HWTHIPLI
4.2 *
5.2 * Descriptive Name: PL/I Interface Declaration File for the
6.2 * HTTP Enabler portion of the z/OS Client W
7.2 * Enablement Toolkit.
8.2 *
9.2 * Acronym: none
10.2 *
11.2 *01* PROPRIETARY STATEMENT=
12.2 *
13.2 *
14.2 * LICENSED MATERIALS - PROPERTY OF IBM
15.2 * 5650-ZOS COPYRIGHT IBM CORP. 2015
16.2 *
17.2 * STATUS= HBB77A0,HBB77B0 @L1C
18.2 *
19.2 * DSECT Name: n/a
20.2 *
21.2 * Component: HWT (SCHWT)
22.2 *
23.2 * External Classification: PI
24.2 * End of External Classification:
25.2 *
26.2 * Eye-Catcher: none
27.2 *
28.2 * Storage Attributes: n/a
29.2 *
30.2 * Subpool: n/a
31.2 * Key: n/a
32.2 * Residency: n/a
33.2 *
34.2 * Function:
35.2 * HWTHIPLI defines HWT constants and declares for programs
36.2 * written in the PL/I language which will invoke the HWT
37.2 * HTTP/HTTPS services.
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 Line.File
0 38.2 *
39.2 * Method of Access:
40.2 * %INCLUDE SYSLIB(HWTHIPLI)
41.2 *
42.2 * Created by: n/a
43.2 *
44.2 * Pointed to by: n/a
45.2 *
46.2 * Size: n/a
47.2 *
48.2 * Serialization: n/a
49.2 *
50.2 * Change Activity:
51.2 *
52.2 * PN REASON RLSE DATE ORG COMMENTS
53.2 * ----------------------------------------------------------
54.2 * $01= OA48505 HBB77A0 150806 PDSCW: z/OS Client Web Enablem
55.2 * Toolkit Support (HTTP enablement)
56.2 * $02= OA49002 HBB77A0 151130 PDLH:- Add service constants
57.2 * - Add Verbose DD option
58.2 * - Miscellaneous changes
59.2 * $03= OA51673 HBB7790 161201 PDJK:- Add HEAD method constan
60.2 * $L1= 152124 HBB77B0 170112 PDJK:- Streaming support
61.2 * $D1= 158189 HBB77B0 170217 PDJK: - Handle GET underflows
62.2 * $04= OA52791 HBB77B0 170622 PDJK: - TRSQ V2R3 APAR
63.2 * AT-TLS toleration
64.2 * Roll up of OA50957
65.2 * $05= OA53546 HBB7790 170925 PDLH: - Support for user-defin
66.2 * cipher specs
67.2 * $06= OA54207 HBB7790 171103 PDLH: - Add missing ExitFlag
68.2 * constants
69.2 **END OF SPECIFICATIONS***************************************
70.2
71.2 /* ------------------------------------------------------------
72.2 /*
73.2 /* ABEND Reason Codes
74.2 /*
75.2 /* ------------------------------------------------------------
76.2 DECLARE (
77.2 HWTH_HCONN_PRIM_ADDR VALUE('10010000'XN),
78.2 (268500992) The parameters passe
79.2 the caller are not in the primar
80.2 address space.
81.2 HWTH_HCONN_BAD_PARM VALUE('10010001'XN),
82.2 (268500993) Number of parameters
83.2 passed by the caller is incorrec
84.2 HWTH_HDISC_PRIM_ADDR VALUE('10020000'XN),
85.2 (268566528) The parameters passe
86.2 the caller are not in the primar
87.2 address space.
88.2 HWTH_HDISC_BAD_PARM VALUE('10020001'XN),
89.2 (268566529) Number of parameters
90.2 passed by the caller is incorrec
91.2 HWTH_HINIT_PRIM_ADDR VALUE('10030000'XN),
92.2 (268632064) The parameters passe
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 Line.File
0 93.2 the caller are not in the primar
94.2 address space.
95.2 HWTH_HINIT_BAD_PARM VALUE('10030001'XN),
96.2 (268632065) Number of parameters
97.2 passed by the caller is incorrec
98.2 HWTH_HRQST_PRIM_ADDR VALUE('10040000'XN),
99.2 (268697600) The parameters passe
100.2 the caller are not in the primar
101.2 address space.
102.2 HWTH_HRQST_BAD_PARM VALUE('10040001'XN),
103.2 (268697601) Number of parameters
104.2 passed by the caller is incorrec
105.2 HWTH_HRSET_PRIM_ADDR VALUE('10050000'XN),
106.2 (268763136) The parameters passe
107.2 the caller are not in the primar
108.2 address space.
109.2 HWTH_HRSET_BAD_PARM VALUE('10050001'XN),
110.2 (268763137) Number of parameters
111.2 passed by the caller is incorrec
112.2 HWTH_HSET_PRIM_ADDR VALUE('10060000'XN),
113.2 (268828672) The parameters passe
114.2 the caller are not in the primar
115.2 address space.
116.2 HWTH_HSET_BAD_PARM VALUE('10060001'XN),
117.2 (268828673) Number of parameters
118.2 passed by the caller is incorrec
119.2 HWTH_HSLST_PRIM_ADDR VALUE('10070000'XN),
120.2 (268894208) The parameters passe
121.2 the caller are not in the primar
122.2 address space.
123.2 HWTH_HSLST_BAD_PARM VALUE('10070001'XN),
124.2 (268894209) Number of parameters
125.2 passed by the caller is incorrec
126.2 HWTH_HTERM_PRIM_ADDR VALUE('10080000'XN),
127.2 (268959744) The parameters passe
128.2 the caller are not in the primar
129.2 address space.
130.2 HWTH_HTERM_BAD_PARM VALUE('10080001'XN)
131.2 (268959745) Number of parameters
132.2 passed by the caller is incorrec
133.2 ) FIXED BINARY(31);
134.2
135.2 /* ------------------------------------------------------------
136.2 /*
137.2 /* Return Codes
138.2 /*
139.2 /* ------------------------------------------------------------
140.2 DECLARE (
141.2 HWTH_OK VALUE('00000000'XN),
142.2 (0) Operation successful
143.2 HWTH_WARNING VALUE('00000004'XN),
144.2 (4) Warning. See service-sp
145.2 documentation for further
146.2 explanation.
147.2 HWTH_HANDLE_INV VALUE('00000101'XN),
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 Line.File
0 148.2 (257) Invalid handle.
149.2 HWTH_HANDLE_INUSE VALUE('00000102'XN),
150.2 (258) Handle is being used by
151.2 another caller.
152.2 HWTH_HANDLETYPE_INV VALUE('00000103'XN),
153.2 (259) For services with handle
154.2 parameter, handleType is not a
155.2 value. For other services, ha
156.2 does not match type of handle
157.2 expected.
158.2 HWTH_INACCESSIBLE_PARM VALUE('00000104'XN),
159.2 (260) One of the parameters pa
160.2 by the caller is not accessibl
161.2 HWTH_CANNOT_OBTAIN_WORKAREA VALUE('00000105'XN),
162.2 (261) HWTHINIT cannot obtain t
163.2 workarea required by the HTTP
164.2 enabler.
165.2 HWTH_COMMUNICATION_ERROR VALUE('00000106'XN),
166.2 (262) A failure in communicati
167.2 or in the attempt of communica
168.2 with a web server or the serve
169.2 application occurred.
170.2 HWTH_CANNOT_INCREASE_WORKAREA VALUE('00000107'XN),
171.2 (263) Unable to increase the
172.2 HTTP enabler toolkit workarea.
173.2 HWTH_CANNOT_FREE_WORKAREA VALUE('00000108'XN),
174.2 (264) Unable to free workarea.
175.2 HWTH_CONNECTION_NOT_ACTIVE VALUE('00000109'XN),
176.2 (265) The specified request re
177.2 an active connection to the se
178.2 HWTH_HSET_OPTIONVALADDR_INV VALUE('00000201'XN),
179.2 (513) The optionValueAddr was
180.2 but the optionValueLen was non
181.2 HWTH_HSET_OPTIONVALLEN_INV VALUE('00000202'XN),
182.2 (514) The optionValueLen was z
183.2 but the optionValueAddr was no
184.2 zero, or the optionValueLen is
185.2 valid for the option specified
186.2 HWTH_HSET_OPTION_INV VALUE('00000203'XN),
187.2 (515) Bad option specified or
188.2 did not match the handle speci
189.2 HWTH_HSET_OPTIONVALUE_INV VALUE('00000204'XN),
190.2 (516) Bad optionValue specifie
191.2 HWTH_HSET_CONN_ALREADY_ACTIVE VALUE('00000205'XN),
192.2 (517) The specified connect op
193.2 is not allowed to be set when
194.2 the connection associated with
195.2 connect handle has already bee
196.2 established.
197.2 HWTH_HSLST_SLIST_INV VALUE('00000301'XN),
198.2 (769) Bad sList parameter. For
199.2 HWTH_SLST_NEW, must be zero.
200.2 HWTH_SLST_APPEND or HWTH_SLST_
201.2 must be a valid sList.
202.2 HWTH_HSLST_FUNCTION_INV VALUE('00000302'XN),
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 Line.File
0 203.2 (770) Bad HWTHSLST function.
204.2 HWTH_HSLST_STRINGLEN_INV VALUE('00000303'XN),
205.2 (771) Invalid stringLen. For
206.2 HWTH_SLST_NEW or HWTH_SLST_APP
207.2 stringLen must be non-zero. F
208.2 HWTH_SLST_FREE, must be zero.
209.2 HWTH_HSLST_STRINGADDR_INV VALUE('00000304'XN),
210.2 (772) Invalid stringAddr. For
211.2 HWTH_SLST_NEW or HWTH_SLST_APP
212.2 stringAddr must be non-zero.
213.2 HWTH_SLST_FREE, must be zero.
214.2 HWTH_HTERM_FORCEOPTION_INV VALUE('00000401'XN),
215.2 (1025) Specified ForceOption
216.2 parameter is not HWTH_FORCE or
217.2 HWTH_NOFORCE.
218.2 HWTH_HCONN_CONNECT_INV VALUE('00000501'XN),
219.2 (1281) Invalid combination of
220.2 values specified on the connec
221.2 HWTH_HRQST_REQUEST_INV VALUE('00000601'XN),
222.2 (1537) Invalid combination of
223.2 values specified on the reques
224.2 HWTH_INTERRUPT_STATUS_INV VALUE('00000F01'XN),
225.2 (3841) Caller is disabled
226.2 HWTH_LOCKS_HELD VALUE('00000F02'XN),
227.2 (3842) Caller is holding one o
228.2 more locks
229.2 HWTH_MODE_INV VALUE('00000F03'XN),
230.2 (3843) Caller is not in task m
231.2 is running in cross-memory mod
232.2 HWTH_AUTHLEVEL_INV VALUE('00000F04'XN),
233.2 (3844) Caller is running in ke
234.2 HWTH_ENVIRONMENTAL_ERROR VALUE('00000F05'XN),
235.2 (3845) The proper z/OS UNIX
236.2 environment is not available,
237.2 environment failed to be creat
238.2 or other environmental error w
239.2 found.
240.2 HWTH_UNSUPPORTED_RELEASE VALUE('00000F06'XN),
241.2 (3846) The system level does n
242.2 support the service
243.2 HWTH_UNEXPECTED_ERROR VALUE('00000FFF'XN)
244.2 (4095) The service routine
245.2 encountered an unexpected erro
246.2 ) FIXED BINARY(31);
247.2
248.2 /* ------------------------------------------------------------
249.2 /*
250.2 /* Diag Service Identifiers
251.2 /*
252.2 /* 2-byte constants comprising the first half of the HWTH_Servi
253.2 /* field in the DiagArea (HWTH_ServID) to aid applications in
254.2 /* determining the service that caused the HWTH_WARNING,
255.2 /* HWTH_COMMUNICATION_ERROR or HWTH_UNEXPECTED_ERROR.
256.2 /* @
257.2 /* ------------------------------------------------------------
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 Line.File
0 258.2 DEFINE ALIAS HWTH_SERVID_TYPE FIXED BINARY(16) UNSIGNED; /*
259.2
260.2 DECLARE HWTH_SERVICE_SEND_REQUEST VALUE('0002'XN)
261.2 TYPE HWTH_SERVID_TYPE;
262.2 /* (2) processing send reque
263.2
264.2 DECLARE HWTH_SERVICE_SOCKET_CLOSE VALUE('0003'XN)
265.2 TYPE HWTH_SERVID_TYPE;
266.2 /* (3) close
267.2
268.2 DECLARE HWTH_SERVICE_SECURE_ENCODE64 VALUE('0004'XN)
269.2 TYPE HWTH_SERVID_TYPE;
270.2 /* (4) gsk_encode_base64
271.2
272.2 DECLARE HWTH_SERVICE_SETSTACK_AFFINITY VALUE('0005'XN)
273.2 TYPE HWTH_SERVID_TYPE;
274.2 /* (5) setibmopt() */
275.2
276.2 DECLARE HWTH_SERVICE_SOCKET_BIND VALUE('0006'XN)
277.2 TYPE HWTH_SERVID_TYPE;
278.2 /* (6) bind
279.2
280.2 DECLARE HWTH_SERVICE_SET_SOCK_OPT VALUE('0007'XN)
281.2 TYPE HWTH_SERVID_TYPE;
282.2 /* (7) setsockopt
283.2
284.2 DECLARE HWTH_SERVICE_SOCKET_SEND VALUE('0008'XN)
285.2 TYPE HWTH_SERVID_TYPE;
286.2 /* (8) send
287.2
288.2 DECLARE HWTH_SERVICE_SOCKET_RECEIVE VALUE('0009'XN)
289.2 TYPE HWTH_SERVID_TYPE;
290.2 /* (9) recv
291.2
292.2 DECLARE HWTH_SERVICE_SOCKET_CONNECT VALUE('000B'XN)
293.2 TYPE HWTH_SERVID_TYPE;
294.2 /* (11) connect
295.2
296.2 DECLARE HWTH_SERVICE_ICONV_OPEN VALUE('000C'XN)
297.2 TYPE HWTH_SERVID_TYPE;
298.2 /* (12) iconv_open
299.2
300.2 DECLARE HWTH_SERVICE_ICONV VALUE('000D'XN)
301.2 TYPE HWTH_SERVID_TYPE;
302.2 /* (13) iconv
303.2
304.2 DECLARE HWTH_SERVICE_SEC_SOCKET_SEND VALUE('000E'XN)
305.2 TYPE HWTH_SERVID_TYPE;
306.2 /* (14) gsk_secure_socket_write
307.2 DECLARE HWTH_SERVICE_SEC_SOCKET_READ VALUE('000F'XN)
308.2 TYPE HWTH_SERVID_TYPE;
309.2 /* (15) gsk_secure_socket_read(
310.2
311.2 DECLARE HWTH_SERVICE_SEC_ENVIRON_OPEN VALUE('0010'XN)
312.2 TYPE HWTH_SERVID_TYPE;
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 Line.File
0 313.2 /* (16) gsk_environment_open()
314.2 DECLARE HWTH_SERVICE_SEC_ATTR_SET_ENUM VALUE('0011'XN)
315.2 TYPE HWTH_SERVID_TYPE;
316.2 /* (17) gsk_attribute_set_enum(
317.2
318.2 DECLARE HWTH_SERVICE_SEC_ATTR_SET_BUFF VALUE('0012'XN)
319.2 TYPE HWTH_SERVID_TYPE;
320.2 /* (18) gsk_attribute_set_buffe
321.2
322.2 DECLARE HWTH_SERVICE_SEC_ENVIRON_INIT VALUE('0013'XN)
323.2 TYPE HWTH_SERVID_TYPE;
324.2 /* (19) gsk_environment_init()
325.2
326.2 DECLARE HWTH_SERVICE_SEC_SOCKET_OPEN VALUE('0014'XN)
327.2 TYPE HWTH_SERVID_TYPE;
328.2 /* (20) gsk_secure_socket_open(
329.2
330.2 DECLARE HWTH_SERVICE_SEC_SET_NUM_VALUE VALUE('0015'XN)
331.2 TYPE HWTH_SERVID_TYPE;
332.2 /* (21) gsk_attribute_set_numeric_valu
333.2
334.2 DECLARE HWTH_SERVICE_SEC_SOCKET_INIT VALUE('0016'XN)
335.2 TYPE HWTH_SERVID_TYPE;
336.2 /* (22) gsk_secure_socket_init
337.2
338.2 DECLARE HWTH_SERVICE_SEC_SOCKETSHUTDWN VALUE('0017'XN)
339.2 TYPE HWTH_SERVID_TYPE;
340.2 /* (23) gsk_secure_socket_shutdo
341.2
342.2 DECLARE HWTH_SERVICE_SEC_SOCKET_CLOSE VALUE('0018'XN)
343.2 TYPE HWTH_SERVID_TYPE;
344.2 /* (24) gsk_secure_socket_clos
345.2
346.2 DECLARE HWTH_SERVICE_SEC_ENVIRON_CLOSE VALUE('0019'XN)
347.2 TYPE HWTH_SERVID_TYPE;
348.2 /* (25) gsk_environment_close(
349.2
350.2 DECLARE HWTH_SERVICE_RECEIVE_RESPONSE VALUE('001A'XN)
351.2 TYPE HWTH_SERVID_TYPE;
352.2 /* (26) receive response proces
353.2
354.2 DECLARE HWTH_SERVICE_GETADDRINFO VALUE('001C'XN)
355.2 TYPE HWTH_SERVID_TYPE;
356.2 /* (28) getaddrinfo()
357.2
358.2 DECLARE HWTH_SERVICE_HDR_EXIT_ABORT VALUE('001D'XN)
359.2 TYPE HWTH_SERVID_TYPE;
360.2 /* (29) headerCallback()
361.2
362.2 DECLARE HWTH_SERVICE_SOCKET_SHUTDOWN VALUE('001E'XN)
363.2 TYPE HWTH_SERVID_TYPE;
364.2 /* (30) shutdown()
365.2
366.2 DECLARE HWTH_SERVICE_MALLOC VALUE('001F'XN)
367.2 TYPE HWTH_SERVID_TYPE;
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 Line.File
0 368.2 /* (31) malloc()
369.2
370.2 DECLARE HWTH_SERVICE_REALLOC VALUE('0020'XN)
371.2 TYPE HWTH_SERVID_TYPE;
372.2 /* (32) realloc()
373.2
374.2 DECLARE HWTH_SERVICE_ESTABLISH_TUNNEL VALUE('0021'XN)
375.2 TYPE HWTH_SERVID_TYPE;
376.2 /* (33) processing response
377.2
378.2 DECLARE HWTH_SERVICE_INIT_TRACE VALUE('0022'XN)
379.2 TYPE HWTH_SERVID_TYPE;
380.2 /* (34) initTrace()
381.2
382.2 DECLARE HWTH_SERVICE_WRAP_TRACE VALUE('0023'XN)
383.2 TYPE HWTH_SERVID_TYPE;
384.2 /* (35) wrapTraceFile()
385.2
386.2 DECLARE HWTH_SERVICE_SETUP_REDIRECT VALUE('0024'XN)
387.2 TYPE HWTH_SERVID_TYPE;
388.2 /* (36) setupRedirect()
389.2
390.2 DECLARE HWTH_SERVICE_INLINE_SEND VALUE('0025'XN)
391.2 TYPE HWTH_SERVID_TYPE;
392.2 /* (37) sendInlineRequest()
393.2
394.2 DECLARE HWTH_SERVICE_STREAM_SEND VALUE('0026'XN)
395.2 TYPE HWTH_SERVID_TYPE;
396.2 /* (38) sendStreamedRequest()
397.2
398.2 DECLARE HWTH_SERVICE_DO_SENDSTREAMED VALUE('0027'XN)
399.2 TYPE HWTH_SERVID_TYPE;
400.2 /* (39) doSendStreamed()
401.2
402.2 DECLARE HWTH_SERVICE_DO_SENDMULTICHUNK VALUE('0028'XN)
403.2 TYPE HWTH_SERVID_TYPE;
404.2 /* (40) doSendMultiChunked()
405.2
406.2 DECLARE HWTH_SERVICE_VALIDATE_SENDLIST VALUE('0029'XN)
407.2 TYPE HWTH_SERVID_TYPE;
408.2 /* (41) validateStreamingSendList()
409.2
410.2 DECLARE HWTH_SERVICE_STREAM_RECV VALUE('002A'XN)
411.2 TYPE HWTH_SERVID_TYPE;
412.2 /* (42) receiveStreamedResponse()
413.2
414.2 DECLARE HWTH_SERVICE_GET_CHUNKSIZE VALUE('002B'XN)
415.2 TYPE HWTH_SERVID_TYPE;
416.2 /* (43) getChunkDataSize()
417.2
418.2 DECLARE HWTH_SERVICE_GET_NEXT_RSPDATA_STRM VALUE('002C'XN)
419.2 TYPE HWTH_SERVID_TYPE;
420.2 /* (44) getNextResponseDataStreamed()
421.2
422.2 DECLARE HWTH_SERVICE_BUILD_RTNLIST_CHNKD VALUE('002D'XN)
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 Line.File
0 423.2 TYPE HWTH_SERVID_TYPE;
424.2 /* (45) buildReturnListChunked()
425.2
426.2 DECLARE HWTH_SERVICE_STRMRESP_END_CHNKD VALUE('002E'XN)
427.2 TYPE HWTH_SERVID_TYPE;
428.2 /* (46) processStreamedResponseEndChunked()
429.2
430.2 DECLARE HWTH_SERVICE_STRMRESP_TRAILER VALUE('002F'XN)
431.2 TYPE HWTH_SERVID_TYPE;
432.2 /* (47) processStreamedResponseTrailers()
433.2
434.2 DECLARE HWTH_SERVICE_PARSE_RESP_HDRS VALUE('0030'XN)
435.2 TYPE HWTH_SERVID_TYPE;
436.2 /* (48) parseResponsetHeaders()
437.2
438.2 DECLARE HWTH_SERVICE_HANDLE_NEXTCHUNKD VALUE('0031'XN)
439.2 TYPE HWTH_SERVID_TYPE;
440.2 /* (49) handleNextChunkedData()
441.2
442.2 DECLARE HWTH_SERVICE_HANDLE_NEXTRAWD VALUE('0032'XN)
443.2 TYPE HWTH_SERVID_TYPE;
444.2 /* (50) handleNextRawData()
445.2
446.2 DECLARE HWTH_SERVICE_BUILD_RTNLIST_RAW VALUE('0033'XN)
447.2 TYPE HWTH_SERVID_TYPE;
448.2 /* (51) buildReturnListRaw()
449.2
450.2 DECLARE HWTH_SERVICE_SUPPLYDATA_TO_BUF VALUE('0034'XN)
451.2 TYPE HWTH_SERVID_TYPE;
452.2 /* (52) supplyListDataToBuffer()
453.2
454.2 DECLARE HWTH_SERVICE_INITIAL_RESPDATA VALUE('0035'XN)
455.2 TYPE HWTH_SERVID_TYPE;
456.2 /* (53) handleInitialResponseData()
457.2
458.2 DECLARE HWTH_SERVICE_ICONN_IMPL VALUE('0036'XN)
459.2 TYPE HWTH_SERVID_TYPE;
460.2 /* (54) iconnImpl()
461.2
462.2 DECLARE HWTH_SERVICE_CHECK_TTLS VALUE('0037'XN)
463.2 TYPE HWTH_SERVID_TYPE;
464.2 /* (55) checkForTTLS()
465.2
466.2 DECLARE HWTH_SERVICE_SET_COOKIE VALUE('0065'XN)
467.2 TYPE HWTH_SERVID_TYPE;
468.2 /* (101) setCookie()
469.2
470.2 DECLARE HWTH_SERVICE_GET_COOKIE_HEADER VALUE('0066'XN)
471.2 TYPE HWTH_SERVID_TYPE;
472.2 /* (102) getCookieHeader()
473.2
474.2 DECLARE HWTH_SERVICE_SERIALIZE VALUE('0067'XN)
475.2 TYPE HWTH_SERVID_TYPE;
476.2 /* (103) serializeCookies()
477.2
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 Line.File
0 478.2 DECLARE HWTH_SERVICE_DESERIALIZE VALUE('0068'XN)
479.2 TYPE HWTH_SERVID_TYPE;
480.2 /* (104) deserializeCookies()
481.2
482.2 DECLARE HWTH_SERVICE_GET_CELL VALUE('0069'XN)
483.2 TYPE HWTH_SERVID_TYPE;
484.2 /* (105) getCell()
485.2
486.2 DECLARE HWTH_SERVICE_FREE_CELL VALUE('006A'XN)
487.2 TYPE HWTH_SERVID_TYPE;
488.2 /* (106) freeCell()
489.2
490.2 DECLARE HWTH_SERVICE_LIST_INSERT VALUE('006B'XN)
491.2 TYPE HWTH_SERVID_TYPE;
492.2 /* (107) listInsert()
493.2
494.2 DECLARE HWTH_SERVICE_LIST_DELETE VALUE('006C'XN)
495.2 TYPE HWTH_SERVID_TYPE;
496.2 /* (108) listDelete()
497.2
498.2 DECLARE HWTH_SERVICE_FIND_APPL_COOKIES VALUE('006D'XN)
499.2 TYPE HWTH_SERVID_TYPE;
500.2 /* (109) findApplicableCookies
501.2
502.2 DECLARE HWTH_SERVICE_GET_RQST_COOKIES VALUE('006E'XN)
503.2 TYPE HWTH_SERVID_TYPE;
504.2 /* (110) getRequestCookies()
505.2
506.2 DECLARE HWTH_SERVICE_TOCOOKIE_STRARRAY VALUE('006F'XN)
507.2 TYPE HWTH_SERVID_TYPE;
508.2 /* (111) toCookieStringArray()
509.2
510.2 DECLARE HWTH_SERVICE_COOKIE_TO_STRING VALUE('0070'XN)
511.2 TYPE HWTH_SERVID_TYPE;
512.2 /* (112) cookieToString()
513.2
514.2 DECLARE HWTH_SERVICE_TO_CANONICAL VALUE('0071'XN)
515.2 TYPE HWTH_SERVID_TYPE;
516.2 /* (113) toCanonical()
517.2
518.2 DECLARE HWTH_SERVICE_STORAGE VALUE('00C9'XN)
519.2 TYPE HWTH_SERVID_TYPE;
520.2 /* (201) ?STORAGE macro
521.2
522.2 DECLARE HWTH_SERVICE_CSRPBLD VALUE('00CA'XN)
523.2 TYPE HWTH_SERVID_TYPE;
524.2 /* (202) CSRPBLD
525.2
526.2 DECLARE HWTH_SERVICE_CSRPEXP VALUE('00CB'XN)
527.2 TYPE HWTH_SERVID_TYPE;
528.2 /* (203) CSRPEXP
529.2
530.2 DECLARE HWTH_SERVICE_LOAD VALUE('00CC'XN)
531.2 TYPE HWTH_SERVID_TYPE;
532.2 /* (204) ?LOAD
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 Line.File
0 533.2
534.2 DECLARE HWTH_SERVICE_CEEPIPI VALUE('00CD'XN)
535.2 TYPE HWTH_SERVID_TYPE;
536.2 /* (205) CEEPIPI
537.2
538.2 DECLARE HWTH_SERVICE_PREP_LEENV VALUE('00CE'XN)
539.2 TYPE HWTH_SERVID_TYPE;
540.2 /* (206) Service to prepare an
541.2 environment
542.2
543.2
544.2 /* ------------------------------------------------------------
545.2 /*
546.2 /* Diag Reason Codes
547.2 /*
548.2 /* Constants to aid applications in determining the cause of
549.2 /* HWTH_WARNING or HWTH_COMMUNICATION_ERROR return codes. Othe
550.2 /* return codes may also fill in the diag reason code with a va
551.2 /* related to the particular error.
552.2 /*
553.2 /* ------------------------------------------------------------
554.2 DECLARE (
555.2 HWTH_RSN_REDIRECTED VALUE('00000001'XN),
556.2 (1) The request was success
557.2 but a redirect occurred. Se
558.2 HWTH_reasonDesc for the
559.2 redirected path.
560.2 HWTH_RSN_NEEDED_REDIRECT VALUE('00000002'XN),
561.2 (2) The request was attempt
562.2 but a redirect action was n
563.2 to complete the request. Ho
564.2 the HWTH_OPT_MAX_REDIRECTS
565.2 was set to a value that pre
566.2 this action.
567.2 HWTH_RSN_REDIRECT_XDOMAIN VALUE('00000003'XN),
568.2 (3) The request was attempt
569.2 but a redirect action was n
570.2 to complete the request. Ho
571.2 the HWTH_OPT_XDOMAIN_REDIRE
572.2 option was set to a value t
573.2 prevented this action.
574.2 HWTH_RSN_REDIRECT_TO_HTTP VALUE('00000004'XN),
575.2 (4) The request was attempt
576.2 but a redirect action was n
577.2 to complete the request. Ho
578.2 the HWTH_OPT_REDIRECT_PROTO
579.2 option was set to a value t
580.2 prevented a redirect to go
581.2 HTTPS to HTTP.
582.2 HWTH_RSN_REDIRECT_TO_HTTPS VALUE('00000005'XN),
583.2 (5) The request was attempt
584.2 but a redirect action was n
585.2 to complete the request. Ho
586.2 the HWTH_OPT_REDIRECT_PROTO
587.2 option was set to a value t
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 Line.File
0 588.2 prevented a redirect to go
589.2 HTTP to HTTPS.
590.2 HWTH_RSN_NO_REDIRECT_LOCATION VALUE('00000006'XN),
591.2 (6) The response from the s
592.2 was received with a redirec
593.2 status but the redirect loc
594.2 was not provided.
595.2 HWTH_RSN_HDR_EXIT_ABORT VALUE('00000007'XN),
596.2 (7) The user response heade
597.2 indicated the request shoul
598.2 aborted.
599.2 HWTH_RSN_TUNNEL_UNSUCCESSFUL VALUE('00000008'XN),
600.2 (8) An attempt was made to
601.2 establish a tunnel through
602.2 proxy but the proxy returne
603.2 non-success return code.
604.2 HWTH_RSN_MALFORMED_CHNK_ENCODE VALUE('00000009'XN),
605.2 (9) The response from the s
606.2 was received with malformed
607.2 chunked encoding data.
608.2 HWTH_RSN_MALFORMED_REDIRECT_URI VALUE('0000000A'XN), /
609.2 (10) The response from the
610.2 server was received with a
611.2 direct location which speci
612.2 a malformed uri.
613.2 HWTH_RSN_STREAM_SEND_EXIT_ABORT VALUE('0000000B'XN), /
614.2 (11) The user streaming sen
615.2 exit indicated the request
616.2 should be aborted.
617.2 HWTH_RSN_STREAM_SEND_EXIT_INVALID VALUE('0000000C'XN), /
618.2 (12) The user streaming sen
619.2 exit supplied an invalid dat
620.2 description.
621.2 HWTH_RSN_STREAM_SEND_EXIT_NODATA VALUE('0000000D'XN), /
622.2 (13) The user streaming sen
623.2 exit failed to supply requi
624.2 data.
625.2 HWTH_RSN_STREAM_SEND_EXIT_STATE VALUE('0000000E'XN), /
626.2 (14) The user streaming sen
627.2 exit indicated an unsupport
628.2 state value.
629.2 HWTH_RSN_STREAM_RECV_EXIT_ABORT VALUE('0000000F'XN), /
630.2 (15) The user streaming rec
631.2 exit indicated the request
632.2 should be aborted.
633.2 HWTH_RSN_STREAM_RECV_EXIT_INVALID VALUE('00000010'XN), /
634.2 (16) The user streaming rec
635.2 exit supplied an invalid
636.2 data description.
637.2 HWTH_RSN_STREAM_RECV_EXIT_NODATA VALUE('00000011'XN), /
638.2 (17) The user streaming rec
639.2 exit failed to supply requi
640.2 buffer(s).
641.2 HWTH_RSN_STREAM_RECV_EXIT_STATE VALUE('00000012'XN), /
642.2 (18) The user streaming sen
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 Line.File
0 643.2 exit indicated an illegal s
644.2 value.
645.2 HWTH_RSN_UNSUPPORTED_XFERENCODING VALUE('00000013'XN), /
646.2 (19) The response used an u
647.2 supported transfer encoding
648.2 type.
649.2 HWTH_RSN_UNSUPPORTED_BODY_SIZE VALUE('00000014'XN), /
650.2 (20) The response body size
651.2 requires streaming receive.
652.2 HWTH_RSN_UNSUPPORTED_CHUNK_SIZE VALUE('00000015'XN), /
653.2 (21) The response from the
654.2 server was received as chun
655.2 encoded data whose chunks a
656.2 excessively large (likely t
657.2 indicate malformedness).
658.2 HWTH_RSN_INCOMPLETE_RESPONSE VALUE('00000016'XN), /
659.2 (22) The response from the
660.2 server was smaller than the
661.2 indicated content length.
662.2 HWTH_RSN_COOKIE_STORE_FULL VALUE('00000033'XN),
663.2 (51) A new cookie could not
664.2 added to the current cookie
665.2 because it was full.
666.2 HWTH_RSN_COOKIE_INVALID VALUE('00000034'XN),
667.2 (52) A new cookie was not ad
668.2 to the current cookie store
669.2 because it had invalid forma
670.2 content.
671.2 HWTH_RSN_COOKIE_STORE_INV_PARM VALUE('00000035'XN),
672.2 (53) A supplied buffer area
673.2 invalid format or content
674.2 HWTH_RSN_COOKIE_ST_INCOMPLETE VALUE('00000036'XN),
675.2 (54) Some but not all conten
676.2 of the current cookie store
677.2 written to (or read from) th
678.2 supplied buffer area.
679.2 HWTH_RSN_COOKIE_ST_MALLOC_ERR VALUE('00000039'XN),
680.2 (57) A memory-related error
681.2 condition occurred while rea
682.2 or writing the current cooki
683.2 store.
684.2 HWTH_RSN_COOKIE_ST_FREE_ERROR VALUE('0000003A'XN),
685.2 (58) A memory-related error
686.2 condition occurred while rea
687.2 or writing the current cooki
688.2 store.
689.2 HWTH_RSN_COOKIE_ST_UNEXP_ERROR VALUE('0000003B'XN)
690.2 (59) An unexpected error occ
691.2 while reading or writing the
692.2 the current cookie store.
693.2 ) FIXED BINARY(32) UNSIGNED;
694.2
695.2 /* Constant Definitions
696.2 /* ============================================================
697.2 /* ------------------------------------------------------------
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 Line.File
0 698.2 /* Generic Alias(type) definitions for multiple services
699.2 /* ------------------------------------------------------------
700.2
701.2 /* ------------------------------------------------------------
702.2 /* Connection / Request Handle Alias(type) definition
703.2 /* ------------------------------------------------------------
704.2 DEFINE ALIAS HWTH_HANDLE_TYPE CHAR(12);
705.2
706.2 /* ------------------------------------------------------------
707.2 /* returnCode Alias(type) definition
708.2 /* ------------------------------------------------------------
709.2 DEFINE ALIAS HWTH_RETURNCODE_TYPE FIXED BINARY(31);
710.2
711.2 /* ------------------------------------------------------------
712.2 /* Diagnostics Area Alias(type) definition
713.2 /* ------------------------------------------------------------
714.2 DEFINE ALIAS HWTH_DIAGDESC_TYPE CHAR(128);
715.2
716.2 DEFINE STRUCTURE 1 HWTH_SERVICE_STRUCT_TYPE
717.2 ,3 HWTH_ServID FIXED BINARY(16) UNSIGNED
718.2 ,3 * FIXED BINARY(16) UNSIGNED; /* IBM Use o
719.2
720.2 DEFINE STRUCTURE 1 HWTH_DIAGAREA_TYPE
721.2 ,3 HWTH_ServiceU UNION
722.2 ,5 HWTH_Service FIXED BINARY(32) UNSIGNED
723.2 ,5 HWTH_ServiceStruct TYPE HWTH_SERVICE_STRUCT_TYPE
724.2 ,3 HWTH_ReasonCode FIXED BINARY(32) UNSIGNED
725.2 ,3 HWTH_ReasonDesc TYPE HWTH_DIAGDESC_TYPE
726.2 ; /*
727.2
728.2 /* ============================================================
729.2 /* HWTHINIT Parameter Alias(type) Definitions and Constants
730.2 /* ============================================================
731.2 /* ------------------------------------------------------------
732.2 /* handleType
733.2 /* Used to specify which type of resources need to be initiali
734.2 /* ------------------------------------------------------------
735.2 DEFINE ALIAS HWTH_HANDLETYPE_TYPE FIXED BINARY(32) UNSIGNED;
736.2
737.2 DECLARE (
738.2 HWTH_HANDLETYPE_CONNECTION VALUE(1)
739.2 ,HWTH_HANDLETYPE_HTTPREQUEST VALUE(2)
740.2 ) TYPE HWTH_HANDLETYPE_TYPE;
741.2
742.2 /* ============================================================
743.2 /* HWTHSET Parameter Alias(type) Definitions and Constants
744.2 /* ============================================================
745.2 /* ------------------------------------------------------------
746.2 /* option
747.2 /* Used to specify which option is to be set for either a
748.2 /* connection or a request.
749.2 /* ------------------------------------------------------------
750.2 DEFINE ALIAS HWTH_SET_OPTION_TYPE FIXED BINARY(32) UNSIGNED;
751.2
752.2 DECLARE (
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 Line.File
0 753.2 /* HTTP Enabler Connection / Request Options
754.2 */
755.2 HWTH_OPT_URI VALUE('0001'XN)
756.2 (1) Can be connection or requ
757.2 option. For a connection han
758.2 the network location (w/o por
759.2 is required (see documentatio
760.2 For a request handle, an opti
761.2 resource being targeted (path
762.2 with optional query string an
763.2 fragment).
764.2
765.2 /* 2 - 20 reserved
766.2
767.2 /* HTTP Enabler Connection-only Options
768.2 */
769.2 ,HWTH_OPT_PORT VALUE('0015'XN)
770.2 (21) An optional remote port
771.2 number.
772.2 ,HWTH_OPT_IPSTACK VALUE('0016'XN)
773.2 (22) An optional 1 to 8 chara
774.2 z/OS TCP/IP stack name to be
775.2 ,HWTH_OPT_LOCALIPADDR VALUE('0017'XN)
776.2 (23) An optional outgoing loc
777.2 IP address the connection is
778.2 originate from.
779.2 ,HWTH_OPT_LOCALPORT VALUE('0018'XN)
780.2 (24) An optional outgoing loc
781.2 port the connection is to
782.2 originate from.
783.2 ,HWTH_OPT_PROXY VALUE('0019'XN)
784.2 (25) An optional HTTP proxy.
785.2 ,HWTH_OPT_PROXYPORT VALUE('001A'XN)
786.2 (26) An optional proxy port.
787.2 ,HWTH_OPT_USE_SSL VALUE('001B'XN)
788.2 (27) An optional value to tel
789.2 toolkit whether or not to use
790.2 SSL/TLS connection.
791.2 ,HWTH_OPT_SSLVERSION VALUE('001C'XN)
792.2 (28) An optional set of SSL l
793.2 to be used as part of SSL
794.2 negotiations.
795.2 ,HWTH_OPT_SSLKEYTYPE VALUE('001D'XN)
796.2 (29) An optional value to tel
797.2 toolkit which type of key sto
798.2 use.
799.2 ,HWTH_OPT_SSLKEY VALUE('001E'XN)
800.2 (30) An optional name of the
801.2 store to be used.
802.2 ,HWTH_OPT_SSLKEYSTASHFILE VALUE('001F'XN)
803.2 (31) An optional stash file w
804.2 the key database file passwor
805.2 kept. Required if SSLKEYTYPE
806.2 HWTH_SSLKEYTYPE_KEYDBFILE.
807.2 ,HWTH_OPT_SSLCLIENTAUTHLABEL VALUE('0020'XN)
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 Line.File
0 808.2 (32) An optional label repres
809.2 a client certificate if clien
810.2 authentication is required.
811.2 ,HWTH_OPT_SNDTIMEOUTVAL VALUE('0021'XN)
812.2 (33) An optional timeout valu
813.2 for outgoing requests.
814.2 ,HWTH_OPT_RCVTIMEOUTVAL VALUE('0022'XN)
815.2 (34) An optional timeout valu
816.2 for incoming responses.
817.2 ,HWTH_OPT_MAX_REDIRECTS VALUE('0023'XN)
818.2 (35) An optional value specif
819.2 the max number of redirects f
820.2 request using this connection
821.2 ,HWTH_OPT_XDOMAIN_REDIRECTS VALUE('0024'XN)
822.2 (36) An optional value specif
823.2 the redirect behavior regardi
824.2 cross-domain redirects.
825.2 ,HWTH_OPT_REDIRECT_PROTOCOLS VALUE('0025'XN)
826.2 (37) An optional value specif
827.2 the redirect behavior regardi
828.2 allowed redirect protocols.
829.2 ,HWTH_OPT_COOKIETYPE VALUE('0026'XN)
830.2 (38) An optional value specif
831.2 the cookie engine behavior of
832.2 toolkit for this connection.
833.2 ,HWTH_OPT_COOKIE_INPUT_BUFFER VALUE('0027'XN)
834.2 (39) An optional buffer conta
835.2 a previously saved cookie sto
836.2 be used to prime the cookie e
837.2 for this connection.
838.2 ,HWTH_OPT_COOKIE_OUTPUT_BUFFER VALUE('0028'XN)
839.2 (40) An optional buffer for
840.2 cookies to be saved when the
841.2 connection is disconnected.
842.2 ,HWTH_OPT_VERBOSE VALUE('0029'XN)
843.2 (41) An optional debugging op
844.2 ,HWTH_OPT_VERBOSE_OUTPUT VALUE('002A'XN)
845.2 (42) An optional DD (data
846.2 definition) specification whe
847.2 verbose debugging messages sh
848.2 routed
849.2 ,HWTH_OPT_SSLCIPHERSPECS VALUE('002B'XN)
850.2 (43) An optional specificatio
851.2 the cipher suites to be used
852.2
853.2 /* 44 - 70 reserved
854.2
855.2 /* HTTP Enabler Request-only Options
856.2 */
857.2 ,HWTH_OPT_HTTP_VERSION VALUE('0047'XN)
858.2 (71) An optional HTTP version
859.2 ,HWTH_OPT_REQUESTMETHOD VALUE('0048'XN)
860.2 (72) A required HTTP request
861.2 method.
862.2 ,HWTH_OPT_HTTPHEADERS VALUE('0049'XN)
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 Line.File
0 863.2 (73) An optional sList (creat
864.2 by the HWTHSLST service) spec
865.2 a list of HTTP request header
866.2 be sent.
867.2 ,HWTH_OPT_REQUESTBODY VALUE('004A'XN)
868.2 (74) An optional request body
869.2 ,HWTH_OPT_TRANSLATE_REQBODY VALUE('004B'XN)
870.2 (75) An optional value specif
871.2 the request body codepage
872.2 translation behavior of the
873.2 toolkit.
874.2 ,HWTH_OPT_RESPONSEHDR_EXIT VALUE('004C'XN)
875.2 (76) An optional address of t
876.2 response header callback rout
877.2 ,HWTH_OPT_RESPONSEHDR_USERDATA VALUE('004D'XN)
878.2 (77) An optional buffer of us
879.2 data to be passed to the resp
880.2 header exit.
881.2 ,HWTH_OPT_RESPONSEBODY_EXIT VALUE('004E'XN)
882.2 (78) An optional address of t
883.2 response body callback routin
884.2 ,HWTH_OPT_RESPONSEBODY_USERDATA VALUE('004F'XN)
885.2 (79) An optional buffer of us
886.2 data to be passed to the resp
887.2 body exit.
888.2 ,HWTH_OPT_TRANSLATE_RESPBODY VALUE('0050'XN)
889.2 (80) An optional value specif
890.2 the response body codepage
891.2 translation behavior of the
892.2 toolkit.
893.2 ,HWTH_OPT_HTTPAUTH VALUE('0051'XN)
894.2 (81) An optional value specif
895.2 the HTTP authentication level
896.2 used on the request.
897.2 ,HWTH_OPT_USERNAME VALUE('0052'XN)
898.2 (82) An optional HTTP user na
899.2 to be used with the HTTP
900.2 authentiation. Required if
901.2 HWTH_OPT_HTTPAUTH is HWTH_HTT
902.2 BASIC.
903.2 ,HWTH_OPT_PASSWORD VALUE('0053'XN)
904.2 (83) An optional HTTP passwor
905.2 to be used with the HTTP
906.2 authentiation. Required if
907.2 HWTH_OPT_HTTPAUTH is HWTH_HTT
908.2 BASIC.
909.2 ,HWTH_OPT_COOKIE VALUE('0054'XN)
910.2 (84) An optional buffer of us
911.2 supplied cookies for this req
912.2 ,HWTH_OPT_STREAM_SEND_EXIT VALUE('0055'XN)
913.2 (85) An optional address of
914.2 the streamed request body cal
915.2 routine.
916.2 ,HWTH_OPT_STREAM_RECEIVE_EXIT VALUE('0056'XN)
917.2 (86) An optional address of
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 Line.File
0 918.2 the streamed response body ca
919.2 routine.
920.2 ,HWTH_OPT_REQUESTBODY_USERDATA VALUE('0057'XN)
921.2 (87) An optional buffer of
922.2 of user data to be passed to
923.2 streamed request body callbac
924.2 routine.
925.2 /* 88 - 120 reserved
926.2 ) TYPE HWTH_SET_OPTION_TYPE;
927.2
928.2 DECLARE (
929.2 /* HTTP REXX-only options (set internally by REXX host com
930.2 environment processor - defined in PL/X header only)
931.2 */
932.2 HWTH_REQUESTBODY_VAR VALUE('0100'XN)
933.2 (256) TBD
934.2 ,HWTH_INPUTCOOKIEBUFF_VAR VALUE('0101'XN)
935.2 (257) TBD
936.2 ) TYPE HWTH_SET_OPTION_TYPE;
937.2
938.2 /* ------------------------------------------------------------
939.2 /* HWTH_OPT_IPSTACK Alias(type) definition
940.2 /* IPStack
941.2 /* Use this type to declare a data area representing the loca
942.2 /* TCP/IP stack that is optionally selected for HTTP
943.2 /* communications to the remote HTTP server.
944.2 /* ------------------------------------------------------------
945.2 DEFINE ALIAS HWTH_IPSTACK_TYPE CHAR(8);
946.2
947.2 /* ------------------------------------------------------------
948.2 /* HWTH_OPT_USE_SSL Alias(type) and constant values
949.2 /* SSL On/Off Switch
950.2 /* Use these constants to determine if SSL/TLS secure HTTPS
951.2 /* communication is used when establishing the connection.
952.2 /* ------------------------------------------------------------
953.2 DEFINE ALIAS HWTH_USESSL_TYPE FIXED BINARY(32) UNSIGNED;
954.2
955.2 DECLARE (
956.2 HWTH_SSL_NONE VALUE(0) /* SSL/TLS not u
957.2 ,HWTH_SSL_USE VALUE(1) /* SSL/TLS used
958.2 ) TYPE HWTH_USESSL_TYPE;
959.2
960.2 /* ------------------------------------------------------------
961.2 /* HWTH_OPT_SSLVERSION constant values
962.2 /* SSL Version
963.2 /* Use these constants to set one or more supported SSL versi
964.2 /* If more than one level is desired, use successive calls.
965.2 /* ------------------------------------------------------------
966.2 DEFINE ALIAS HWTH_SSLVERSION_TYPE FIXED BINARY(32) UNSIGNED;
967.2
968.2 DECLARE (
969.2 HWTH_SSLVERSION_SSLV3 VALUE(1)
970.2 ,HWTH_SSLVERSION_TLSV1 VALUE(2)
971.2 ,HWTH_SSLVERSION_TLSV11 VALUE(3)
972.2 ,HWTH_SSLVERSION_TLSV12 VALUE(4)
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 Line.File
0 973.2 ,HWTH_SSLVERSION_DEFAULT VALUE(99) /* SSL used, use de
974.2 ) TYPE HWTH_SSLVERSION_TYPE; /* System SSL value
975.2
976.2
977.2 /* ------------------------------------------------------------
978.2 /* HWTH_OPT_SSLKEYTYPE Alias(type) and constant values
979.2 /* Key Repository Types
980.2 /* Use these constants to specify a key repository type
981.2 /* ------------------------------------------------------------
982.2 DEFINE ALIAS HWTH_SSLKEYTYPE_TYPE FIXED BINARY(32) UNSIGNED;
983.2
984.2 DECLARE (
985.2 HWTH_SSLKEYTYPE_KEYDBFILE VALUE(1)
986.2 ,HWTH_SSLKEYTYPE_KEYRINGNAME VALUE(2)
987.2 ) TYPE HWTH_SSLKEYTYPE_TYPE;
988.2
989.2 /* ------------------------------------------------------------
990.2 /* HWTH_OPT_SSLKEY constant values
991.2 /* Key Repository Values
992.2 /* Use these constants to aid in naming a key repository
993.2 /* ------------------------------------------------------------
994.2
995.2 DECLARE (
996.2 HWTH_KEYDBFILE_MAX VALUE(251) /* Database path
997.2 ,HWTH_KEYRINGNAME_MAX VALUE(237)
998.2 ,HWTH_KEYDBLABEL_MAX VALUE(127)
999.2 ,HWTH_KEYRINGLABEL_MAX VALUE(32)
1000.2 ) FIXED BINARY(32) UNSIGNED; /* SAF Keyring, or
1001.2 Token File
1002.2
1003.2 /* ------------------------------------------------------------
1004.2 /* HWTH_OPT_SSLKEYSTASHFILE Alias(type)
1005.2 /* Key Repository Password
1006.2 /* Use this type to set the value of the password stash file
1007.2 /* associated with the key database file.
1008.2 /* (only used when HWTH_OPT_SSLKEYTYPE =
1009.2 /* HWTH_SSLKEYTYPE_KEYDBFILE)
1010.2 /* ------------------------------------------------------------
1011.2 DECLARE HWTH_SSLKEYSTASHFILE_MAX VALUE(251) FIXED BINARY(32) UN
1012.2
1013.2
1014.2 /* ------------------------------------------------------------
1015.2 /* HWTH_OPT_MAXREDIRECTS Alias(type)
1016.2 /* Maximum number of redirects for the connection.
1017.2 /* Use this setting to limit the number of times a redirect w
1018.2 /* be followed by the toolkit.
1019.2 /* Default: 5
1020.2 /* Zero: Redirects not allowed
1021.2 /* Max value: 50
1022.2 /* ------------------------------------------------------------
1023.2 DEFINE ALIAS HWTH_MAXREDIRECTS_TYPE FIXED BINARY(32) UNSIGNED;
1024.2
1025.2 /* ------------------------------------------------------------
1026.2 /* HWTH_OPT_XDOMAIN_REDIRECTS Alias(type) and constant values
1027.2 /* Redirect behavior of the connection.
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 Line.File
0 1028.2 /* Use this setting to allow or disallow redirects to a domai
1029.2 /* other than the domain represented by this connection.
1030.2 /* ------------------------------------------------------------
1031.2 DEFINE ALIAS HWTH_OPT_XDOMAIN_REDIRECTS_TYPE FIXED BINARY(32)
1032.2 UNSIGNED;
1033.2
1034.2 DECLARE (
1035.2 HWTH_XDOMAIN_REDIRS_NOTALLOWED VALUE(0)
1036.2 ,HWTH_XDOMAIN_REDIRS_ALLOWED VALUE(1)
1037.2 ) TYPE HWTH_OPT_XDOMAIN_REDIRECTS_TYPE;
1038.2
1039.2 /* ------------------------------------------------------------
1040.2 /* HWTH_OPT_REDIRECT_PROTOCOLS Alias(type) and constant values
1041.2 /* Specifies which additional protocols are allowed in the case
1042.2 /* a redirect.
1043.2 /* ------------------------------------------------------------
1044.2 DEFINE ALIAS HWTH_REDIRPROTOCOL_TYPE FIXED BINARY(32) UNSIGNED;
1045.2
1046.2 DECLARE (
1047.2 HWTH_REDIRECT_NOPROTCHANGE VALUE(0)
1048.2 ,HWTH_REDIRECT_HTTPS VALUE(1)
1049.2 ,HWTH_REDIRECT_HTTP VALUE(2)
1050.2 ,HWTH_REDIRECT_NOHTTPS VALUE(3)
1051.2 ) TYPE HWTH_REDIRPROTOCOL_TYPE;
1052.2
1053.2 /* ------------------------------------------------------------
1054.2 /* HWTH_OPT_COOKIETYPE Alias(type) and constant values
1055.2 /* Cookie behavior of the connection
1056.2 /* Use this setting to determine how cookies should be handle
1057.2 /* ------------------------------------------------------------
1058.2 DEFINE ALIAS HWTH_COOKIETYPE_TYPE FIXED BINARY(32) UNSIGNED;
1059.2
1060.2 DECLARE (
1061.2 HWTH_COOKIETYPE_NONE VALUE(0)
1062.2 ,HWTH_COOKIETYPE_SESSION VALUE(1)
1063.2 ,HWTH_COOKIETYPE_PERSIST VALUE(2)
1064.2 ) TYPE HWTH_COOKIETYPE_TYPE;
1065.2
1066.2 /* ------------------------------------------------------------
1067.2 /* HWTH_OPT_VERBOSE Alias(type) and constant values
1068.2 /* Tracing behavior of the toolkit
1069.2 /* Use this setting to set if additional debugging messages
1070.2 /* should be cut to standard output or to the specified
1071.2 /* HWTH_OPT_VERBOSE_OUTPUT DD.
1072.2 /* ------------------------------------------------------------
1073.2 DEFINE ALIAS HWTH_VERBOSE_TYPE FIXED BINARY(32) UNSIGNED;
1074.2
1075.2 DECLARE (
1076.2 HWTH_VERBOSE_OFF VALUE(0)
1077.2 ,HWTH_VERBOSE_ON VALUE(1)
1078.2 ) TYPE HWTH_VERBOSE_TYPE;
1079.2
1080.2 /* ------------------------------------------------------------
1081.2 /* HWTH_OPT_VERBOSE_OUTPUT type definition
1082.2 /* Verbose output
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 Line.File
0 1083.2 /* Use this type to declare the name of a DD (data definition
1084.2 /* representing the location for any verbose debugging messag
1085.2 /* to be directed to.
1086.2 /* ------------------------------------------------------------
1087.2 DEFINE ALIAS HWTH_VERBOSE_OUTPUT_TYPE CHAR(8); /*
1088.2
1089.2 /* ------------------------------------------------------------
1090.2 /* HWTH_OPT_HTTP_VERSION constant values
1091.2 /* HTTP version
1092.2 /* Use these constants specify the HTTP version level
1093.2 /* ------------------------------------------------------------
1094.2 DEFINE ALIAS HWTH_HTTPVERSION_TYPE FIXED BINARY(32) UNSIGNED;
1095.2
1096.2 DECLARE (
1097.2 HWTH_HTTP_VERSION_NONE VALUE(0)
1098.2 ,HWTH_HTTP_VERSION_1_0 VALUE(1)
1099.2 ,HWTH_HTTP_VERSION_1_1 VALUE(2)
1100.2 ) TYPE HWTH_HTTPVERSION_TYPE;
1101.2
1102.2 /* ------------------------------------------------------------
1103.2 /* HWTH_OPT_REQUESTMETHOD constant values
1104.2 /* HTTP Request Operations
1105.2 /* ...are the CRUD methods: Create, Read, Update, and Delete,
1106.2 /* and also the useful method HEAD (body-less Read). They
1107.2 /* correspond to HTTP commands POST, GET, PUT, DELETE and HEAD.
1108.2 /* Use these constants to choose the desired HTTP method.
1109.2 /* ------------------------------------------------------------
1110.2 DEFINE ALIAS HWTH_REQUESTMETHOD_TYPE FIXED BINARY(32) UNSIGNED;
1111.2
1112.2 DECLARE (
1113.2 HWTH_HTTP_REQUEST_POST VALUE(1)
1114.2 ,HWTH_HTTP_REQUEST_GET VALUE(2)
1115.2 ,HWTH_HTTP_REQUEST_PUT VALUE(3)
1116.2 ,HWTH_HTTP_REQUEST_DELETE VALUE(4)
1117.2 ,HWTH_HTTP_REQUEST_HEAD VALUE(5) /*
1118.2 ) TYPE HWTH_REQUESTMETHOD_TYPE;
1119.2
1120.2 /* ------------------------------------------------------------
1121.2 /* HWTH_OPT_HTTPAUTH constant values
1122.2 /* HTTP Authorization level
1123.2 /* Use these constants to specify the HTTP authorization leve
1124.2 /* ------------------------------------------------------------
1125.2 DEFINE ALIAS HWTH_HTTPAUTH_TYPE FIXED BINARY(32) UNSIGNED;
1126.2
1127.2 DECLARE (
1128.2 HWTH_HTTPAUTH_NONE VALUE(0)
1129.2 ,HWTH_HTTPAUTH_BASIC VALUE(1)
1130.2 ) TYPE HWTH_HTTPAUTH_TYPE;
1131.2
1132.2 /* ------------------------------------------------------------
1133.2 /* HWTH_OPT_TRANSLATE_REQBODY Alias(type) and constant values
1134.2 /* HTTP request body translation behavior
1135.2 /* Use these constants to specify if the toolkit is to attemp
1136.2 /* translation of the request body, if present
1137.2 /* ------------------------------------------------------------
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 Line.File
0 1138.2 DEFINE ALIAS HWTH_XLATE_REQBODY_TYPE FIXED BINARY(32) UNSIGNED;
1139.2
1140.2 DECLARE (
1141.2 HWTH_XLATE_REQBODY_NONE VALUE(0) /* No translation
1142.2 ,HWTH_XLATE_REQBODY_E2A VALUE(1) /* EBCDIC to ASCI
1143.2 ) TYPE HWTH_XLATE_REQBODY_TYPE;
1144.2
1145.2 /* ------------------------------------------------------------
1146.2 /* HWTH_OPT_TRANSLATE_RESPBODY Alias(type) and constant values
1147.2 /* HTTP response body translation behavior
1148.2 /* Use these constants to specify if the toolkit is to attemp
1149.2 /* translation of the incoming response body, if present
1150.2 /* ------------------------------------------------------------
1151.2 DEFINE ALIAS HWTH_XLATE_RESPBODY_TYPE FIXED BINARY(32) UNSIGNED
1152.2
1153.2 DECLARE (
1154.2 HWTH_XLATE_RESPBODY_NONE VALUE(0) /* No translation
1155.2 ,HWTH_XLATE_RESPBODY_A2E VALUE(1) /* ASCII to EBCDI
1156.2 ) TYPE HWTH_XLATE_RESPBODY_TYPE;
1157.2
1158.2 /* ============================================================
1159.2 /* HWTSLST Parameter Type Definitions and Constants
1160.2 /* ============================================================
1161.2 /* ------------------------------------------------------------
1162.2 /* SLIST
1163.2 /* address of the linked list to be created or used to append
1164.2 /* specified string.
1165.2 /* ------------------------------------------------------------
1166.2 DEFINE ALIAS HWTH_SLIST_TYPE PTR;
1167.2 /* ------------------------------------------------------------
1168.2 /* function
1169.2 /* Used to specify which function to perform on the linked lis
1170.2 /* append service.
1171.2 /* ------------------------------------------------------------
1172.2 DEFINE ALIAS HWTH_SLST_FUNCTION_TYPE FIXED BINARY(32) UNSIGNED;
1173.2
1174.2 DECLARE (
1175.2 HWTH_SLST_NEW VALUE(1) /* Create a new linked list
1176.2 /* append the first string
1177.2 ,HWTH_SLST_APPEND VALUE(2) /* Append string to the link
1178.2 /* list
1179.2 ,HWTH_SLST_FREE VALUE(3) /* Clean up/Free the linked
1180.2 ) TYPE HWTH_SLST_FUNCTION_TYPE;
1181.2
1182.2 /* ============================================================
1183.2 /* HWTHTERM Parameter Alias(type) Definitions and Constants
1184.2 /* ============================================================
1185.2 /*-------------------------------------------------------------
1186.2 /* forceOption
1187.2 /* Used to determine if the terminate service should force
1188.2 /* the workarea memory created by HWTHINIT to be freed, even
1189.2 /* if the handle appears to be in use.
1190.2 /*-------------------------------------------------------------
1191.2 DEFINE ALIAS HWTH_FORCEOPTION_TYPE FIXED BINARY(32) UNSIGNED;
1192.2
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 Line.File
0 1193.2 DECLARE (
1194.2 HWTH_NOFORCE VALUE(0)
1195.2 ,HWTH_FORCE VALUE(1)
1196.2 ) TYPE HWTH_FORCEOPTION_TYPE;
1197.2
1198.2
1199.2 /* ============================================================
1200.2 /* HTTP Enabler callback routine definitions and constants
1201.2 /* ============================================================
1202.2 /* ------------------------------------------------------------
1203.2 /* HWTH_STATUS_LINE_TYPE Alias(type) definition
1204.2 /* HTTP Response Information
1205.2 /* Use this type to declare the structure containing the HTTP
1206.2 /* status information returned from the server on a response
1207.2 /* a given request.
1208.2 /* ------------------------------------------------------------
1209.2 DEFINE STRUCTURE 1 HWTH_STATUS_LINE_TYPE
1210.2 ,3 HWTH_statusCode FIXED BINARY(32) UNSIGNED
1211.2 ,3 HWTH_versionPtr PTR
1212.2 ,3 HWTH_versionLen FIXED BINARY(32) UNSIGNED
1213.2 ,3 HWTH_reasonPtr PTR
1214.2 ,3 HWTH_reasonLen FIXED BINARY(32) UNSIGNED
1215.2 ;
1216.2
1217.2 /* ------------------------------------------------------------
1218.2 /* HWTH_RESP_EXIT_FLAGS Alias(type) definition
1219.2 /* HTTP Response Header Exit Flags
1220.2 /* Use this type to declare the user exit flag variable which
1221.2 /* may include status on processing of the HTTP response.
1222.2 /* ------------------------------------------------------------
1223.2 DEFINE ALIAS HWTH_RESP_EXIT_FLAGS_TYPE FIXED BINARY(32) UNSIGNE
1224.2
1225.2 DECLARE (
1226.2 HWTH_EXITFLAG_COOKIESTORE_FULL VALUE('00000001'XN)
1227.2 ,HWTH_EXITFLAG_COOKIE_INVALID VALUE('00000002'XN)
1228.2 ,HWTH_EXITFLAG_CHUNKED_TRAILER VALUE('00000010'XN)
1229.2 ) TYPE HWTH_RESP_EXIT_FLAGS_TYPE; /*
1230.2
1231.2 /* ------------------------------------------------------------
1232.2 /* HWTH_RESP_EXIT_RC Alias(type) definition
1233.2 /* HTTP Response Header Exit Return Code
1234.2 /* Use this type to declare the return code value returned fr
1235.2 /* the HTTP response header callback routine to the toolkit
1236.2 /* ------------------------------------------------------------
1237.2 DEFINE ALIAS HWTH_RESP_EXIT_RC_Type FIXED BINARY(32) UNSIGNED;
1238.2
1239.2 DECLARE (
1240.2 HWTH_RESP_EXIT_RC_OK VALUE(0)
1241.2 ,HWTH_RESP_EXIT_RC_ABORT VALUE(1)
1242.2 ) TYPE HWTH_RESP_EXIT_RC_TYPE;
1243.2
1244.2 /* ------------------------------------------------------------
1245.2 /* HWTH_STREAM_PROGRESS_TYPE Alias (type) definition
1246.2 /* HTTP Streaming Send or Receive Progress Information
1247.2 /* The toolkit provides one of these to a streaming send or
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 Line.File
0 1248.2 /* receive exit so that the latter can understand and monito
1249.2 /* the current progress of the (request body) send or (respo
1250.2 /* body) receive. The requestUri field identifies the reque
1251.2 /* to the streaming exit, which may use the userData field f
1252.2 /* any purpose. The responseStatus field is only meaningful
1253.2 /* receive, and locates data of type HWTH_STATUS_LINE_TYPE.
1254.2 /* ------------------------------------------------------------
1255.2 DEFINE STRUCTURE 1 HWTH_STREAM_PROGRESS_TYPE
1256.2 ,3 HWTH_requestUri PTR
1257.2 ,3 HWTH_requestUriLength FIXED BINARY(31)
1258.2 ,3 HWTH_numChunks FIXED BINARY(64) UNSIGNED
1259.2 ,3 HWTH_totalBytes FIXED BINARY(64) UNSIGNED
1260.2 ,3 HWTH_userData PTR
1261.2 ,3 HWTH_responseStatus PTR
1262.2 ; /*
1263.2
1264.2
1265.2 /* ------------------------------------------------------------
1266.2 /* HWTH_STREAM_DATADESC_TYPE Alias (type) definition
1267.2 /* HTTP Streaming Send or Receive Data Area Description
1268.2 /* For streaming send, use an array of these to describe an
1269.2 /* ordered list of contiguous data areas which comprise the n
1270.2 /* payload of request body data to be sent to the remote HTTP
1271.2 /* server.
1272.2 /* For streaming receive, use an array of these to describe a
1273.2 /* ordered list of contiguous data areas into which the next
1274.2 /* payload of response body data received from the remote HTT
1275.2 /* server is to be buffered (the supply list). The array of
1276.2 /* these returned by toolkit (the return list) describes thos
1277.2 /* portions of the buffered data which are actual response bo
1278.2 /* content (free of any transfer-encoding related metadata).
1279.2 /* ------------------------------------------------------------
1280.2 DEFINE STRUCTURE 1 HWTH_STREAM_DATADESC_TYPE
1281.2 ,3 HWTH_dataPtr PTR
1282.2 ,3 HWTH_dataLength FIXED BINARY(31)
1283.2 ; /*
1284.2
1285.2 /* ------------------------------------------------------------
1286.2 /* Streaming Send STATE values.
1287.2 /* The SEND_CONTINUE constant is the initial state setting and
1288.2 /* used by the streaming send exit to indicate to the toolkit t
1289.2 /* the entire request body has not yet been supplied.
1290.2 /* The SEND_EOD (end of data) constant is used by the streaming
1291.2 /* send exit to indicate to the toolkit that the request body h
1292.2 /* now been supplied in its entirety. The exit may set this st
1293.2 /* when providing the final installment of request body data, o
1294.2 /* may set it independently on the subsequent callback.
1295.2 /* The SEND_ABORT constant is used by the streaming send exit t
1296.2 /* indicate to the toolkit that the balance of request body sen
1297.2 /* processing should not be performed.
1298.2 /* The SEND_COMPLETE constant is used by the toolkit to convey
1299.2 /* the streaming send exit that the supplied request body has b
1300.2 /* sent in its entirety.
1301.2 /* The SEND_ERROR constant is used by the toolkit to convey to
1302.2 /* streaming send exit that the supplied request body could not
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 Line.File
0 1303.2 /* sent successfully.
1304.2 /* ------------------------------------------------------------
1305.2 DEFINE ALIAS HWTH_STREAM_SEND_STATE_TYPE FIXED BINARY(32) UNSIG
1306.2 DECLARE (
1307.2 HWTH_STREAM_SEND_CONTINUE VALUE(0)
1308.2 ,HWTH_STREAM_SEND_EOD VALUE(1)
1309.2 ,HWTH_STREAM_SEND_ABORT VALUE(2)
1310.2 ,HWTH_STREAM_SEND_COMPLETE VALUE(3)
1311.2 ,HWTH_STREAM_SEND_ERROR VALUE(4)
1312.2 ) TYPE HWTH_STREAM_SEND_STATE_TYPE; /*
1313.2
1314.2 /* ------------------------------------------------------------
1315.2 /* Streaming Receive STATE values.
1316.2 /* The RECEIVE_CONTINUE constant is the initial state setting a
1317.2 /* is used by the toolkit to indicate to the streaming receive
1318.2 /* that the entire response body has not yet been supplied.
1319.2 /* The RECEIVE_EOD (end of data) constant is used by the toolki
1320.2 /* to indicate that the response body has been supplied in its
1321.2 /* entirety.
1322.2 /* The RECEIVE_ABORT constant is used by the streaming receive
1323.2 /* to indicate to the toolkit that the balance of receive
1324.2 /* processing should not be performed.
1325.2 /* The RECEIVE_COMPLETE constant is used by the streaming recei
1326.2 /* exit to indicate to the toolkit that the complete response b
1327.2 /* has been accepted.
1328.2 /* The RECEIVE_ERROR constant is used by the toolkit to convey
1329.2 /* the streaming receive exit that the response body could not
1330.2 /* received successfully.
1331.2 /* ------------------------------------------------------------
1332.2 DEFINE ALIAS HWTH_STREAM_RECEIVE_STATE_TYPE FIXED BINARY(32) UN
1333.2 DECLARE (
1334.2 HWTH_STREAM_RECEIVE_CONTINUE VALUE(0)
1335.2 ,HWTH_STREAM_RECEIVE_EOD VALUE(1)
1336.2 ,HWTH_STREAM_RECEIVE_ABORT VALUE(2)
1337.2 ,HWTH_STREAM_RECEIVE_COMPLETE VALUE(3)
1338.2 ,HWTH_STREAM_RECEIVE_ERROR VALUE(4)
1339.2 ) TYPE HWTH_STREAM_RECEIVE_STATE_TYPE; /*
1340.2
1341.2
1342.2 /* ------------------------------------------------------------
1343.2 /* HTTP Response Header Exit
1344.2 /* Use this type to declare a callback (exit) routine to proc
1345.2 /* the HTTP response headers that are returned by the remote
1346.2 /* server.
1347.2 /* ------------------------------------------------------------
1348.2 DECLARE HWTHHDRX ENTRY(
1349.2 TYPE HWTH_STATUS_LINE_TYPE INONLY /* HTTP response st
1350.2 ,TYPE HWTH_RESP_EXIT_FLAGS_TYPE INONLY /* exitFlags
1351.2 ,PTR INONLY /* headerNamePtr
1352.2 ,FIXED BINARY(32) UNSIGNED INONLY /* headerNameLen
1353.2 ,PTR INONLY /* headerValuePtr
1354.2 ,FIXED BINARY(32) UNSIGNED INONLY /* headerValueLen
1355.2 ,PTR INONLY /* headerUserDataPt
1356.2 ,FIXED BINARY(32) UNSIGNED INONLY) /* headerUserDataLe
1357.2 RETURNS (FIXED BINARY(31))
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 Line.File
0 1358.2 EXTERNAL OPTIONS(INTER); /*
1359.2
1360.2 /* ------------------------------------------------------------
1361.2 /* HTTP Response Body Exit
1362.2 /* Use this type to declare a callback (exit) routine to proc
1363.2 /* the HTTP response body that is returned by the remote HTTP
1364.2 /* server.
1365.2 /* ------------------------------------------------------------
1366.2 DECLARE HWTHBDYX ENTRY(
1367.2 TYPE HWTH_STATUS_LINE_TYPE INONLY /* HTTP response st
1368.2 ,TYPE HWTH_RESP_EXIT_FLAGS_TYPE INONLY /* exitFlags
1369.2 ,PTR INONLY /* respBodyPtr
1370.2 ,FIXED BINARY(32) UNSIGNED INONLY /* respBodyLen
1371.2 ,PTR INONLY /* bodyUserDataPtr
1372.2 ,FIXED BINARY(32) UNSIGNED INONLY) /* bodyUserDataLen
1373.2 RETURNS (FIXED BINARY(31))
1374.2 EXTERNAL OPTIONS(INTER); /*
1375.2
1376.2 /* ------------------------------------------------------------
1377.2 /* HTTP Streaming Send Exit
1378.2 /* Use this type to declare a callback (exit) routine to send
1379.2 /* large HTTP request body to the remote HTTP server.
1380.2 /* ------------------------------------------------------------
1381.2 DECLARE HWTHSNDX ENTRY(
1382.2 TYPE HWTH_STREAM_PROGRESS_TYPE INONLY /* sendProgre
1383.2 ,TYPE HWTH_STREAM_SEND_STATE_TYPE INOUT /* sendState
1384.2 ,PTR OUTONLY /* sendListAd
1385.2 ,FIXED BINARY(31) OUTONLY) /* sendListDi
1386.2 EXTERNAL OPTIONS(INTER); /*
1387.2
1388.2 /* ------------------------------------------------------------
1389.2 /* HTTP Streaming Receive Exit
1390.2 /* Use this type to declare a callback (exit) routine to rece
1391.2 /* a large HTTP response body that is returned by the remote
1392.2 /* server.
1393.2 /* ------------------------------------------------------------
1394.2 DECLARE HWTHRCVX ENTRY(
1395.2 TYPE HWTH_STREAM_PROGRESS_TYPE INONLY /* receiveProg
1396.2 ,TYPE HWTH_STREAM_RECEIVE_STATE_TYPE INOUT /* receiveStat
1397.2 ,PTR OUTONLY /* supplyListA
1398.2 ,FIXED BINARY(31) OUTONLY /* supplyListD
1399.2 ,PTR INONLY /* returnListA
1400.2 ,FIXED BINARY(31) INONLY) /* returnListD
1401.2 EXTERNAL OPTIONS(INTER); /*
1402.2
1403.2
1404.2 /* ------------------------------------------------------------
1405.2 /* Entry Points
1406.2 /* ------------------------------------------------------------
1407.2
1408.2 /* HWTHCONN - Connect to HTTP server
1409.2 */
1410.2 DECLARE HWTHCONN ENTRY(
1411.2 TYPE HWTH_RETURNCODE_TYPE OUTONLY /* returnCode
1412.2 ,TYPE HWTH_HANDLE_TYPE INONLY /* connectionHandle
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 Line.File
0 1413.2 ,TYPE HWTH_DIAGAREA_TYPE OUTONLY) /* diagArea
1414.2 EXTERNAL OPTIONS(ASM INTER);
1415.2
1416.2 /* HWTHDISC - Disconnect from HTTP Server
1417.2 */
1418.2 DECLARE HWTHDISC ENTRY(
1419.2 TYPE HWTH_RETURNCODE_TYPE OUTONLY /* returnCode
1420.2 ,TYPE HWTH_HANDLE_TYPE INONLY /* connectionHandle
1421.2 ,TYPE HWTH_DIAGAREA_TYPE OUTONLY) /* diagArea
1422.2 EXTERNAL OPTIONS(ASM INTER);
1423.2
1424.2 /* HWTHINIT - Initialize HTTP connection / request
1425.2 */
1426.2 DECLARE HWTHINIT ENTRY(
1427.2 TYPE HWTH_RETURNCODE_TYPE OUTONLY /* returnCode
1428.2 ,TYPE HWTH_HANDLETYPE_TYPE INONLY /* handleType
1429.2 ,TYPE HWTH_HANDLE_TYPE OUTONLY /* connOrReqHandle
1430.2 ,TYPE HWTH_DIAGAREA_TYPE OUTONLY) /* diagArea
1431.2 EXTERNAL OPTIONS(ASM INTER);
1432.2
1433.2 /* HWTHRQST - Send Request to HTTP server
1434.2 */
1435.2 DECLARE HWTHRQST ENTRY(
1436.2 TYPE HWTH_RETURNCODE_TYPE OUTONLY /* returnCode
1437.2 ,TYPE HWTH_HANDLE_TYPE INONLY /* connectionHandle
1438.2 ,TYPE HWTH_HANDLE_TYPE INONLY /* requestHandle
1439.2 ,TYPE HWTH_DIAGAREA_TYPE OUTONLY) /* diagArea
1440.2 EXTERNAL OPTIONS(ASM INTER);
1441.2
1442.2 /* HWTHRSET - Reset HTTP connection / request
1443.2 */
1444.2 DECLARE HWTHRSET ENTRY(
1445.2 TYPE HWTH_RETURNCODE_TYPE OUTONLY /* returnCode
1446.2 ,TYPE HWTH_HANDLE_TYPE INONLY /* connOrReqHandle
1447.2 ,TYPE HWTH_DIAGAREA_TYPE OUTONLY) /* diagArea
1448.2 EXTERNAL OPTIONS(ASM INTER);
1449.2
1450.2 /* HWTHSET - Set HTTP connection / request options
1451.2 */
1452.2 DECLARE HWTHSET ENTRY(
1453.2 TYPE HWTH_RETURNCODE_TYPE OUTONLY /* returnCode
1454.2 ,TYPE HWTH_HANDLE_TYPE INONLY /* connOrReqHandle
1455.2 ,TYPE HWTH_SET_OPTION_TYPE INONLY /* option
1456.2 ,PTR INONLY /* optionValueAddr
1457.2 ,FIXED BINARY(32) UNSIGNED INONLY /* optionValueLen
1458.2 ,TYPE HWTH_DIAGAREA_TYPE OUTONLY) /* diagArea
1459.2 EXTERNAL OPTIONS(ASM INTER);
1460.2
1461.2 /* HWTHSLST - Linked List Append Service
1462.2 */
1463.2 DECLARE HWTHSLST ENTRY(
1464.2 TYPE HWTH_RETURNCODE_TYPE OUTONLY /* ReturnCode
1465.2 ,TYPE HWTH_HANDLE_TYPE INONLY /* RequestHandle
1466.2 ,TYPE HWTH_SLST_FUNCTION_TYPE INONLY /* Function
1467.2 ,TYPE HWTH_SLIST_TYPE INOUT /* SList
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 Line.File
0 1468.2 ,PTR INONLY /* StringAddr
1469.2 ,FIXED BINARY(32) UNSIGNED INONLY /* StringLen
1470.2 ,TYPE HWTH_DIAGAREA_TYPE OUTONLY) /* DiagArea
1471.2 EXTERNAL OPTIONS(ASM INTER);
1472.2
1473.2 /* HWTHTERM - Terminate HTTP connection / request
1474.2 */
1475.2 DECLARE HWTHTERM ENTRY(
1476.2 TYPE HWTH_RETURNCODE_TYPE OUTONLY /* ReturnCode
1477.2 ,TYPE HWTH_HANDLE_TYPE INONLY /* ConnOrReqHandle
1478.2 ,TYPE HWTH_FORCEOPTION_TYPE INONLY /* ForceOption
1479.2 ,TYPE HWTH_DIAGAREA_TYPE OUTONLY) /* DiagArea
1480.2 EXTERNAL OPTIONS(ASM INTER);
1481.2
7.0 /* END %INCLUDE SYSLIB(HWTHIPLI) */
7.0 /* HTTP Interface Declaration File */
8.0
9.0 HWTHXPI1:
10.0 PROCEDURE(InJCLParms)
11.0 OPTIONS( MAIN )
12.0 Returns(Fixed Binary(31));
13.0 /**********************START OF SPECIFICATIONS*****************
14.0 /*
15.0 /*01* MODULE-NAME: HWTHXPI1
16.0 /*
17.0 /*01* DESCRIPTION: Sample PL/I code to use HTTP services.
18.0 /*
19.0 /*01* PROPRIETARY STATEMENT=
20.0 /***PROPRIETARY_STATEMENT**************************************
21.0 /*
22.0 /* LICENSED MATERIALS - PROPERTY OF IBM
23.0 /* 5650-ZOS COPYRIGHT IBM CORP. 2015
24.0 /* STATUS=HBB7790
25.0 /*
26.0 /***END_OF_PROPRIETARY_STATEMENT*******************************
27.0 /**************************************************************
28.0 /*01* DISCLAIMER =
29.0 /*
30.0 /* THIS SAMPLE PROGRAM IS PROVIDED FOR TUTORIAL PURPOSES ONLY.
31.0 /* COMPLETE HANDLING OF ERROR CONDITIONS HAS NOT BEEN SHOWN OR
32.0 /* ATTEMPTED, AND THIS PROGRAM HAS NOT BEEN SUBMITTED TO FORMA
33.0 /* IBM TESTING. THIS PROGRAM IS DISTRIBUTED ON AN 'AS IS' BAS
34.0 /* WITHOUT ANY WARRANTIES EITHER EXPRESSED OR IMPLIED.
35.0 /*
36.0 /**************************************************************
37.0 /*
38.0 /*01* FUNCTION:
39.0 /*
40.0 /* This particular sample shows a sample invocation of a
41.0 /* published REST API by the FAA to be able to get current
42.0 /* airport delay and weather information. Using simple
43.0 /* programming techniques, the sample connects to the FAA host
44.0 /* and then issues a simple HTTP request to get the desired
45.0 /* info. To tie it all together, it then invokes the other
46.0 /* part of the z/OS Client Web Enablement Toolkit (the z/OS
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 Line.File
0 47.0 /* JSON parser) to parse thru the values to quickly report on
48.0 /* a couple of values returned that are of interest.
49.0 /*
50.0 /* This module provides sample calls to these HTTP Enabler
51.0 /* services:
52.0 /* HWTHINIT - Initialize a connection and request instance.
53.0 /* HWTHSET - Set various connection and request options
54.0 /* HWTHCONN - Connect to a web server.
55.0 /* HWTHRQST - Sent an HTTP request over an existing connectio
56.0 /* HWTHDISC - Disconnect from a web server.
57.0 /* HWTHTERM - Terminate a connection and request instance.
58.0 /*
59.0 /*01* OPERATION:
60.0 /*
61.0 /* CODE FLOW in this sample:
62.0 /* Call HTTP_Init to create a connection instance.
63.0 /* Call HTTP_SetupConnection to set all the necessary connect
64.0 /* options prior to connecting to the web server.
65.0 /* Call HTTP_Connect to connect to the web server.
66.0 /* Call HTTP_Init to create a request instance.
67.0 /* Call HTTP_SetupRequest to set the necessary request option
68.0 /* Call HTTP_Request to send the request over the established
69.0 /* connection.
70.0 /* * Response Header exit (HWTHHDRX) receives control for
71.0 /* each response header received from the HTTP server
72.0 /* * Response Body exit (HWTHBDYX) receives control with th
73.0 /* response body received from the HTTP server.
74.0 /* Call HTTP_Terminate to terminate the request instance.
75.0 /* Call HTTP_Disconnect to disconnect the connection (socket)
76.0 /* from the web server.
77.0 /* Call HTTP_Terminate to terminate the connection instance.
78.0 /*
79.0 /*01* INPUT:
80.0 /*
81.0 /* The following parameters are passed to this module by refer
82.0 /* in the listed order:
83.0 /*
84.0 /* Parameter DataType
85.0 /* --------------------------- --------
86.0 /* JCL Parameter String Length Fixed(15)
87.0 /* JCL Parameter String Char(JCLParmStringLen_Co
88.0 /*
89.0 /*01* DISTRIBUTION LIBRARY: APLSLIB
90.0 /*
91.0 /* DEPENDENCIES
92.0 /*
93.0 /* 1. Include the PL/I Interface Declaration Files HWTHIPLI an
94.0 /* HWTJIPLI
95.0 /*
96.0 /*
97.0 /* NOTES:
98.0 /* No recovery logic has been supplied in this sample.
99.0 /*
100.0 /* Sample JCL to compile this PL/I sample into object code
101.0 /*
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 Line.File
0 102.0 /* //CMPHXPLI JOB '?',' ',
103.0 /* // CLASS=J,MSGCLASS=H,REGION=0M,
104.0 /* // MSGLEVEL=(1,1),NOTIFY=????????
105.0 /* //PLI EXEC PGM=IBMZPLI,
106.0 /* // PARM='OPTIONS,LIST,LIMITS(EXTNAME(44)),RENT'
107.0 /* //STEPLIB DD DSN=SYS1.SIBMZCMP,DISP=SHR
108.0 /* // DD DSN=ZOS220.CEE.SCEERUN,DISP=SHR
109.0 /* //SYSLIB DD DSN=SYS1.MACLIB,DISP=SHR
110.0 /* //PLI.SYSLIN DD DSN=HWT.SAMPLE.OBJ(HWTHXPI1),DISP=SHR
111.0 /* //PLI.SYSIN DD DSN=HWT.SAMPLE.MOD(HWTHXPI1),DISP=SHR
112.0 /* //PLI.SYSPRINT DD DSN=HWT.SAMPLE.LIST(HWTHXPI1),DISP=SHR
113.0 /* //SYSUT1 DD SPACE=(1024,(200,50),,CONTIG,ROUND),UNIT=3390
114.0 /* // DCB=BLKSIZE=1024
115.0 /*
116.0 /*
117.0 /* Sample JCL to link the object code into a PDSE load module
118.0 /* Note: Sample attributes to allocate a PDSE load lib:
119.0 /* Organization . . . : PO
120.0 /* Record format . . . : U
121.0 /* Record length . . . : 0
122.0 /* Block size . . . . : 27998
123.0 /*
124.0 /* //LNKHXPLI JOB NOTIFY=????????,
125.0 /* // MSGLEVEL=1,MSGCLASS=H
126.0 /* //LINKPLI EXEC PGM=IEWL,
127.0 /* // PARM='LIST,MAP,RENT',
128.0 /* // REGION=1024K
129.0 /* //SYSPRINT DD SYSOUT=*
130.0 /* //OBJLIB DD DSN=HWT.SAMPLE.OBJ,DISP=SHR
131.0 /* //SYSLIB DD DSN=CEE.SCEELKED,UNIT=3390,VOL=SER=ZDR22,DISP
132.0 /* // DD DSN=SYS1.CSSLIB,DISP=SHR
133.0 /* //SYSLMOD DD DSN=HWT.SAMPLE.PDSE.LOAD,DISP=SHR
134.0 /* //SYSUT1 DD UNIT=(SYSDA,SEP=(SYSLMOD,SCSIOBJ)),
135.0 /* // SPACE=(CYL,(10,1))
136.0 /* //SYSLIN DD *
137.0 /* INCLUDE OBJLIB(HWTHXPI1)
138.0 /* NAME HWTHXPI1(R)
139.0 /* /*
140.0 /*
141.0 /*
142.0 /* Sample JCL to run this sample
143.0 /*
144.0 /* //RUNHXPLI JOB
145.0 /* //TEST1 EXEC PGM=HWTHXPI1,REGION=3M,
146.0 /* // PARM='POSIX(ON) /<airport_name>'
147.0 /* //STEPLIB DD DSN=HWT.SAMPLE.PDSE.LOAD,DISP=SHR
148.0 /* //SYSPRINT DD SYSOUT=*,DCB=(RECFM=V,LRECL=137,BLKSIZE=139)
149.0 /* //SYSUDUMP DD SYSOUT=*
150.0 /* //*
151.0 /*
152.0 /* where airport_name is the IATA 3 character airport code
153.0 /* (e.g. JFK)
154.0 /*
155.0 /*01* CHANGE-ACTIVITY:
156.0 /*
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 Line.File
0 157.0 /* PN REASON RLSE DATE ORG COMMENTS
158.0 /* ----------------------------------------------------------
159.0 /* $L0= OA49002 HBB7790 151210 PDLLH:z/OS Web Enablement Tool
160.0 /* Sample in PL/I language.
161.0 /**********************END OF SPECIFICATIONS*******************
162.0 /*-------------------------------------------------------------
163.0 /* JCL Parameter Declares
164.0 /*-------------------------------------------------------------
165.0
166.0 /* System(MVS) requires input parm be character varying */
167.0 Dcl InJCLParms Char(102) Varying;
168.0
169.0 Dcl JCLParmStringLen_Const Fixed Binary(31) Value(100);
170.0 Dcl AirportSymbolLen Fixed Binary(16) Unsigned Value(3);
171.0
172.0 Dcl JCLParmsAddrPtr Ptr;
173.0 Dcl JCLParmsAddr Ptr Based(JCLParmsAddrPtr);
174.0
175.0 Dcl 1 JCLParms Based(JCLParmsAddr)
176.0 ,3 JCLParmLength Fixed Binary(16) Unsigned
177.0 ,3 JCLParmString Char(JCLParmStringLen_Const);
178.0
179.0 /*-------------------------------------------------------------
180.0 /* General declares
181.0 /*-------------------------------------------------------------
182.0 Dcl True Bit(1) Value('1'b);
183.0 Dcl False Bit(1) Value('0'b);
184.0
185.0 Dcl lHandleType Type HWTH_HANDLETYPE_TYPE;
186.0 Dcl lForceOption Type HWTH_FORCEOPTION_TYPE;
187.0 Dcl lRc Type HWTH_RETURNCODE_TYPE;
188.0 Dcl lRequestHandle Type HWTH_HANDLE_TYPE;
189.0 Dcl lConnectionHandle Type HWTH_HANDLE_TYPE;
190.0 Dcl lDiagArea Type HWTH_DIAGAREA_TYPE;
191.0 Dcl requestSuccessful Bit(1);
192.0
193.0 Dcl ErrorMessage Char(200) External;
194.0
195.0 /* Data to be passed back and forth between the main program an
196.0 response header exit
197.0 */
198.0 Dcl 1 myRespHeaderUserData
199.0 ,3 respHdrEyeCatcher Char(8)
200.0 ,3 respStatusCodeAddr Ptr
201.0 ,3 respHeaderCount Fixed Binary(32) Unsigned
202.0 ,3 mainlineHdrFlagsAddr Ptr
203.0 ;
204.0
205.0 Dcl myRespHeaderUserDataAddr Ptr;
206.0
207.0 Dcl respStatusCode Fixed Binary(32) Unsigned;
208.0
209.0 Dcl 1 mainlineHdrFlags
210.0 ,3 contentTypeIsJSON Bit(1)
211.0 ,3 * Bit(31)
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 Line.File
0 212.0 ;
213.0
214.0 /* Data to be passed back and forth between the main program an
215.0 response body exit
216.0
217.0 Note:
218.0 For simplicity in understanding, the values returned from th
219.0 are copied from the response body exit into fixed size varia
220.0 accessible by the main program. A more robust programming t
221.0 would be to get storage in the exit, specify an address and
222.0 for each field, and then, when the mainline is finished with
223.0 data, it would have the responsibility of freeing the respon
224.0 body storage obtained by the exit.
225.0 */
226.0 Dcl 1 myRespBodyUserData
227.0 ,3 respBodyEyeCatcher Char(8)
228.0 ,3 mainlineHdrFlagsAddr Ptr
229.0 ,3 responseBodyDataAddr Ptr
230.0 ;
231.0
232.0 Dcl 1 responseBodyData
233.0 ,3 airportGeneralInfo
234.0 ,5 airportName Char(50)
235.0 ,5 airportIATA Char(6)
236.0 ,5 airportState Char(30)
237.0 ,3 airportDelayInfo
238.0 ,5 airportDelay Bit(1)
239.0 ,5 * Bit(31)
240.0 ,5 airportStatusType Char(30)
241.0 ,5 airportStatusReason Char(30)
242.0 ,5 airportAverageDelay Char(30)
243.0 ,3 airportWeather
244.0 ,5 airportWeatherCond Char(30)
245.0 ,5 airportTemp Char(30)
246.0 ,5 airportWind Char(30)
247.0 ;
248.0
249.0 Dcl RespHdrExitAddr Limited entry External;
250.0 Dcl RespBdyExitAddr Limited entry External;
251.0
252.0 RespHdrExitAddr = HWTHHDRX;
253.0 RespBdyExitAddr = HWTHBDYX;
254.0
255.0 /* Initialize variables
256.0 */
257.0 lRc = 0;
258.0 lRequestHandle = ''b;
259.0 lConnectionHandle = ''b;
260.0 lForceOption = 0;
261.0 requestSuccessful = False;
262.0 mainlineHdrFlags = '0'b;
263.0 respStatusCode = 0;
264.0 responseBodyData = ''b;
265.0 JCLParmsAddrPtr = Addr(InJCLParms);
266.0
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 Line.File
0 267.0 /**************************************************************
268.0 /*
269.0 /* MAINLINE
270.0 /*
271.0 /**************************************************************
272.0
273.0 /* Display some text indicating the program begins processing
274.0 */
275.0 Display('*******************************************');
276.0 Display('*HTTP Web Enablement Toolkit Sample Begins*');
277.0 Display(' ');
278.0
279.0 /* IATA airport codes must be 3 characters long. If the user
280.0 specifies a bogus parameter, get out immediately.
281.0 */
282.0 If JCLParmLength ^= AirportSymbolLen Then
283.0 Do;
284.0 Display('** Bogus IATA airport code specified! **');
285.0 Return(8);
286.0 End;
287.0
288.0 /* Initialize and set up a connection handle
289.0 */
290.0 lHandleType = HWTH_HANDLETYPE_CONNECTION;
291.0 If HTTP_Init(lRc,lHandleType,lConnectionHandle,lDiagArea) Then
292.0 Do;
293.0 /* Set the necessary options before connecting to the serve
294.0 */
295.0 If HTTP_SetupConnection(lConnectionHandle) Then
296.0 Do;
297.0 /* Connect to the HTTP server
298.0 */
299.0 If HTTP_Connect(lRc,lConnectionHandle,lDiagArea) Then
300.0 Do;
301.0 /* Initialize and set up a request
302.0 */
303.0 lHandleType = HWTH_HANDLETYPE_HTTPREQUEST;
304.0 If HTTP_Init(
305.0 lRc,lHandleType,lRequestHandle,lDiagArea)
306.0 Do;
307.0 /* Set the necessary options before connecting
308.0 to the server.
309.0 */
310.0 If HTTP_SetupRequest(lRequestHandle) Then
311.0 /* Send the request
312.0 */
313.0 Do;
314.0 If HTTP_Request(lRc,lConnectionHandle,
315.0 lRequestHandle,lDiagArea) T
316.0 /* If the response code was ok, then writ
317.0 the data
318.0 */
319.0 If respStatusCode = 200 Then
320.0 Do;
321.0 Call writeData;
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 Line.File
0 322.0 requestSuccessful = '1'b;
323.0 End;
324.0 End;
325.0
326.0 /* Terminate the request
327.0 */
328.0 Call HTTP_Terminate(
329.0 lRc,lRequestHandle,lForceOption,lDiag
330.0 End;
331.0
332.0 /* Disconnect the connection
333.0 */
334.0 Call HTTP_Disconnect(lRc,lConnectionHandle,lDiagAre
335.0 End; /* If request connect = true */
336.0 End; /* HTTP_SetupConnection = true */
337.0
338.0 /* Terminate the connection
339.0 */
340.0 Call HTTP_Terminate(lRc,lConnectionHandle,lForceOption,lDia
341.0 End; /* If connection initialization successful */
342.0
343.0 /* If the last service was successful and the request completed
344.0 successfully, then put successful message
345.0 */
346.0 Display(' ');
347.0 If lRc = 0 & requestSuccessful Then
348.0 Display('******** Program Ended Successfully *********');
349.0 Else
350.0 Display('******** Program Ended Unsuccessfully *********');
351.0
352.0
353.0 Display('*HTTP Web Enablement Toolkit Sample Ends*');
354.0 Display('*****************************************');
355.0
356.0 /**************************************************************
357.0 /*
358.0 /* Procedure: HTTP_Init
359.0 /* Issues the -WTHINIT service and performs error checking
360.0 /*
361.0 /**************************************************************
362.0 HTTP_Init: Procedure(initRc, initHandleType, initHandle, initDi
363.0 Returns(Bit(1));
364.0
365.0 Dcl initRc Fixed Binary(31);
366.0 Dcl initDiagArea Type HWTH_DIAGAREA_TYPE;
367.0 Dcl initHandleType Type HWTH_HANDLETYPE_TYPE;
368.0 Dcl initHandle Type HWTH_HANDLE_TYPE;
369.0 Dcl charHandleType Char(10);
370.0
371.0 If initHandleType = HWTH_HANDLETYPE_CONNECTION Then
372.0 charHandleType = 'connection';
373.0 Else
374.0 charHandleType = 'request ';
375.0
376.0 Call HWTHINIT(initRc,initHandleType,initHandle,initDiagArea);
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 Line.File
0 377.0
378.0 If initRc = HWTH_OK Then
379.0 Do;
380.0 Display('SUCCESS: HWTHINIT created '||charHandleType ||
381.0 ' instance.');
382.0 End;
383.0 Else
384.0 Do;
385.0 errorMessage = ''b;
386.0 errorMessage = 'HWTHINIT failed.';
387.0 Call Display_Error(initRc,initDiagArea,ErrorMessage);
388.0 Return(False);
389.0 End;
390.0
391.0 Return(True);
392.0 End HTTP_Init;
393.0
394.0 /**************************************************************
395.0 /*
396.0 /* Procedure: HTTP_SetupConnection
397.0 /* Sets the necessary connection options
398.0 /*
399.0 /**************************************************************
400.0 HTTP_SetupConnection: Procedure(inHandle)
401.0 Returns(Bit(1));
402.0
403.0 Dcl inHandle Type HWTH_HANDLE_TYPE;
404.0
405.0 Dcl lOption Type HWTH_SET_OPTION_TYPE;
406.0 Dcl lOptionDecValue Fixed Binary(32) Unsigned;
407.0 Dcl lOptionValue Char(23);
408.0 Dcl lOptionValueLen Fixed Binary(32) Unsigned;
409.0 Dcl lOptionValueAddr Ptr;
410.0
411.0 /* ------------------------------------------------------------
412.0 Set the HWT_OPT_VERBOSE option.
413.0 First, set the verbose option on. This option is handy wh
414.0 developing an application. Lots and lots of informational
415.0 error messages are written out to standard output to help
416.0 in debugging efforts. This option should likely be turned
417.0 off with HWTH_VERBOSE_OFF or just not set at all (default
418.0 off) when the application goes into production.
419.0 ------------------------------------------------------------
420.0 lOption = HWTH_OPT_VERBOSE;
421.0 lOptionDecValue = HWTH_VERBOSE_ON;
422.0 lOptionValueAddr = Addr(lOptionDecValue);
423.0 lOptionValueLen = Size(lOptionDecValue);
424.0
425.0 Display('**** Set HWTH_OPT_VERBOSE for connection ****');
426.0
427.0 If ^HTTP_Set(lRc,inHandle,lOption,lOptionValueAddr,
428.0 lOptionValuelen,lDiagArea) Then
429.0 Return(False);
430.0
431.0 /* ------------------------------------------------------------
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 Line.File
0 432.0 Set URI for connection handle.
433.0 Connect to the Federal Aviation Administration (FAA) host.
434.0 ------------------------------------------------------------
435.0 lOption = HWTH_OPT_URI;
436.0 lOptionValue = ''b;
437.0 lOptionValue = 'http://services.faa.gov';
438.0 lOptionValueAddr = Addr(lOptionValue);
439.0
440.0 /* Note: we can use the Length operation on lOptionValue here o
441.0 because the optionValue actually completely fills the variab
442.0 Length returns the length of the declared variable, not the
443.0 length of non-blanks/nulls in the variable.
444.0 */
445.0 lOptionValueLen = Length(lOptionValue);
446.0
447.0 Display(' ****** Set HWTH_OPT_URI for connection ****** ');
448.0
449.0 If ^HTTP_Set(lRc,inHandle,lOption,lOptionValueAddr,
450.0 lOptionValuelen,lDiagArea) Then
451.0 Return(False);
452.0
453.0 /* ------------------------------------------------------------
454.0 Set HWTH_OPT_COOKIETYPE
455.0 Enable the cookie engine for this connection. Any "eligib
456.0 stored cookies will be resent to the host on subsequent
457.0 interactions automatically.
458.0 ------------------------------------------------------------
459.0 lOption = HWTH_OPT_COOKIETYPE;
460.0 lOptionDecValue = HWTH_COOKIETYPE_SESSION;
461.0 lOptionValueAddr = Addr(lOptionDecValue);
462.0 lOptionValueLen = Size(lOptionDecValue);
463.0
464.0 Display(' ** Set HWTH_OPT_COOKIETYPE for connection **');
465.0
466.0 If ^HTTP_Set(lRc,inHandle,lOption,lOptionValueAddr,
467.0 lOptionValuelen,lDiagArea) Then
468.0 Return(False);
469.0
470.0 Return(True);
471.0
472.0 End HTTP_SetupConnection;
473.0
474.0 /**************************************************************
475.0 /*
476.0 /* Procedure: HTTP_Set
477.0 /*
478.0 /**************************************************************
479.0 HTTP_Set: Procedure(setRc, inHandle, inOption, inOptionValueAdd
480.0 inOptionValueLen, inDiagArea)
481.0 Returns(Bit(1));
482.0
483.0 Dcl setRc Type HWTH_RETURNCODE_TYPE;
484.0 Dcl inHandle Type HWTH_HANDLE_TYPE;
485.0 Dcl inOption Type HWTH_SET_OPTION_TYPE;
486.0 Dcl inOptionValueAddr Ptr;
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 Line.File
0 487.0 Dcl inOptionValueLen Fixed Binary(32) Unsigned;
488.0 Dcl inDiagArea Type HWTH_DIAGAREA_TYPE;
489.0
490.0 Call HWTHSET(setRc,inHandle,inOption,inOptionValueAddr,
491.0 inOptionValuelen,inDiagArea);
492.0
493.0 If setRc = HWTH_OK Then
494.0 Display('SUCCESS: Set succeeded (HWTHSET).');
495.0 Else
496.0 Do;
497.0 ErrorMessage = 'Set failed (HWTHSET). '||
498.0 'Handle: '||inHandle;
499.0 Call Display_Error(setRc,inDiagArea,ErrorMessage);
500.0 Return(False);
501.0 End;
502.0
503.0 Return(True);
504.0 End HTTP_Set;
505.0
506.0 /**************************************************************
507.0 /*
508.0 /* Procedure: HTTP_Connect
509.0 /* Issues the HWTHCONN service and performs error checking
510.0 /*
511.0 /**************************************************************
512.0 HTTP_Connect: Procedure(connRc, inHandle, inDiagArea)
513.0 Returns(Bit(1));
514.0
515.0 Dcl connRc Type HWTH_RETURNCODE_TYPE;
516.0 Dcl inHandle Type HWTH_HANDLE_TYPE;
517.0 Dcl inDiagArea Type HWTH_DIAGAREA_TYPE;
518.0
519.0 Call HWTHCONN(connRc,inHandle,inDiagArea);
520.0
521.0 If connRc = HWTH_OK Then
522.0 Display('SUCCESS: Connect succeeded (HWTHCONN).');
523.0 Else
524.0 Do;
525.0 ErrorMessage = 'Connect failed (HWTHCONN).' ||
526.0 'Connection handle: '||inHandle;
527.0 Call Display_Error(connRc,inDiagArea,ErrorMessage);
528.0 Return(False);
529.0 End;
530.0
531.0 Return(True);
532.0 End HTTP_Connect;
533.0
534.0 /**************************************************************
535.0 /*
536.0 /* Procedure: HTTP_SetupRequest
537.0 /* Sets the necessary request options
538.0 /*
539.0 /**************************************************************
540.0 HTTP_SetupRequest: Procedure(inHandle)
541.0 Returns(Bit(1));
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 Line.File
0 542.0
543.0 Dcl inHandle Type HWTH_HANDLE_TYPE;
544.0
545.0 Dcl Success Bit(1);
546.0 Dcl lOption Type HWTH_SET_OPTION_TYPE;
547.0 Dcl lOptionSList Type HWTH_SLIST_TYPE;
548.0 Dcl lOptionSListAddr Ptr;
549.0 Dcl lOptionDecValue Fixed Binary(32) Unsigned;
550.0 Dcl lOptionValue Char(100);
551.0 Dcl lOptionValueLen Fixed Binary(32) Unsigned;
552.0 Dcl lOptionValueAddr Ptr;
553.0 Dcl RespHdrExitAddr_Ptr Ptr;
554.0 Dcl RespBdyExitAddr_Ptr Ptr;
555.0
556.0 RespHdrExitAddr_Ptr = Addr(RespHdrExitAddr);
557.0 RespBdyExitAddr_Ptr = Addr(RespBdyExitAddr);
558.0
559.0 Success = True;
560.0
561.0 /* ------------------------------------------------------------
562.0 Set HTTP Request method.
563.0 A GET request method is used to get data from the server.
564.0 ------------------------------------------------------------
565.0 lOption = HWTH_OPT_REQUESTMETHOD;
566.0 lOptionDecValue = HWTH_HTTP_REQUEST_GET;
567.0 lOptionValueLen = 4;
568.0 lOptionValueAddr = Addr(lOptionDecValue);
569.0
570.0 Display('** Set HWTH_OPT_REQUESTMETHOD for request **');
571.0
572.0 If ^HTTP_Set(lRc,inHandle,lOption,lOptionValueAddr,
573.0 lOptionValuelen,lDiagArea) Then
574.0 Return(False);
575.0
576.0 /* ------------------------------------------------------------
577.0 Set the request URI
578.0 Set the URN URI that identifies a resource by name that is
579.0 the target of our request.
580.0 ------------------------------------------------------------
581.0 lOption = HWTH_OPT_URI;
582.0 lOptionValue = ''b;
583.0 lOptionValue = '/airport/status/'||SubStr(JCLParmString,1,3);
584.0 lOptionValueLen = 19;
585.0 lOptionValueAddr = Addr(lOptionValue);
586.0
587.0 Display('****** Set HWTH_OPT_URI for request ******');
588.0
589.0 If ^HTTP_Set(lRc,inHandle,lOption,lOptionValueAddr,
590.0 lOptionValuelen,lDiagArea) Then
591.0 Return(False);
592.0
593.0 /* ------------------------------------------------------------
594.0 Set the response header callback routine
595.0 Set the address of the routine that is to receive control
596.0 for every response header that we receive.
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 Line.File
0 597.0 ------------------------------------------------------------
598.0 lOption = HWTH_OPT_RESPONSEHDR_EXIT;
599.0 lOptionValue = ''b;
600.0 lOptionValueLen = 4;
601.0 lOptionValueAddr = RespHdrExitAddr_Ptr;
602.0
603.0 Display('*Set HWTH_OPT_RESPONSEHDR_EXIT for request*');
604.0
605.0 If ^HTTP_Set(lRc,inHandle,lOption,lOptionValueAddr,
606.0 lOptionValuelen,lDiagArea) Then
607.0 Return(False);
608.0
609.0 /* ------------------------------------------------------------
610.0 Set the response header callback routine user data
611.0 Example to show how data can be passed to the response hea
612.0 callback routine to allow the routine to customize its
613.0 processing.
614.0 ------------------------------------------------------------
615.0 myRespHeaderUserData = ''b;
616.0 myRespHeaderUserData.respHdrEyeCatcher = 'HdrData ';
617.0 myRespHeaderUserDataAddr = Addr(myRespHeaderUserData);
618.0 myRespHeaderUserData.respStatusCodeAddr = Addr(respStatusCode);
619.0 myRespHeaderUserData.mainlineHdrFlagsAddr = Addr(mainlineHdrFla
620.0
621.0 lOption = HWTH_OPT_RESPONSEHDR_USERDATA;
622.0 lOptionValueAddr = Addr(myRespHeaderUserData);
623.0 lOptionValueLen = Size(myRespHeaderUserData);
624.0
625.0 Display('** Set HWTH_OPT_RESPONSEHDR_USERDATA for request **');
626.0
627.0 If ^HTTP_Set(lRc,inHandle,lOption,lOptionValueAddr,
628.0 lOptionValuelen,lDiagArea) Then
629.0 Return(False);
630.0
631.0 /* ------------------------------------------------------------
632.0 Set the response body callback routine
633.0 Set the address of the routine that is to receive control
634.0 there is a response body returned by the server.
635.0 ------------------------------------------------------------
636.0
637.0 lOption = HWTH_OPT_RESPONSEBODY_EXIT;
638.0 lOptionValue = ''b;
639.0 lOptionValueLen = 4;
640.0 lOptionValueAddr = RespBdyExitAddr_Ptr;
641.0
642.0 Display('** Set HWTH_OPT_RESPONSEBODY_EXIT for request **');
643.0
644.0 If ^HTTP_Set(lRc,inHandle,lOption,lOptionValueAddr,
645.0 lOptionValuelen,lDiagArea) Then
646.0 Return(False);
647.0
648.0 /* ------------------------------------------------------------
649.0 Set the response body callback routine user data
650.0 Example to show how data can be passed to the response bod
651.0 callback routine to allow the routine to customize its
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 Line.File
0 652.0 processing.
653.0 ------------------------------------------------------------
654.0
655.0 myRespBodyUserData = ''b;
656.0 myRespBodyUserData.respBodyEyeCatcher = 'BodyData';
657.0 myRespBodyUserData.mainlineHdrFlagsAddr = Addr(mainlineHdrFlags
658.0 myRespBodyUserData.responseBodyDataAddr = Addr(responseBodyData
659.0
660.0 /* Save the address of the response body userdata for use by th
661.0 response body
662.0 */
663.0 lOption = HWTH_OPT_RESPONSEBODY_USERDATA;
664.0 lOptionValue = ''b;
665.0 lOptionValueAddr = Addr(myRespBodyUserData);
666.0 lOptionValueLen = Size(myRespBodyUserData);
667.0
668.0 Display('** Set HWTH_OPT_RESPONSEBODY_USERDATA for request**')
669.0
670.0 If ^HTTP_Set(lRc,inHandle,lOption,lOptionValueAddr,
671.0 lOptionValuelen,lDiagArea) Then
672.0 Return(False);
673.0
674.0 /* ------------------------------------------------------------
675.0 Set the response body callback routine user data
676.0 Have the toolkit convert the response body from ASCII to E
677.0 ------------------------------------------------------------
678.0 lOption = HWTH_OPT_TRANSLATE_RESPBODY;
679.0 lOptionDecValue = HWTH_XLATE_RESPBODY_A2E;
680.0 lOptionValueLen = 4;
681.0 lOptionValueAddr = Addr(lOptionDecValue);
682.0
683.0 Display('** Set HWTH_OPT_TRANSLATE_RESPBODY for request **');
684.0
685.0 If ^HTTP_Set(lRc,inHandle,lOption,lOptionValueAddr,
686.0 lOptionValuelen,lDiagArea) Then
687.0 Return(False);
688.0
689.0 /* ------------------------------------------------------------
690.0 Build the necessary HTTP request headers
691.0 Create an SLIST and add a number of HTTP request headers t
692.0 it so that we can set multiple HTTP headers to be associat
693.0 with a single option
694.0 ------------------------------------------------------------
695.0 lOptionSListAddr = Addr(lOptionSList);
696.0
697.0 If BuildSList(inHandle, lOptionSListAddr) Then
698.0 Do;
699.0 lOption = HWTH_OPT_HTTPHEADERS;
700.0 lOptionValueLen = Size(lOptionSList);
701.0
702.0 Display('** Set HWTH_OPT_HTTPHEADERS for request **');
703.0
704.0 If ^HTTP_Set(lRc,inHandle,lOption,lOptionSListAddr,
705.0 lOptionValuelen,lDiagArea) Then
706.0 Return(False);
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 Line.File
0 707.0 End;
708.0 Else
709.0 Return(False);
710.0
711.0 Return(True);
712.0 End HTTP_SetupRequest;
713.0
714.0 /**************************************************************
715.0 /*
716.0 /* Procedure: BuildSList
717.0 /* Builds the required linked list for the HTTP headers optio
718.0 /*
719.0 /**************************************************************
720.0 BuildSList: Procedure(inHandle, SListAddr)
721.0 Returns(Bit(1));
722.0
723.0 Dcl inHandle Type HWTH_HANDLE_TYPE;
724.0 Dcl SListAddr Ptr;
725.0 Dcl lSList Type HWTH_SLIST_TYPE Based(SListAddr);
726.0 Dcl lfunction Type HWTH_SLST_FUNCTION_TYPE;
727.0 Dcl lString Char(256);
728.0 Dcl lStringAddr Ptr;
729.0 Dcl lStringLen Fixed Binary(32) Unsigned;
730.0
731.0 lStringAddr = Addr(lString);
732.0
733.0 /* ------------------------------------------------------------
734.0 Add the Accept request header
735.0 Create a brand new SLST and specify the first header to be
736.0 "Accept" header that requests that the server return the d
737.0 requested by the GET request to be in JSON format.
738.0 ------------------------------------------------------------
739.0 lfunction = HWTH_SLST_NEW;
740.0 lstring = ''b;
741.0 lstring = 'Accept:application/json';
742.0 lstringLen = 23;
743.0 lSList = sysnull();
744.0
745.0 Display('* Add Accept:application/json request hdr *');
746.0
747.0 If (^HTTP_Slist(lRc, inHandle, lfunction, lSList, lStringAddr,
748.0 lStringLen, lDiagArea)) Then
749.0 Return(False);
750.0
751.0 /* ------------------------------------------------------------
752.0 Add the Accept-Language request header
753.0 Append to the just-created SLST and specify an addition op
754.0 "Accept-Language" to infer to the server the regional sett
755.0 preferred by this application.
756.0 ------------------------------------------------------------
757.0 lfunction = HWTH_SLST_APPEND;
758.0 lstring = ''b;
759.0 lstring = 'Accept-Language: en-US';
760.0 lstringLen = 22;
761.0
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 Line.File
0 762.0 Display('** Add Accept-Language: en-US request hdr **');
763.0
764.0 If (^HTTP_Slist(lRc, inHandle, lfunction, lSList, lStringAddr,
765.0 lStringLen, lDiagArea)) Then
766.0 Return(False);
767.0
768.0 Return(True);
769.0 End BuildSList;
770.0
771.0 /**************************************************************
772.0 /*
773.0 /* Procedure: HTTP_SList
774.0 /* Issues the HWTHSLST service and performs error checking
775.0 /*
776.0 /**************************************************************
777.0 HTTP_Slist: Procedure(sListRc, inHandle, inFunction, SList,
778.0 inStringAddr, inStringLen, inDiagArea)
779.0 Returns(Bit(1));
780.0
781.0 Dcl sListRc Type HWTH_RETURNCODE_TYPE;
782.0 Dcl inHandle Type HWTH_HANDLE_TYPE;
783.0 Dcl inFunction Type HWTH_SLST_FUNCTION_TYPE;
784.0 Dcl SList Type HWTH_SLIST_TYPE;
785.0 Dcl inStringAddr Ptr;
786.0 Dcl inStringLen Fixed Binary(32) Unsigned;
787.0 Dcl inDiagArea Type HWTH_DIAGAREA_TYPE;
788.0
789.0 Call HWTHSLST(sListRc, inHandle, inFunction, SList,
790.0 inStringAddr, inStringLen, inDiagArea);
791.0
792.0 If sListRc = HWTH_OK Then
793.0 Display('SUCCESS: SList succeeded (HWTHSLST).');
794.0 Else
795.0 Do;
796.0 ErrorMessage = 'Slist failed (HWTHSLST).'||
797.0 'Request handle: '||inHandle;
798.0 Call Display_Error(sListRc,inDiagArea,ErrorMessage);
799.0 Return(False);
800.0 End;
801.0
802.0 Return(True);
803.0 End HTTP_Slist;
804.0
805.0 /**************************************************************
806.0 /*
807.0 /* Procedure: HTTP_Request
808.0 /* Issues the HWTHRQST service and performs error checking
809.0 /*
810.0 /**************************************************************
811.0 HTTP_Request: Procedure(requestRc, inCHandle, inRHandle,
812.0 inDiagArea)
813.0 Returns(Bit(1));
814.0
815.0 Dcl requestRc Type HWTH_RETURNCODE_TYPE;
816.0 Dcl inCHandle Type HWTH_HANDLE_TYPE;
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 Line.File
0 817.0 Dcl inRHandle Type HWTH_HANDLE_TYPE;
818.0 Dcl inDiagArea Type HWTH_DIAGAREA_TYPE;
819.0
820.0 Call HWTHRQST(requestRc,inCHandle,inRHandle,inDiagArea);
821.0
822.0 If requestRc = HWTH_OK Then
823.0 Display('SUCCESS: Request succeeded (HWTHRQST).');
824.0 Else
825.0 Do;
826.0 ErrorMessage = 'Request failed (HWTHRQST).'||
827.0 'Connection handle: '||inCHandle||
828.0 'Request handle: '||inRHandle;
829.0 Call Display_Error(requestRc,inDiagArea,ErrorMessage);
830.0 Return(False);
831.0 End;
832.0
833.0 Return(True);
834.0 End HTTP_Request;
835.0
836.0 /**************************************************************
837.0 /*
838.0 /* Procedure: HTTP_Disconnect
839.0 /* Issues the HWTHDISC service and performs error checking
840.0 /*
841.0 /**************************************************************
842.0 HTTP_Disconnect: Procedure(discRc, inHandle, inDiagArea);
843.0
844.0 Dcl discRc Type HWTH_RETURNCODE_TYPE;
845.0 Dcl inHandle Type HWTH_HANDLE_TYPE;
846.0 Dcl inDiagArea Type HWTH_DIAGAREA_TYPE;
847.0
848.0 Call HWTHDISC(discRc,inHandle,inDiagArea);
849.0
850.0 If discRc = HWTH_OK Then
851.0 Display('SUCCESS: Disconnect succeeded (HWTHDISC).');
852.0 Else
853.0 Do;
854.0 ErrorMessage = 'Disconnect (HWTHDISC) failed.'||
855.0 'Connection handle: '||inHandle;
856.0 Call Display_Error(discRc,inDiagArea,ErrorMessage);
857.0 End;
858.0
859.0 End HTTP_Disconnect;
860.0
861.0 /**************************************************************
862.0 /*
863.0 /* Procedure: HTTP_Terminate
864.0 /*
865.0 /**************************************************************
866.0 HTTP_Terminate: Procedure(termRc, inHandle, inForceOption,
867.0 inDiagArea);
868.0
869.0 Dcl termRc Type HWTH_RETURNCODE_TYPE;
870.0 Dcl inHandle Type HWTH_HANDLE_TYPE;
871.0 Dcl inDiagArea Type HWTH_DIAGAREA_TYPE;
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 Line.File
0 872.0 Dcl inForceOption Type HWTH_FORCEOPTION_TYPE;
873.0
874.0 Call HWTHTERM(termRc,inHandle,inForceOption,inDiagArea);
875.0
876.0 If termRc = HWTH_OK Then
877.0 Display('SUCCESS: Terminate succeeded (HWTHTERM).');
878.0 Else
879.0 Do;
880.0 ErrorMessage = 'Terminate failed (HWTHTERM).'||
881.0 'Handle: '||inHandle;
882.0 Call Display_Error(termRc,inDiagArea,ErrorMessage);
883.0 End;
884.0
885.0 End HTTP_Terminate;
886.0
887.0 /**************************************************************
888.0 /* Procedure: writeData
889.0 /*
890.0 /* Function: Write the airport data
891.0 /* For simplicity, this sample outputs the data to the console
892.0 /* In a real world application, this data could be displayed
893.0 /* real-time in an application, written to storage media or
894.0 /* displayed in some log or other media.
895.0 /*
896.0 /**************************************************************
897.0 writeData: Procedure;
898.0
899.0 Dcl airportDelayFillin Char(3);
900.0
901.0 Display('***********************************');
902.0
903.0 Display('Airport data for '||responseBodyData.airportIATA);
904.0
905.0 Display('***********************************');
906.0
907.0 Display(' ');
908.0
909.0 Display('Airport name: '||responseBodyData.airportName);
910.0
911.0 Display('Airport state: '||responseBodyData.airportState);
912.0
913.0 Display('-----------------------------------');
914.0
915.0 If responseBodyData.airportDelay Then
916.0 airportDelayFillin = "yes";
917.0 Else
918.0 airportDelayFillin = "no";
919.0
920.0 Display('Airport Delay: '||airportDelayFillin);
921.0
922.0 If responseBodyData.airportDelay Then
923.0 Do;
924.0 Display('Delay Type: '||responseBodyData.airportStatusType)
925.0
926.0 Display('Delay Reason: '||responseBodyData.airportStatusRea
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 Line.File
0 927.0
928.0 Display('Avg Delay: '||responseBodyData.airportAverageDelay
929.0 End;
930.0
931.0 Display('-----------------------------------');
932.0
933.0 Display('Current weather conditions: ');
934.0 Display(responseBodyData.airportWeatherCond);
935.0
936.0 Display('Temperature: '||responseBodyData.airportTemp);
937.0
938.0 Display('Wind: '||responseBodyData.airportWind);
939.0
940.0 Display('***********************************');
941.0
942.0 End writeData;
943.0
944.0 /**************************************************************
945.0 /**************************************************************
946.0 /* Procedure: Display_Error
947.0 /*
948.0 /* Function: A helper proc for displaying error diagnostic
949.0 /* information.
950.0 /*
951.0 /**************************************************************
952.0 Display_Error: Procedure(inRc,inDiagArea,inErrorMessage);
953.0
954.0 Dcl inRc Type HWTH_RETURNCODE_TYPE inonly nonasgn;
955.0 Dcl inDiagArea Type HWTH_DIAGAREA_TYPE inonly nonasgn;
956.0 Dcl inErrorMessage Char(200) inonly nonasgn;
957.0
958.0 Display(' ');
959.0
960.0 /* Write the Error Text
961.0 */
962.0 Display(inErrorMessage);
963.0
964.0 Display(' ');
965.0
966.0 /* Write the Return Code
967.0 */
968.0 Display('Return Code = ' || HEX(inRc));
969.0
970.0 Display(' ');
971.0
972.0 /* Write the Diag Service
973.0 */
974.0 Display('Service = ' || HEX(inDiagArea.HWTH_Service));
975.0 Display(' ');
976.0
977.0 /* Write the Diag Reason Code
978.0 */
979.0 Display('Reason Code = ' || HEX(inDiagArea.HWTH_ReasonCode));
980.0
981.0 /* Write the Diag Description
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 Line.File
0 982.0 Note: DISPLAY has a limitation on number of characters to di
983.0 therefore, 2 DISPLAY statements are used to display th
984.0 entire ReasonDesc field.
985.0 */
986.0 Display(' ');
987.0 Display('Reason Text = '|| SUBSTR(inDiagArea.HWTH_ReasonDesc,1,
988.0 Display(SUBSTR(inDiagArea.HWTH_ReasonDesc,111,17));
989.0
990.0 Display(' ');
991.0
992.0 End Display_Error;
993.0
994.0 End HWTHXPI1;
995.0
996.0 HWTHHDRX: Procedure(HTTPResponse, exitFlags, namePtr, nameLen,
997.0 valuePtr, valueLen, userDataPtr, userDataLe
998.0 OPTIONS(REORDER)
999.0 Returns(Fixed Binary(31) ByValue);
1000.0 /*********************RSTART OF SPECIFICATIONS*****************
1001.0 /*
1002.0 /*01* MODULE-NAME: HWTHHDRX
1003.0 /*
1004.0 /*01* DESCRIPTION: Sample Response Header Exit
1005.0 /*
1006.0 /*01* PROPRIETARY STATEMENT=
1007.0 /***PROPRIETARY_STATEMENT**************************************
1008.0 /*
1009.0 /* LICENSED MATERIALS - PROPERTY OF IBM
1010.0 /* 5650-ZOS COPYRIGHT IBM CORP. 2015
1011.0 /* STATUS=HBB77A0
1012.0 /*
1013.0 /***END_OF_PROPRIETARY_STATEMENT*******************************
1014.0 /**************************************************************
1015.0 /*01* DISCLAIMER =
1016.0 /*
1017.0 /* THIS SAMPLE PROGRAM IS PROVIDED FOR TUTORIAL PURPOSES ONLY.
1018.0 /* COMPLETE HANDLING OF ERROR CONDITIONS HAS NOT BEEN SHOWN OR
1019.0 /* ATTEMPTED, AND THIS PROGRAM HAS NOT BEEN SUBMITTED TO FORMA
1020.0 /* IBM TESTING. THIS PROGRAM IS DISTRIBUTED ON AN 'AS IS' BAS
1021.0 /* WITHOUT ANY WARRANTIES EITHER EXPRESSED OR IMPLIED.
1022.0 /*
1023.0 /**************************************************************
1024.0 /*
1025.0 /**********************END OF SPECIFICATIONS*******************
1026.0
1027.0 Dcl exitFlags Type HWTH_RESP_EXIT_FLAGS_TYPE;
1028.0 Dcl namePtr Ptr;
1029.0 Dcl nameLen Fixed Binary(32) Unsigned;
1030.0 Dcl valueLen Fixed Binary(32) Unsigned;
1031.0 Dcl valuePtr Ptr;
1032.0 Dcl userDataPtr Ptr;
1033.0 Dcl userDataLen Fixed Binary(32) Unsigned;
1034.0
1035.0 Dcl numericLenC Fixed Binary(32) Unsigned Value(100);
1036.0 Dcl charLenC Fixed Binary(32) Unsigned Value(200);
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 Line.File
0 1037.0
1038.0 Dcl pName Char(charLenC) Based(NamePtr);
1039.0 Dcl pValue Char(charLenC) Based(ValuePtr);
1040.0 Dcl HTTPResponse Type HWTH_STATUS_LINE_TYPE;
1041.0 Dcl HTTPResponseVersion Char(charLenC)
1042.0 Based(HTTPResponse.HWTH_Version
1043.0 Dcl HTTPResponseReason Char(charLenC)
1044.0 Based(HTTPResponse.HWTH_ReasonP
1045.0
1046.0 Dcl lLength Fixed Binary(32) Unsigned;
1047.0 Dcl charNumber Char(8);
1048.0 Dcl lName Char(charLenC);
1049.0 Dcl lReason Char(charLenC);
1050.0 Dcl lValue Char(charLenC);
1051.0
1052.0 /* Data to be passed back and forth between the main program an
1053.0 response header exit
1054.0
1055.0 Note: Repeated declaration from main program here to make th
1056.0 sample to be standalone, without needing to include other fi
1057.0 */
1058.0
1059.0 Dcl myRespHeaderUserDataAddr Ptr;
1060.0 Dcl 1 myRespHeaderUserData Based(myRespHeaderUserDataAddr)
1061.0 ,3 respHdrEyeCatcher Char(8)
1062.0 ,3 respStatusCodeAddr Ptr
1063.0 ,3 respHeaderCount Fixed Binary(32) Unsigned
1064.0 ,3 mainlineHdrFlagsAddr Ptr
1065.0 ;
1066.0
1067.0 Dcl 1 mainlineHdrFlags Based(mainlineHdrFlagsAddr)
1068.0 ,3 contentTypeIsJSON Bit(1)
1069.0 ,3 * Bit(31)
1070.0 ;
1071.0
1072.0 Dcl respStatusCode Fixed Binary(32) Unsigned
1073.0 Based(respStatusCodeAddr);
1074.0
1075.0 /* Write "header exit entered" message
1076.0 */
1077.0 Display('*******************************************');
1078.0 Display('** Response Header Exit Receives Control **');
1079.0
1080.0 /* Make sure headerUserData was specified
1081.0 */
1082.0 If userDataPtr = sysnull() Then
1083.0 Do;
1084.0 Display('No Header userdata was specified!');
1085.0 Return(HWTH_RESP_EXIT_RC_ABORT);
1086.0 End;
1087.0
1088.0 /* Map the header user data
1089.0 */
1090.0 myRespHeaderUserDataAddr = userDataPtr;
1091.0
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 Line.File
0 1092.0 /* Write status code and reason the first time the header exit
1093.0 receives control
1094.0 */
1095.0 If respStatusCode = 0 Then
1096.0 Do;
1097.0 Display(' ');
1098.0 Display('**************************************');
1099.0 Display('Response status code = '||
1100.0 HTTPResponse.HWTH_statusCode||'.');
1101.0
1102.0 /* Use either the length of the HTTP status reason or the l
1103.0 of the field when writing the reason
1104.0 */
1105.0 If HTTPResponse.HWTH_ReasonLen > numericLenc Then
1106.0 lLength = numericLenc;
1107.0 Else
1108.0 lLength = HTTPResponse.HWTH_ReasonLen;
1109.0
1110.0 lReason = ' ';
1111.0 Substr(lReason,1,lLength) = Substr(HTTPResponseReason,1,lLe
1112.0 Display('HTTP Status Reason = '||lReason||'.');
1113.0 Display('**************************************');
1114.0 Display(' ');
1115.0 End;
1116.0
1117.0 /* Copy the statusCode and headerCount into the HeaderUserData
1118.0 */
1119.0 respStatusCode = HTTPResponse.HWTH_statusCode;
1120.0 myRespHeaderUserData.respHeaderCount =
1121.0 myRespHeaderUserData.respHeaderCount
1122.0
1123.0 /* If the system did not return the expected response, then abo
1124.0 We don't want to proceed further if the status was not ok.
1125.0 control back to the HWTHRQST call as soon as possible
1126.0 */
1127.0 If HTTPResponse.HWTH_statusCode ^= 200 Then /* (HTTP OK) */
1128.0 Return (HWTH_RESP_EXIT_RC_ABORT);
1129.0
1130.0 /* If exitflags were specified, make a note of it
1131.0 */
1132.0 If exitFlags > 0 Then
1133.0 Do;
1134.0 Select(ExitFlags);
1135.0 When (HWTH_EXITFLAG_COOKIESTORE_FULL)
1136.0 Display('Cookie Store Full!');
1137.0 Otherwise
1138.0 Display('Other exit flag found.');
1139.0 End;
1140.0 End;
1141.0
1142.0 /* Copy the name and value portions of the header and
1143.0 check their values
1144.0 */
1145.0 If nameLen > numericLenC Then
1146.0 lLength = numericLenC;
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 Line.File
0 1147.0 Else
1148.0 lLength = nameLen;
1149.0
1150.0 lName = ' ';
1151.0 Substr(lName,1,lLength) = Substr(pName,1,lLength);
1152.0
1153.0 /* Print the header name
1154.0 */
1155.0 Display('Response Header '||myRespHeaderUserData.respHeaderCoun
1156.0 ' Name:');
1157.0 Display(Substr(lName,1,lLength));
1158.0
1159.0 If ValueLen > numericLenc Then
1160.0 lLength = numericLenc;
1161.0 Else
1162.0 lLength = ValueLen;
1163.0
1164.0 lValue = ' ';
1165.0 Substr(lValue,1,lLength) = Substr(pValue,1,lLength);
1166.0
1167.0 /* Print the header value
1168.0 */
1169.0 Display('Response Header '||myRespHeaderUserData.respHeaderCoun
1170.0 ' Value:');
1171.0
1172.0 Display(Substr(lValue,1,lLength));
1173.0
1174.0 /* Did we receive the header for the content type and is the
1175.0 value application/json?
1176.0 */
1177.0 If Substr(lName,1,12) = 'Content-Type' Then
1178.0 Do;
1179.0 If Substr(lValue,1,16) = 'application/json' Then
1180.0 Do;
1181.0 /* Set indicator that we have the right format of data
1182.0 */
1183.0 mainlineHdrFlags.contentTypeIsJSON = '1'b;
1184.0 Display('Received correct Content-Type header.');
1185.0 End;
1186.0 End;
1187.0
1188.0 /* Write "header exit exited" message
1189.0 */
1190.0 Display('** Response Header Exit Returns **');
1191.0
1192.0 Return(HWTH_RESP_EXIT_RC_OK);
1193.0
1194.0 End HWTHHDRX;
1195.0
1196.0 HWTHBDYX: PROCEDURE(HTTPResponse, exitFlags,
1197.0 bodyPtr, bodySize, userDataPtr, userDataLen
1198.0 OPTIONS(REORDER)
1199.0 Returns(Fixed Binary(31) ByValue);
1200.0 /*********************RSTART OF SPECIFICATIONS*****************
1201.0 /*
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 Line.File
0 1202.0 /*01* MODULE-NAME: HWTHBDYX
1203.0 /*
1204.0 /*01* DESCRIPTION: Sample Response Body Exit
1205.0 /*
1206.0 /*01* PROPRIETARY STATEMENT=
1207.0 /***PROPRIETARY_STATEMENT**************************************
1208.0 /*
1209.0 /* LICENSED MATERIALS - PROPERTY OF IBM
1210.0 /* 5650-ZOS COPYRIGHT IBM CORP. 2015
1211.0 /* STATUS=HBB77A0
1212.0 /*
1213.0 /***END_OF_PROPRIETARY_STATEMENT*******************************
1214.0 /**************************************************************
1215.0 /*01* DISCLAIMER =
1216.0 /*
1217.0 /* THIS SAMPLE PROGRAM IS PROVIDED FOR TUTORIAL PURPOSES ONLY.
1218.0 /* COMPLETE HANDLING OF ERROR CONDITIONS HAS NOT BEEN SHOWN OR
1219.0 /* ATTEMPTED, AND THIS PROGRAM HAS NOT BEEN SUBMITTED TO FORMA
1220.0 /* IBM TESTING. THIS PROGRAM IS DISTRIBUTED ON AN 'AS IS' BAS
1221.0 /* WITHOUT ANY WARRANTIES EITHER EXPRESSED OR IMPLIED.
1222.0 /*
1223.0 /**************************************************************
1224.0 /*
1225.0 /**********************END OF SPECIFICATIONS*******************
1226.0 /* This variable allows PL/X to resolve all HWT service call
1227.0 invocations via two-table lookup, and thereby not requiring
1228.0 part to be link edited with the HWTHCSS stub.
1229.0 */
1230.0
1231.0 /* A parser instance is required for all JSON callable services
1232.0 */
1233.0 Dcl Parser_Instance Type HWTJ_PARSERHANDLE_TYPE External;
1234.0
1235.0 /* A structure for storing JSON reason codes and error descript
1236.0 */
1237.0 Dcl Diag_Area Type HWTJ_DIAGAREA_TYPE;
1238.0
1239.0 /* A return code to store the result of each service call.
1240.0 */
1241.0 Dcl returnCode Fixed Binary(31) External;
1242.0
1243.0 Dcl exitFlags Fixed Binary(32) Unsigned;
1244.0 Dcl bodyPtr Ptr;
1245.0 Dcl bodySize Fixed Binary(32) Unsigned;
1246.0 Dcl userDataPtr Ptr;
1247.0 Dcl userDataLen Fixed Binary(32) Unsigned;
1248.0
1249.0 Dcl numericLenC Fixed Binary(32) Unsigned Value(100);
1250.0 Dcl charLenC Fixed Binary(32) Unsigned Value(200);
1251.0
1252.0 Dcl HTTPResponse Type HWTH_STATUS_LINE_TYPE;
1253.0
1254.0 Define Alias LENGTH_TYPE Fixed Binary(31);
1255.0 Define Alias ENTRYNAME_TYPE Char(32);
1256.0 Define Alias ENTRYVALUE_TYPE Char(32);
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 Line.File
0 1257.0 Define Alias BUFFER_TYPE Char(256);
1258.0 Define Alias EBCDIC_RC_TYPE Char(8); /* For display int as
1259.0
1260.0 /* Data to be passed back and forth between the main program an
1261.0 response body exit
1262.0
1263.0 Note: Repeated declaration from main program here to make th
1264.0 sample to be standalone, without needing to include other fi
1265.0 */
1266.0 Dcl myRespBodyUserDataAddr Ptr;
1267.0 Dcl 1 myRespBodyUserData Based(myRespBodyUserDataAddr)
1268.0 ,3 respBodyEyeCatcher Char(8)
1269.0 ,3 mainlineHdrFlagsAddr Ptr
1270.0 ,3 responseBodyDataAddr Ptr
1271.0 ;
1272.0
1273.0 Dcl 1 responseBodyData Based(responseBodyDataAddr)
1274.0 ,3 airportGeneralInfo
1275.0 ,5 airportName Char(50)
1276.0 ,5 airportIATA Char(6)
1277.0 ,5 airportState Char(30)
1278.0 ,3 airportDelayInfo
1279.0 ,5 airportDelay Bit(1)
1280.0 ,5 * Bit(31)
1281.0 ,5 airportStatusType Char(30)
1282.0 ,5 airportStatusReason Char(30)
1283.0 ,5 airportAverageDelay Char(30)
1284.0 ,3 airportWeather
1285.0 ,5 airportWeatherCond Char(30)
1286.0 ,5 airportTemp Char(30)
1287.0 ,5 airportWind Char(30)
1288.0 ;
1289.0 /* Data stored by the header exit that the body exit wishes to
1290.0 interrogate
1291.0 */
1292.0 Dcl 1 mainlineHdrFlags Based(mainlineHdrFlagsAddr)
1293.0 ,3 contentTypeIsJSON Bit(1)
1294.0 ,3 * Bit(31)
1295.0 ;
1296.0
1297.0 Dcl ErrorMessage Char(200) External;
1298.0 /* Write "body exit entered" message
1299.0 */
1300.0 Display('** Response Body Exit Receives Control **');
1301.0
1302.0 /* Ignore the status line. The design of this sample is to abo
1303.0 the response processing in the header exit if the status lin
1304.0 indicates a "not ok" condition. The exit will never even re
1305.0 control in this case.
1306.0 */
1307.0
1308.0 /* Make sure bodyUserData was specified
1309.0 */
1310.0 If userDataPtr = sysnull() Then
1311.0 Do;
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 Line.File
0 1312.0 Display('No Body userdata was specified!');
1313.0
1314.0 Return (HWTH_RESP_EXIT_RC_ABORT);
1315.0 End;
1316.0
1317.0 /* Map the body user data
1318.0 */
1319.0 myRespBodyUserDataAddr = userDataPtr;
1320.0
1321.0 /* Did the response come back in JSON format?
1322.0 */
1323.0 If ^mainlineHdrFlags.contentTypeIsJSON Then
1324.0 Do;
1325.0 Display('Response body in control without ever '||
1326.0 'receiving indicator of JSON data.');
1327.0
1328.0 Return (HWTH_RESP_EXIT_RC_ABORT);
1329.0 End;
1330.0
1331.0 /* Use the z/OS Client Web Enablement Toolkit JSON parser
1332.0 to parse thru the JSON data
1333.0 */
1334.0 Call Init_Parser(Parser_Instance);
1335.0
1336.0 If returnCode ^= HWTJ_OK Then
1337.0 Return (HWTH_RESP_EXIT_RC_ABORT);
1338.0
1339.0 /* Parse the sample JSON text.
1340.0 */
1341.0 Call Parse_JSON_Text(Parser_Instance, bodyPtr, bodySize);
1342.0
1343.0 If returnCode ^= HWTJ_OK Then
1344.0 Return (HWTH_RESP_EXIT_RC_ABORT);
1345.0
1346.0 /* Search the data to get the necessary pieces of information
1347.0 */
1348.0 Call searchAndDeserializeData;
1349.0
1350.0 /* Terminate the parser instance
1351.0 */
1352.0 Call Term_Parser(Parser_Instance);
1353.0
1354.0 /* Write "body exit exited" message
1355.0 */
1356.0 Display('** Response Body Exit Returns **');
1357.0
1358.0 Return (HWTH_RESP_EXIT_RC_OK);
1359.0
1360.0 /**************************************************************
1361.0 /* Procedure: searchAndDeserializeData
1362.0 /*
1363.0 /* Function: Search for various data returned by the server
1364.0 /* and save them in a data structure for future use.
1365.0 /*
1366.0 /* Services Used:
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 Line.File
0 1367.0 /*
1368.0 /* Almost all of the routines called by this routine and bel
1369.0 /* were copied directly from the z/OS Client Web Enablement
1370.0 /* Toolkit JSON parser sample (HWTJXPX1).
1371.0 /*
1372.0 /* Usage:
1373.0 /*
1374.0 /* Use HWTJSRCH to find multipe name value pairs
1375.0 /*
1376.0 /**************************************************************
1377.0 searchAndDeserializeData: Procedure;
1378.0
1379.0 /* Search for specific values and objects in the response body
1380.0 deserialize them into the myRespBodyUserData data structure
1381.0 used to generate a report of the data.
1382.0 */
1383.0 Dcl stringPtr Ptr;
1384.0 Dcl stringLen Fixed Binary(31);
1385.0 Dcl stringValue Char(50) Based(stringPtr);
1386.0
1387.0 Dcl statusObject Type HWTJ_HANDLE_TYPE Initial(''b);
1388.0 Dcl weatherObject Type HWTJ_HANDLE_TYPE Initial(''b);
1389.0
1390.0 /*-------------------------------------------------------------
1391.0 Get airportGeneralInfo
1392.0 -------------------------------------------------------------
1393.0
1394.0 /* Get airportName
1395.0 */
1396.0 stringPtr = Find_String(0, 'name',4,stringLen);
1397.0
1398.0 If returnCode = HWTJ_OK Then
1399.0 Do;
1400.0 If stringLen > Length(responseBodyData.airportName) Then
1401.0 stringLen = Length(responseBodyData.airportName);
1402.0
1403.0 Substr(responseBodyData.airportName,1,stringLen) =
1404.0 Substr(stringValue,1,stringLen);
1405.0 End;
1406.0
1407.0 /* Get airportIATA
1408.0 */
1409.0 stringPtr = Find_String(0, 'IATA',4,stringLen);
1410.0
1411.0 If returnCode = HWTJ_OK Then
1412.0 Do;
1413.0 If stringLen > Length(responseBodyData.airportIATA) Then
1414.0 stringLen = Length(responseBodyData.airportIATA);
1415.0
1416.0 Substr(responseBodyData.airportIATA,1,stringLen) =
1417.0 Substr(stringValue,1,stringL
1418.0 End;
1419.0
1420.0 /* Get airportState
1421.0 */
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 Line.File
0 1422.0 stringPtr = Find_String(0, 'state',5,stringLen);
1423.0
1424.0 If returnCode = HWTJ_OK Then
1425.0 Do;
1426.0 If stringLen > Length(responseBodyData.airportState) Then
1427.0 stringLen = Length(responseBodyData.airportState);
1428.0
1429.0 Substr(responseBodyData.airportState,1,stringLen) =
1430.0 Substr(stringValue,1,stringL
1431.0 End;
1432.0
1433.0 /*-------------------------------------------------------------
1434.0 Get airportDelayInfo
1435.0 -------------------------------------------------------------
1436.0
1437.0 /* Get airportDelay and convert to boolean value
1438.0 */
1439.0 stringPtr = Find_String(0,"delay",5,stringLen);
1440.0
1441.0 If returnCode = HWTJ_OK Then
1442.0 Do;
1443.0 If stringLen > Length(responseBodyData.airportDelay) Then
1444.0 stringLen = Length(responseBodyData.airportDelay);
1445.0
1446.0 If (stringLen = 4) &
1447.0 (Substr(stringValue,1,stringLen) = 'true')
1448.0 responseBodyData.airportDelay = '1'b;
1449.0 End;
1450.0
1451.0 If (returnCode = HWTJ_OK) & (responseBodyData.airportDelay) The
1452.0 Do;
1453.0 /* Get delay specifics if a delay has been reported. Find
1454.0 status object. The delay information is comprised of en
1455.0 within the status object.
1456.0 */
1457.0 statusObject = Find_Object(0,'status',6);
1458.0
1459.0 /* Get airportStatusType
1460.0 */
1461.0 stringPtr = Find_String(statusObject,'type',4,stringLen);
1462.0
1463.0 If returnCode = HWTJ_OK Then
1464.0 Do;
1465.0 If stringLen > Length(responseBodyData.airportStatusTyp
1466.0 stringLen = Length(responseBodyData.airportStatusTyp
1467.0
1468.0 Substr(responseBodyData.airportStatusType,1,stringLen)
1469.0 Substr(stringValue,1,stringL
1470.0 End;
1471.0
1472.0 /* Get airportStatusReason
1473.0 */
1474.0 stringPtr = Find_String(statusObject,'reason',6,stringLen);
1475.0
1476.0 If returnCode = HWTJ_OK Then
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 Line.File
0 1477.0 Do;
1478.0 If stringLen > Length(responseBodyData.airportStatusRea
1479.0
1480.0 stringLen = Length(responseBodyData.airportStatusRea
1481.0
1482.0 Substr(responseBodyData.airportStatusReason,1,stringLen
1483.0 Substr(stringValue,1,stringL
1484.0 End;
1485.0
1486.0 /* Get airportAverageDelay
1487.0 */
1488.0 stringPtr = Find_String(statusObject,'avgDelay',8,stringLen
1489.0
1490.0 If returnCode = HWTJ_OK Then
1491.0 Do;
1492.0 If stringLen > Length(responseBodyData.airportAverageDe
1493.0
1494.0 stringLen = Length(responseBodyData.airportAverageDe
1495.0
1496.0 Substr(responseBodyData.airportAverageDelay,1,stringLen
1497.0 Substr(stringValue,1,string
1498.0 End;
1499.0 End;
1500.0
1501.0 /*-------------------------------------------------------------
1502.0 Get airportWeather
1503.0 -------------------------------------------------------------
1504.0
1505.0 /* Find the weather object. The weather data is comprised of e
1506.0 inside the weather object.
1507.0 */
1508.0 weatherObject = Find_Object(0,'weather',7);
1509.0
1510.0 /* Get airportWeatherCond (Note that airportWeatherCond also ha
1511.0 name of "weather". The parser allows us to scope this weath
1512.0 condition within the weather object easily)
1513.0 */
1514.0 stringPtr = Find_String(weatherObject, 'weather',7,stringLen);
1515.0
1516.0 If returnCode = HWTJ_OK Then
1517.0 Do;
1518.0 If stringLen > Length(responseBodyData.airportWeatherCond)
1519.0 stringLen = Length(responseBodyData.airportWeatherCond);
1520.0
1521.0 Substr(responseBodyData.airportWeatherCond,1,stringLen) =
1522.0 Substr(stringValue,1,string
1523.0 End;
1524.0
1525.0 /* Get airportTemp
1526.0 */
1527.0 stringPtr = Find_String(weatherObject, 'temp',4,stringLen);
1528.0
1529.0 If returnCode = HWTJ_OK Then
1530.0 Do;
1531.0 If stringLen > Length(responseBodyData.airportTemp) Then
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 Line.File
0 1532.0 stringLen = Length(responseBodyData.airportTemp);
1533.0
1534.0 Substr(responseBodyData.airportTemp,1,stringLen) =
1535.0 Substr(stringValue,1,string
1536.0 End;
1537.0
1538.0 /* Get airportWeatherWind
1539.0 */
1540.0 stringPtr = Find_String(weatherObject, 'wind',4,stringLen);
1541.0
1542.0 If returnCode = HWTJ_OK Then
1543.0 Do;
1544.0 If stringLen > Length(responseBodyData.airportWind) Then
1545.0 stringLen = Length(responseBodyData.airportWind);
1546.0
1547.0 Substr(responseBodyData.airportWind,1,stringLen) =
1548.0 Substr(stringValue,1,stringL
1549.0 End;
1550.0
1551.0 End searchAndDeserializeData;
1552.0
1553.0 /**************************************************************
1554.0 /* The code below is mostly unaltered routines which were impor
1555.0 /* from the z/OS Client Web Enablement Toolkit JSON parser PL/X
1556.0 /* sample HWTJXPX1 shipped in samplib. They are not illustrati
1557.0 /* HTTP services but provide code to easily parse thru the JSON
1558.0 /* data.
1559.0 /**************************************************************
1560.0
1561.0 /**************************************************************
1562.0 /* Procedure: Init_Parser
1563.0 /*
1564.0 /* Function: Initializes the parser instance
1565.0 /*
1566.0 /* Services Used:
1567.0 /*
1568.0 /* HWTJINIT: Provides a handle to a parse instance which is
1569.0 /* then used in subsequent service calls. The
1570.0 /* HWTJINIT service must be invoked before invokin
1571.0 /* any other parsing services.
1572.0 /*
1573.0 /**************************************************************
1574.0 Init_Parser: Procedure (parserInstance);
1575.0
1576.0 Dcl MAX_WORKAREA_SIZE Fixed Binary(31) Value(0);
1577.0 Dcl parserInstance Type HWTJ_PARSERHANDLE_TYPE;
1578.0
1579.0 Call HWTJINIT(returnCode
1580.0 ,MAX_WORKAREA_SIZE
1581.0 ,parserInstance
1582.0 ,Diag_Area);
1583.0
1584.0 If returnCode = HWTJ_OK Then
1585.0 Display('SUCCESS: z/OS JSON parser initialized.');
1586.0 Else
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 Line.File
0 1587.0 Do;
1588.0 ErrorMessage = ''b;
1589.0 ErrorMessage = 'Parser initialization failed.';
1590.0 Call Display_Parse_Err(ErrorMessage);
1591.0 End;
1592.0
1593.0 End Init_Parser;
1594.0
1595.0 /**************************************************************
1596.0 /* Procedure: Parse_JSON_Text
1597.0 /*
1598.0 /* Function: Parses the sample JSON data.
1599.0 /*
1600.0 /* Services Used:
1601.0 /*
1602.0 /* HWTJPARS: Builds an internal representation of the specif
1603.0 /* JSON string. This allows efficient search,
1604.0 /* traversal, and modification of the JSON data.
1605.0 /* any other parsing services.
1606.0 /*
1607.0 /* Usage:
1608.0 /*
1609.0 /* HWTJPARS does not make a local copy of the JSON source strin
1610.0 /* Therefore,the caller must ensure that the provided source st
1611.0 /* remains unmodified for the duration of the parser instance.
1612.0 /* the source string is modified, subsequent service calls may
1613.0 /* result in unexpected behavior.
1614.0 /*
1615.0 /**************************************************************
1616.0 Parse_JSON_Text: Procedure (parserInstance, respBody, inBodyLen
1617.0
1618.0 Dcl parserInstance Type HWTJ_PARSERHANDLE_TYPE;
1619.0 Dcl respBody Ptr;
1620.0 Dcl inBodyLen Fixed Binary(32) Unsigned;
1621.0 Dcl respBodyLen Fixed Binary(31);
1622.0
1623.0 respBodyLen = inBodyLen;
1624.0
1625.0 /* Parse the sample JSON text string. Parse scans the JSON text
1626.0 creates an internal representation of the JSON data suitable
1627.0 search and create operations.
1628.0 */
1629.0 Call HWTJPARS(returnCode
1630.0 ,parserInstance
1631.0 ,respBody /* Address of the JSON text string (inpu
1632.0 ,respBodyLen /*Length of the JSON text string (inpu
1633.0 ,Diag_Area);
1634.0
1635.0 If returnCode = HWTJ_OK Then
1636.0 Display('SUCCESS: JSON data parsed.');
1637.0 Else
1638.0 Do;
1639.0 ErrorMessage = ''b;
1640.0 ErrorMessage = 'Unable to parse JSON data.';
1641.0 Call Display_Parse_Err(ErrorMessage);
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 Line.File
0 1642.0 End;
1643.0
1644.0 End Parse_JSON_Text;
1645.0
1646.0 /**************************************************************
1647.0 /* Procedure: Term_Parser
1648.0 /*
1649.0 /* Function: Performs cleanup by freeing memory used by the
1650.0 /* parser
1651.0 /*
1652.0 /* Services Used:
1653.0 /*
1654.0 /* HWTJTERM: Terminates a parser instance and frees the stora
1655.0 /* allocated by the parse services.
1656.0 /*
1657.0 /* Usage:
1658.0 /*
1659.0 /* The third parameter to HWTJTERM is used to
1660.0 /* specify the behavior of terminate if the parser is
1661.0 /* determined to be stuck in an "in-use" state. IBM
1662.0 /* recommends using the HWTJ_NOFORCE option in most cases.
1663.0 /* Because our sample is not multi-threaded, the risk of
1664.0 /* the parser getting stuck in an "in-use" state is low.
1665.0 /* Therefore, we provide a value of HWTJ_NOFORCE for the
1666.0 /* force option.
1667.0 /*
1668.0 /* NOTE: Consider enhancing this sample to postpone the call
1669.0 /* to the terminate service when a prior service call
1670.0 /* resulted in a return code of HWTJ_UNEXPECTED_ERROR.
1671.0 /* This will allow appropriate action to be taken to dump
1672.0 /* the work area storage for subsequent analysis by the
1673.0 /* IBM support center. Once the dump has been taken,
1674.0 /* terminate can be issued to free the storage from the user's
1675.0 /* address space.
1676.0 /*
1677.0 /**************************************************************
1678.0 Term_Parser: Procedure (parserInstance);
1679.0
1680.0 Dcl parserInstance Type HWTJ_PARSERHANDLE_TYPE;
1681.0
1682.0 /* On the first attempt, try to terminate with the force
1683.0 option disabled. This is the IBM recommended value for
1684.0 the force option. If the parser is in an inuse state,
1685.0 further cleanup processing is done in the following EVALUATE
1686.0 statement. A parser can be in an INUSE state if a prior serv
1687.0 call encountered an unexpected error that caused it to exit
1688.0 abnormally, or if the parser-handle is used in a multi-threa
1689.0 application.
1690.0 */
1691.0 If returnCode ^= HWTJ_PARSERHANDLE_INUSE Then
1692.0 Call HWTJTERM(returnCode
1693.0 ,parserInstance
1694.0 ,HWTJ_NOFORCE
1695.0 ,Diag_Area);
1696.0
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 Line.File
0 1697.0 /* Determine whether further cleanup processing is necessary
1698.0 */
1699.0 Select (returnCode);
1700.0
1701.0 When(HWTJ_OK)
1702.0 Display('SUCCESS: Parser work area freed.');
1703.0
1704.0 When(HWTJ_PARSERHANDLE_INUSE)
1705.0 Do;
1706.0 ErrorMessage = ''b;
1707.0 ErrorMessage = 'Unable to perform cleanup.'||
1708.0 'Retrying with FORCE option enabled.';
1709.0 Call Display_Parse_Err(ErrorMessage);
1710.0
1711.0 /* Attempt to force cleanup. Use with caution as recommen
1712.0 in the parser documentation
1713.0 */
1714.0 Call HWTJTERM(returnCode
1715.0 ,parserInstance
1716.0 ,HWTJ_FORCE
1717.0 ,Diag_Area);
1718.0
1719.0 /* Check if cleanup with FORCE option was successful.
1720.0 */
1721.0 If returnCode = HWTJ_OK Then
1722.0 Display('SUCCESS: Parser work area freed with FORCE.');
1723.0 Else
1724.0 Do;
1725.0 ErrorMessage = ''b;
1726.0 ErrorMessage = 'Unable to cleanup with HWTJ_FORCE.'||
1727.0 'Could not free parser work area.';
1728.0 Call Display_Parse_Err(ErrorMessage);
1729.0 End;
1730.0 End; /* End When HWTJ_PARSERHANDLE_INUSE */
1731.0 Otherwise
1732.0 Do;
1733.0 ErrorMessage = ''b;
1734.0 ErrorMessage = 'Unable to perform cleanup.'||
1735.0 'Could not free parser work area.';
1736.0 Call Display_Parse_Err(ErrorMessage);
1737.0 End;
1738.0 End; /* End Select */
1739.0
1740.0 End Term_Parser;
1741.0
1742.0 /**************************************************************
1743.0 /* Procedure: Find_String
1744.0 /*
1745.0 /* Function:
1746.0 /* Searches the specified JSON object for a name:value pair
1747.0 /* where the name matches the specified search string and
1748.0 /* the value type is string. This is a convenience method tha
1749.0 /* can be used when the structure of the JSON data is known
1750.0 /* beforehand.
1751.0 /*
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 Line.File
0 1752.0 /* Input:
1753.0 /* - A handle of type object or array.
1754.0 /* - A string used as the search parameter.
1755.0 /* - The length of the search string.
1756.0 /*
1757.0 /* Output:
1758.0 /* If a match is found, the string value of the name:value pa
1759.0 /* and the length of the string value will be returned.
1760.0 /*
1761.0 /**************************************************************
1762.0 Find_String: Procedure(Object
1763.0 ,Search_String
1764.0 ,Search_String_Len
1765.0 ,Value_Length
1766.0 )
1767.0 Returns( PTR byvalue );
1768.0
1769.0 Dcl Object Type HWTJ_HANDLE_TYPE;
1770.0 Dcl Search_String Type ENTRYNAME_TYPE;
1771.0 Dcl Search_String_Len Type LENGTH_TYPE;
1772.0
1773.0 Dcl String_Value_Addr PTR;
1774.0 Dcl Out_Handle PTR Initial(sysnull());
1775.0 Dcl Value_Length Fixed Binary(31);
1776.0
1777.0 Value_Length = 0;
1778.0
1779.0 String_Value_Addr = Find_Value(Object
1780.0 ,Search_String
1781.0 ,Search_String_Len
1782.0 ,HWTJ_STRING_TYPE
1783.0 ,Value_Length
1784.0 );
1785.0
1786.0 If returnCode = HWTJ_OK & String_Value_Addr ^= sysnull() Then
1787.0 Out_Handle = String_Value_Addr;
1788.0
1789.0 Return(Out_Handle);
1790.0
1791.0 End Find_String;
1792.0
1793.0 /**************************************************************
1794.0 /* Procedure: Find_Object
1795.0 /*
1796.0 /* Function:
1797.0 /* Searches the specified JSON object for a name:value pair
1798.0 /* where the name matches the specified search string and
1799.0 /* the value type is object. This is a convenience method tha
1800.0 /* can be used when the structure of the JSON data is known
1801.0 /* beforehand.
1802.0 /*
1803.0 /* Input:
1804.0 /* - A handle of type object or array.
1805.0 /* - A string used as the search parameter.
1806.0 /* - The length of the search string.
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 Line.File
0 1807.0 /*
1808.0 /* Output:
1809.0 /* If a match is found, a handle to the object value of the
1810.0 /* name:value pair is returned.
1811.0 /*
1812.0 /**************************************************************
1813.0 Find_Object: Procedure(Object
1814.0 ,Search_String
1815.0 ,Search_String_Len
1816.0 )
1817.0 Returns( TYPE HWTJ_HANDLE_TYPE byvalue );
1818.0
1819.0 DCL Object Type HWTJ_HANDLE_TYPE;
1820.0 DCL Search_String Type ENTRYNAME_TYPE;
1821.0 DCL Search_String_Len Type LENGTH_TYPE;
1822.0
1823.0 DCL Object_Handle_Addr Ptr;
1824.0 DCL Object_Handle Type HWTJ_HANDLE_TYPE
1825.0 Based(Object_Handle_Addr);
1826.0
1827.0
1828.0 DCL Out_Handle Type HWTJ_HANDLE_TYPE Initial(0);
1829.0
1830.0 Object_Handle_Addr = Find_Value(Object
1831.0 ,Search_String
1832.0 ,Search_String_Len
1833.0 ,HWTJ_OBJECT_TYPE
1834.0 ,0
1835.0 );
1836.0
1837.0 If returnCode = HWTJ_OK & Object_Handle_Addr ^= sysnull() Then
1838.0 Out_Handle = Object_Handle;
1839.0
1840.0 Return(Out_Handle);
1841.0
1842.0 End Find_Object;
1843.0
1844.0 /**************************************************************
1845.0 /* Procedure: Find_Value
1846.0 /*
1847.0 /* Function:
1848.0 /* Searches the specified object for a name:value pair whose
1849.0 /* name matches the specified search string. This is a utili
1850.0 /* method used by the find_array routines to easily search an
1851.0 /* retrieve a value from an object when the name and value ty
1852.0 /* is known.
1853.0 /*
1854.0 /* Input:
1855.0 /* - A handle of type object or array.
1856.0 /* - A string used as a search parameter.
1857.0 /* - The length of the search string.
1858.0 /* - A JSON type as defined in the IBM-provided interface
1859.0 /* definition file
1860.0 /* - An optional parameter, length of the return value. This
1861.0 /* parameter is only applied when the Expected_Value_Type
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 Line.File
0 1862.0 /* is HWTJ_STRING_TYPE or HWTJ_NUMBER_TYPE
1863.0 /*
1864.0 /* Output:
1865.0 /* - A pointer to the value is returned.
1866.0 /* - Length of the return value (if it is passed in)
1867.0 /*
1868.0 /* Services Used:
1869.0 /*
1870.0 /* HWTJGJST: Gets the JSON type associated with a specified
1871.0 /* object or entry handle.
1872.0 /*
1873.0 /* HWTJSRCH: Finds a particular name string within the JSON
1874.0 /* Text.
1875.0 /*
1876.0 /**************************************************************
1877.0 Find_Value: Procedure(Object_To_Search
1878.0 ,EntryName
1879.0 ,Name_Len
1880.0 ,Expected_Value_Type
1881.0 ,Value_Length
1882.0 )
1883.0 Returns( PTR byvalue );
1884.0
1885.0 Dcl Object_To_Search Type HWTJ_HANDLE_TYPE;
1886.0 Dcl EntryName Type ENTRYNAME_TYPE;
1887.0 Dcl Name_Len Type LENGTH_TYPE;
1888.0 Dcl Expected_Value_Type Type HWTJ_JTYPE_TYPE;
1889.0 Dcl Value_Length Type LENGTH_TYPE;
1890.0
1891.0 /*Declare a variable to hold the value if a match is found
1892.0 */
1893.0 Dcl Value_Handle Type HWTJ_HANDLE_TYPE Initial(0);
1894.0
1895.0 /* Declare a handle to store a pointer to value
1896.0 */
1897.0 Dcl Value_Addr PTR Initial(sysnull());
1898.0
1899.0 /* Declare a variable to hold the entry type returned by HWTJGJ
1900.0 */
1901.0 Dcl Entry_Type Type HWTJ_JTYPE_TYPE Initial(0);
1902.0
1903.0 Value_Length = 0; /* Initialize */
1904.0
1905.0 /* Search the specified object for the specified name.
1906.0 */
1907.0 Call HWTJSRCH(returnCode
1908.0 ,Parser_Instance
1909.0 ,HWTJ_SEARCHTYPE_OBJECT/* Limit the search scope *
1910.0 ,Addr(EntryName) /* Search string *
1911.0 ,Name_Len /* Search string length *
1912.0 ,Object_To_Search /* Handle of object to search *
1913.0 ,0 /* Starting point of the search*
1914.0 ,Value_Handle /*Search result handle (output)*
1915.0 ,Diag_Area);
1916.0
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 Line.File
0 1917.0 /* Check that the search found a result.
1918.0 */
1919.0 If (returnCode = HWTJ_OK) Then
1920.0 Do;
1921.0 /* Get the object's type.
1922.0 */
1923.0 Call HWTJGJST(
1924.0 returnCode
1925.0 ,Parser_Instance
1926.0 ,Value_Handle/*Handle to the value whose type to check (in
1927.0 ,Entry_Type /*Value type constant returned (out
1928.0 ,Diag_Area);
1929.0
1930.0 /* Verify that the returned handle has the expected type.
1931.0 */
1932.0 If Entry_type = Expected_Value_Type Then
1933.0 Do;
1934.0 If Entry_type = HWTJ_STRING_TYPE |
1935.0 Entry_type = HWTJ_NUMBER_TYPE Then
1936.0 Value_Addr = Do_Get_Value(
1937.0 Value_Handle, Entry_Type, Value_le
1938.0 Else
1939.0 Value_Addr = Do_Get_Value(Value_Handle, Entry_Type, 0
1940.0 End;
1941.0 Else
1942.0 Do;
1943.0 ErrorMessage = 'Error occurred while searching for '||
1944.0 'a name. The name was found but the '|
1945.0 'value was not of the expected type. ';
1946.0 Call Display_Parse_Err(ErrorMessage);
1947.0 End;
1948.0
1949.0 End;
1950.0 Else
1951.0 Do;
1952.0 ErrorMessage = 'Search failed. Name was not found '||
1953.0 'in the specified object.';
1954.0 Call Display_Parse_Err(ErrorMessage);
1955.0 End;
1956.0
1957.0 /* At this point, if the search did not return a match, or the
1958.0 expected type did not match the actual type, the value_addr
1959.0 output parm is still set to NULL. Otherwise, value_addr
1960.0 points to the appropriate address.
1961.0 */
1962.0 Return(Value_Addr);
1963.0 End Find_Value;
1964.0
1965.0 /**************************************************************
1966.0 /* Procedure: Do_Get_Value
1967.0 /*
1968.0 /* Function:
1969.0 /* Retrieves the specified value by calling the appropriate
1970.0 /* service using the value of the specified HWTJ_JTYPE_TYPE.
1971.0 /*
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 Line.File
0 1972.0 /* Input:
1973.0 /* - A value handle.
1974.0 /* - A valid entry type as defined in the IBM-provided interf
1975.0 /* definition file.
1976.0 /*
1977.0 /* Output:
1978.0 /* - A pointer to the value is returned.
1979.0 /* - Length of the return value (if not omitted)
1980.0 /*
1981.0 /* Services Used:
1982.0 /* HWTJGVAL: Retrieves the value of string or number entry.
1983.0 /* HWTJGNUV: Retrieves the number value in binary
1984.0 /* HWTJGBOV: Retrieves the value of a boolean entry.
1985.0 /*
1986.0 /**************************************************************
1987.0 Do_Get_Value: Procedure(Value_Handle
1988.0 ,Entry_Type
1989.0 ,Value_Length
1990.0 )
1991.0 Returns( PTR byvalue );
1992.0
1993.0 Dcl Value_Handle Type HWTJ_HANDLE_TYPE;
1994.0 Dcl Entry_Type Type HWTJ_JTYPE_TYPE;
1995.0 Dcl Value_Length Type LENGTH_TYPE;
1996.0
1997.0 Dcl Value_Addr PTR Initial(sysnull());
1998.0 Dcl String_Value_Addr PTR Initial(sysnull());
1999.0 Dcl String_Value Char(Value_Length) Based(String_Value_Add
2000.0
2001.0 /* Use a small value for this sample, if a large value could be
2002.0 returned, consider using ?STORAGE to obtain the storage to h
2003.0 the return value.
2004.0 */
2005.0 Dcl Local_Value Type BUFFER_TYPE;
2006.0 Dcl HWTJ_Boolean aligned Type HWTJ_BOOLEANVALUE_TYPE;
2007.0
2008.0 Value_Length = 0; /* Initialize */
2009.0
2010.0 /* The following checks determine the value's type and set
2011.0 the value_addr output parm appropriately.
2012.0
2013.0 In the case of a string or number type, the source text is
2014.0 copied into a new buffer, and the Value_Addr output parm is
2015.0 set to the address of this buffer.
2016.0
2017.0 In the case of a boolean value type, the HWTJ_TRUE/HWTJ_FALS
2018.0 value is converted to a bool type and the Value_Addr output
2019.0 parm is set to the address of the bool value.
2020.0
2021.0 In the case of an object or array type, the value_addr outpu
2022.0 parm is set to the address of the object or array handle.
2023.0 */
2024.0 Select(Entry_Type);
2025.0 When(HWTJ_STRING_TYPE
2026.0 ,HWTJ_NUMBER_TYPE)
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 Line.File
0 2027.0 Do;
2028.0 /* Issue HWTJGVAL to get the address and length of the st
2029.0 */
2030.0 Call HWTJGVAL(returnCode
2031.0 ,Parser_Instance
2032.0 ,Value_Handle /* Handle to a value (inpu
2033.0 ,String_Value_Addr /* Value address (outp
2034.0 ,Value_Length /* Returned value length (out
2035.0 ,Diag_Area);
2036.0
2037.0 If returnCode = HWTJ_OK Then
2038.0 Do;
2039.0 Value_Addr = Addr(Local_Value);
2040.0 If Value_Length <= Length(Local_Value) Then
2041.0 Do;
2042.0 Local_Value = Copy(String_Value,Value_Length);
2043.0
2044.0 End; /* End if Value_Length <= Length(Local_Value)
2045.0 Else
2046.0 Do;
2047.0 /* For demonstration, we return an error in this
2048.0 Another consideration is to call ?STORAGE to o
2049.0 an area using the return Value_Length and then
2050.0 re-issue HWTJGVAL to get the address and lengt
2051.0 the string. See exsample in the
2052.0 Get_Modified_JSON_String proc.
2053.0 */
2054.0 ErrorMessage = 'Buffer size is too small.';
2055.0 Call Display_Parse_Err(ErrorMessage);
2056.0
2057.0 End;
2058.0 End;
2059.0 Else
2060.0 Do;
2061.0 ErrorMessage = 'Error occurred in Do_Get_Value. '||
2062.0 'HWTJGVAL failed.';
2063.0 Call Display_Parse_Err(ErrorMessage);
2064.0 End;
2065.0 End; /* End When HWTJ_STRING_TYPE */
2066.0 When (HWTJ_BOOLEAN_TYPE)
2067.0 Do;
2068.0 /* Retrieve the value and store it in a local variable.
2069.0 */
2070.0 Call HWTJGBOV(returnCode
2071.0 ,Parser_Instance
2072.0 ,Value_Handle /* Handle to the value (input)
2073.0 ,Hwtj_Boolean /* Boolean value returned (outp
2074.0 ,Diag_Area);
2075.0
2076.0 If returnCode = HWTJ_OK Then
2077.0 /* Store the address of the boolean value in our return
2078.0 */
2079.0 Value_Addr = Addr(hwtj_Boolean);
2080.0 Else
2081.0 Do;
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 Line.File
0 2082.0 ErrorMessage = 'Error occurred in Do_Get_Value. '||
2083.0 'HWTJGBOV failed.';
2084.0 Call Display_Parse_Err(ErrorMessage);
2085.0 End;
2086.0 End; /* End When HWTJ_BOOLEAN_TYPE */
2087.0 When (HWTJ_ARRAY_TYPE
2088.0 ,HWTJ_OBJECT_TYPE)
2089.0 Do;
2090.0 /* Store the address of the handle in our return variable
2091.0 */
2092.0 value_addr = Addr(Value_Handle);
2093.0 End; /* End When HWTJ_ARRAY_TYPE */
2094.0 Otherwise
2095.0 Do;
2096.0 ErrorMessage = 'An invalid entry type is found in '||
2097.0 'Do_Get_Value.';
2098.0 Call Display_Parse_Err(ErrorMessage);
2099.0 End;
2100.0 End; /* End Select */
2101.0
2102.0 Return(Value_Addr);
2103.0
2104.0 End Do_Get_Value;
2105.0
2106.0
2107.0 /**************************************************************
2108.0 /* Procedure: Display_Parse_Err
2109.0 /*
2110.0 /* Function: A helper proc for displaying error diagnostic
2111.0 /* information.
2112.0 /*
2113.0 /**************************************************************
2114.0 Display_Parse_Err: Procedure(In_ErrorMessage);
2115.0
2116.0 Dcl In_ErrorMessage Char(200) inonly nonasgn;
2117.0
2118.0 Display(' ');
2119.0
2120.0 /* Write the Error Text
2121.0 */
2122.0 Display(In_ErrorMessage);
2123.0
2124.0 Display(' ');
2125.0
2126.0 /* Write the Return Code
2127.0 */
2128.0 Display('Return Code = ' || returnCode);
2129.0
2130.0 Display(' ');
2131.0
2132.0 /* Write the Diag Reason Code
2133.0 */
2134.0 Display('Reason Code = ' || Diag_Area.ReasonCode);
2135.0
2136.0 /* Write the Diag Description
15655-PL5 IBM(R) Enterprise PL/I for z/OS
0 Line.File
0 2137.0 Note: DISPLAY has a limitation on number of characters to di
2138.0 therefore, 2 DISPLAY statements are used to display th
2139.0 entire ReasonDesc field.
2140.0 */
2141.0 Display(' ');
2142.0 Display('Reason Text = '|| SUBSTR(Diag_Area.ReasonDesc,1,110));
2143.0 Display(SUBSTR(Diag_Area.ReasonDesc,111,17));
2144.0
2145.0 Display(' ');
2146.0
2147.0 End Display_Parse_Err;
2148.0 End HWTHBDYX;
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
Timestamp and Version Information
000000 F2F0 F2F0 =C'2020'
000004 F0F6 F2F1 =C'0621'
000008 F0F5 F4F2 F3F9 =C'054239'
00000E F0F5 F0F2 F0F3 =C'050203'
000014 0030 **** Service String
Timestamp and Version End
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
000000 001196 | HWTHBDYX DS 0D
000000 47F0 F024 001196 | B 36(,r15)
000004 01C3C5C5 CEE eyecatcher
000008 00000140 DSA size
00000C 00007178 =A(PPA1-HWTHBDYX)
000010 47F0 F001 001196 | B 1(,r15)
000014 58F0 C31C 001196 | L r15,796(,r12)
000018 184E 001196 | LR r4,r14
00001A 05EF 001196 | BALR r14,r15
00001C 00000000 =F'0'
000020 A7F4 000C 001196 | J *+24
000024 90E7 D00C 001196 | STM r14,r7,12(r13)
000028 58E0 D04C 001196 | L r14,76(,r13)
00002C 4100 E140 001196 | LA r0,320(,r14)
000030 5500 C314 001196 | CL r0,788(,r12)
000034 A724 FFF0 001196 | JH *-32
000038 58F0 C280 001196 | L r15,640(,r12)
00003C 90F0 E048 001196 | STM r15,r0,72(r14)
000040 9210 E000 001196 | MVI 0(r14),16
000044 50D0 E004 001196 | ST r13,4(,r14)
000048 18DE 001196 | LR r13,r14
00004A C030 0000 0120 001196 | LARL r3,F'288'
000050 End of Prolog
000050 5800 C1F4 000000 | L r0,_CEECAA_(,r12,
000054 5000 D13C 000000 | ST r0,#CEECAACRENT_1
000058 5800 D13C 000000 | L r0,#CEECAACRENT_1
00005C 5820 3002 000000 | L r2,=Q(@STATIC)(,r
000060 1E02 000000 | ALR r0,r2
000062 1870 000000 | LR r7,r0
000064 C060 0000 3196 000000 | LARL r6,F'12694'
00006A 5010 D138 001196 | ST r1,#SR_PARM_1(,r1
00006E 5810 7000 001300 | L r1,=A(IBMQJDSB)(,
000072 4120 6018 001300 | LA r2,_Dsc_000004(,r
000076 4140 60D0 001300 | LA r4,_Dsc_000027(,r
00007A 58F0 1008 001300 | L r15,&EPA_&WSA(,r1
00007E 5800 100C 001300 | L r0,&EPA_&WSA(,r1,
000082 5000 C1F4 001300 | ST r0,_CEECAA_(,r12,
000086 4150 66B0 001300 | LA r5,+CONSTANT_AREA
00008A 4110 D098 001300 | LA r1,#MX_TEMP1(,r13
00008E 5050 D098 001300 | ST r5,#MX_TEMP1(,r13
000092 5040 D09C 001300 | ST r4,#MX_TEMP1(,r13
000096 E54C D0A0 0000 001300 | MVHI #MX_TEMP1(r13,160
00009C 5020 D0A4 001300 | ST r2,#MX_TEMP1(,r13
0000A0 E54C D0A8 0000 001300 | MVHI #MX_TEMP1(r13,168
0000A6 0DEF 001300 | BASR r14,r15
0000A8 5810 D138 001310 | L r1,#SR_PARM_1(,r1
0000AC 5810 1010 001310 | L r1,_addrUSERDATAP
0000B0 5800 1000 001310 | L r0,_shadow6(,r1,0
0000B4 1200 001310 | LTR r0,r0
0000B6 A774 0025 001310 | JNE @1L6
0000BA 001310 | @1L8 DS 0H
0000BA 001311 | @1L2 DS 0H
0000BA 5810 7000 001312 | L r1,=A(IBMQJDSB)(,
0000BE 4120 6018 001312 | LA r2,_Dsc_000004(,r
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
0000C2 4140 6080 001312 | LA r4,_Dsc_000017(,r
0000C6 58F0 1008 001312 | L r15,&EPA_&WSA(,r1
0000CA 5800 100C 001312 | L r0,&EPA_&WSA(,r1,
0000CE 5000 C1F4 001312 | ST r0,_CEECAA_(,r12,
0000D2 4150 66DA 001312 | LA r5,+CONSTANT_AREA
0000D6 4110 D098 001312 | LA r1,#MX_TEMP1(,r13
0000DA 5050 D098 001312 | ST r5,#MX_TEMP1(,r13
0000DE 5040 D09C 001312 | ST r4,#MX_TEMP1(,r13
0000E2 E54C D0A0 0000 001312 | MVHI #MX_TEMP1(r13,160
0000E8 5020 D0A4 001312 | ST r2,#MX_TEMP1(,r13
0000EC E54C D0A8 0000 001312 | MVHI #MX_TEMP1(r13,168
0000F2 0DEF 001312 | BASR r14,r15
0000F4 41F0 0001 001314 | LA r15,1
0000F8 A7F4 00BD 001314 | J @1L429
0000FC 001315 | @1L3 DS 0H
0000FC A7F4 0002 001315 | J @1L7
000100 001315 | @1L6 DS 0H
000100 001315 | @1L7 DS 0H
000100 5810 D138 001319 | L r1,#SR_PARM_1(,r1
000104 5810 1010 001319 | L r1,_addrUSERDATAP
000108 5810 1000 001319 | L r1,_shadow6(,r1,0
00010C 5010 D134 001319 | ST r1,MYRESPBODYUSER
000110 5810 1008 001323 | L r1,_shadow6(,r1,8
000114 E300 1000 0094 001323 | LLC r0,_shadow2(,r1,0
00011A C00B 0000 0080 001323 | NILF r0,F'128'
000120 C20F 0000 0000 001323 | CLFI r0,F'0'
000126 A774 0025 001323 | JNE @1L9
00012A 001323 | @1L11 DS 0H
00012A 001324 | @1L4 DS 0H
00012A 5810 7000 001325 | L r1,=A(IBMQJDSB)(,
00012E 4120 6018 001325 | LA r2,_Dsc_000004(,r
000132 4140 6038 001325 | LA r4,_Dsc_000008(,r
000136 58F0 1008 001325 | L r15,&EPA_&WSA(,r1
00013A 5800 100C 001325 | L r0,&EPA_&WSA(,r1,
00013E 5000 C1F4 001325 | ST r0,_CEECAA_(,r12,
000142 4150 66FA 001325 | LA r5,+CONSTANT_AREA
000146 4110 D098 001325 | LA r1,#MX_TEMP1(,r13
00014A 5050 D098 001325 | ST r5,#MX_TEMP1(,r13
00014E 5040 D09C 001325 | ST r4,#MX_TEMP1(,r13
000152 E54C D0A0 0000 001325 | MVHI #MX_TEMP1(r13,160
000158 5020 D0A4 001325 | ST r2,#MX_TEMP1(,r13
00015C E54C D0A8 0000 001325 | MVHI #MX_TEMP1(r13,168
000162 0DEF 001325 | BASR r14,r15
000164 41F0 0001 001328 | LA r15,1
000168 A7F4 0085 001328 | J @1L429
00016C 001329 | @1L5 DS 0H
00016C A7F4 0002 001329 | J @1L10
000170 001329 | @1L9 DS 0H
000170 001329 | @1L10 DS 0H
000170 5810 D13C 001334 | L r1,#CEECAACRENT_1
000174 5800 3006 001334 | L r0,=Q(PARSER_INST
000178 B9FA 0001 001334 | ALRK r0,r1,r0
00017C 185D 001334 | LR r5,r13
00017E 5010 C1F4 001334 | ST r1,_CEECAA_(,r12,
000182 58F0 300A 001334 | L r15,=A(INIT_PARSE
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
000186 4110 D098 001334 | LA r1,#MX_TEMP1(,r13
00018A 5000 D098 001334 | ST r0,#MX_TEMP1(,r13
00018E 0DEF 001334 | BASR r14,r15
000190 5800 D13C 001336 | L r0,#CEECAACRENT_1
000194 5810 300E 001336 | L r1,=Q(RETURNCODE)
000198 B9FA 1010 001336 | ALRK r1,r0,r1
00019C 5800 1000 001336 | L r0,RETURNCODE(,r1
0001A0 1200 001336 | LTR r0,r0
0001A2 A784 0006 001336 | JE @1L12
0001A6 001336 | @1L14 DS 0H
0001A6 41F0 0001 001337 | LA r15,1
0001AA A7F4 0064 001337 | J @1L429
0001AE 001337 | @1L12 DS 0H
0001AE 001337 | @1L13 DS 0H
0001AE 5810 D13C 001341 | L r1,#CEECAACRENT_1
0001B2 5800 3006 001341 | L r0,=Q(PARSER_INST
0001B6 B9FA 0041 001341 | ALRK r4,r1,r0
0001BA 5850 D138 001341 | L r5,#SR_PARM_1(,r1
0001BE 5820 5008 001341 | L r2,_addrBODYPTR(,
0001C2 5800 500C 001341 | L r0,_addrBODYSIZE(
0001C6 185D 001341 | LR r5,r13
0001C8 5010 C1F4 001341 | ST r1,_CEECAA_(,r12,
0001CC 58F0 3012 001341 | L r15,=A(PARSE_JSON
0001D0 4110 D098 001341 | LA r1,#MX_TEMP1(,r13
0001D4 5040 D098 001341 | ST r4,#MX_TEMP1(,r13
0001D8 5020 D09C 001341 | ST r2,#MX_TEMP1(,r13
0001DC 5000 D0A0 001341 | ST r0,#MX_TEMP1(,r13
0001E0 0DEF 001341 | BASR r14,r15
0001E2 5800 D13C 001343 | L r0,#CEECAACRENT_1
0001E6 5810 300E 001343 | L r1,=Q(RETURNCODE)
0001EA B9FA 1010 001343 | ALRK r1,r0,r1
0001EE 5800 1000 001343 | L r0,RETURNCODE(,r1
0001F2 1200 001343 | LTR r0,r0
0001F4 A784 0006 001343 | JE @1L15
0001F8 001343 | @1L17 DS 0H
0001F8 41F0 0001 001344 | LA r15,1
0001FC A7F4 003B 001344 | J @1L429
000200 001344 | @1L15 DS 0H
000200 001344 | @1L16 DS 0H
000200 185D 001348 | LR r5,r13
000202 5800 D13C 001348 | L r0,#CEECAACRENT_1
000206 5000 C1F4 001348 | ST r0,_CEECAA_(,r12,
00020A 58F0 3016 001348 | L r15,=A(SEARCHANDD
00020E 0DEF 001348 | BASR r14,r15
000210 5810 D13C 001352 | L r1,#CEECAACRENT_1
000214 5800 3006 001352 | L r0,=Q(PARSER_INST
000218 B9FA 0001 001352 | ALRK r0,r1,r0
00021C 185D 001352 | LR r5,r13
00021E 5010 C1F4 001352 | ST r1,_CEECAA_(,r12,
000222 58F0 301A 001352 | L r15,=A(TERM_PARSE
000226 4110 D098 001352 | LA r1,#MX_TEMP1(,r13
00022A 5000 D098 001352 | ST r0,#MX_TEMP1(,r13
00022E 0DEF 001352 | BASR r14,r15
000230 5810 7000 001356 | L r1,=A(IBMQJDSB)(,
000234 4120 6018 001356 | LA r2,_Dsc_000004(,r
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
000238 4140 6088 001356 | LA r4,_Dsc_000018(,r
00023C 58F0 1008 001356 | L r15,&EPA_&WSA(,r1
000240 5800 100C 001356 | L r0,&EPA_&WSA(,r1,
000244 5000 C1F4 001356 | ST r0,_CEECAA_(,r12,
000248 4150 6742 001356 | LA r5,+CONSTANT_AREA
00024C 4110 D098 001356 | LA r1,#MX_TEMP1(,r13
000250 5050 D098 001356 | ST r5,#MX_TEMP1(,r13
000254 5040 D09C 001356 | ST r4,#MX_TEMP1(,r13
000258 E54C D0A0 0000 001356 | MVHI #MX_TEMP1(r13,160
00025E 5020 D0A4 001356 | ST r2,#MX_TEMP1(,r13
000262 E54C D0A8 0000 001356 | MVHI #MX_TEMP1(r13,168
000268 0DEF 001356 | BASR r14,r15
00026A 41F0 0000 001358 | LA r15,0
00026E A7F4 0002 001358 | J @1L429
000272 002148 | @1L1 DS 0H
000272 002148 | @1L429 DS 0H
000272 5800 D13C 000000 | L r0,#CEECAACRENT_1
000276 5000 C1F4 000000 | ST r0,_CEECAA_(,r12,
00027A Start of Epilog
00027A 58D0 D004 002148 | L r13,4(,r13)
00027E 58E0 D00C 002148 | L r14,12(,r13)
000282 9827 D01C 002148 | LM r2,r7,28(r13)
000286 051E 002148 | BALR r1,r14
000288 0707 002148 | NOPR 7
00028A 0000
00028C Start of Literals
00028C 00000000 =Q(@STATIC)
000290 00000000 =Q(PARSER_INSTANC
000294 00004E10 =A(INIT_PARSER)
000298 00000000 =Q(RETURNCODE)
00029C 00004C60 =A(PARSE_JSON_TEX
0002A0 00004FA8 =A(SEARCHANDDESER
0002A4 00004938 =A(TERM_PARSER)
0002A8 End of Literals
*** General purpose registers used: 111111110000111
*** Floating point registers used: 111111110000000
*** Size of register spill area: 512(max) 0(used)
*** Size of dynamic storage: 320
*** Size of executable code: 650
*** CSECT Offset: 72 : 0x48
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
000000 000996 | HWTHHDRX DS 0D
000000 47F0 F024 000996 | B 36(,r15)
000004 01C3C5C5 CEE eyecatcher
000008 00000578 DSA size
00000C 00006F18 =A(PPA1-HWTHHDRX)
000010 47F0 F001 000996 | B 1(,r15)
000014 58F0 C31C 000996 | L r15,796(,r12)
000018 184E 000996 | LR r4,r14
00001A 05EF 000996 | BALR r14,r15
00001C 00000000 =F'0'
000020 A7F4 000C 000996 | J *+24
000024 90E7 D00C 000996 | STM r14,r7,12(r13)
000028 58E0 D04C 000996 | L r14,76(,r13)
00002C 4100 E578 000996 | LA r0,1400(,r14)
000030 5500 C314 000996 | CL r0,788(,r12)
000034 A724 FFF0 000996 | JH *-32
000038 58F0 C280 000996 | L r15,640(,r12)
00003C 90F0 E048 000996 | STM r15,r0,72(r14)
000040 9210 E000 000996 | MVI 0(r14),16
000044 50D0 E004 000996 | ST r13,4(,r14)
000048 18DE 000996 | LR r13,r14
00004A C040 0000 04E0 000996 | LARL r4,F'1248'
000050 End of Prolog
000050 5800 C1F4 000000 | L r0,_CEECAA_(,r12,
000054 5000 D570 000000 | ST r0,#_CEECAACRENT_
000058 5820 D570 000000 | L r2,#_CEECAACRENT_
00005C 5800 4002 000000 | L r0,=Q(@STATIC)(,r
000060 1E02 000000 | ALR r0,r2
000062 1870 000000 | LR r7,r0
000064 C060 0000 3042 000000 | LARL r6,F'12354'
00006A 5010 D49C 000996 | ST r1,#SR_PARM_2(,r1
00006E 5810 7000 001077 | L r1,=A(IBMQJDSB)(,
000072 4120 6018 001077 | LA r2,_Dsc_000004(,r
000076 4130 60E0 001077 | LA r3,_Dsc_000029(,r
00007A 58F0 1008 001077 | L r15,&EPA_&WSA(,r1
00007E 5800 100C 001077 | L r0,&EPA_&WSA(,r1,
000082 5000 C1F4 001077 | ST r0,_CEECAA_(,r12,
000086 4150 6762 001077 | LA r5,+CONSTANT_AREA
00008A 4110 D098 001077 | LA r1,#MX_TEMP2(,r13
00008E 5050 D098 001077 | ST r5,#MX_TEMP2(,r13
000092 5030 D09C 001077 | ST r3,#MX_TEMP2(,r13
000096 E54C D0A0 0000 001077 | MVHI #MX_TEMP2(r13,160
00009C 5020 D0A4 001077 | ST r2,#MX_TEMP2(,r13
0000A0 E54C D0A8 0000 001077 | MVHI #MX_TEMP2(r13,168
0000A6 0DEF 001077 | BASR r14,r15
0000A8 5810 7000 001078 | L r1,=A(IBMQJDSB)(,
0000AC 4120 6018 001078 | LA r2,_Dsc_000004(,r
0000B0 4130 60E0 001078 | LA r3,_Dsc_000029(,r
0000B4 58F0 1008 001078 | L r15,&EPA_&WSA(,r1
0000B8 5800 100C 001078 | L r0,&EPA_&WSA(,r1,
0000BC 5000 C1F4 001078 | ST r0,_CEECAA_(,r12,
0000C0 4150 678E 001078 | LA r5,+CONSTANT_AREA
0000C4 4110 D098 001078 | LA r1,#MX_TEMP2(,r13
0000C8 5050 D098 001078 | ST r5,#MX_TEMP2(,r13
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
0000CC 5030 D09C 001078 | ST r3,#MX_TEMP2(,r13
0000D0 E54C D0A0 0000 001078 | MVHI #MX_TEMP2(r13,160
0000D6 5020 D0A4 001078 | ST r2,#MX_TEMP2(,r13
0000DA E54C D0A8 0000 001078 | MVHI #MX_TEMP2(r13,168
0000E0 0DEF 001078 | BASR r14,r15
0000E2 5810 D49C 001082 | L r1,#SR_PARM_2(,r1
0000E6 5810 1018 001082 | L r1,_addrUSERDATAP
0000EA 5800 1000 001082 | L r0,_shadow6(,r1,0
0000EE 1200 001082 | LTR r0,r0
0000F0 A774 0025 001082 | JNE @2L30
0000F4 001082 | @2L32 DS 0H
0000F4 001083 | @2L20 DS 0H
0000F4 5810 7000 001084 | L r1,=A(IBMQJDSB)(,
0000F8 4120 6018 001084 | LA r2,_Dsc_000004(,r
0000FC 4130 6090 001084 | LA r3,_Dsc_000019(,r
000100 58F0 1008 001084 | L r15,&EPA_&WSA(,r1
000104 5800 100C 001084 | L r0,&EPA_&WSA(,r1,
000108 5000 C1F4 001084 | ST r0,_CEECAA_(,r12,
00010C 4150 67BA 001084 | LA r5,+CONSTANT_AREA
000110 4110 D098 001084 | LA r1,#MX_TEMP2(,r13
000114 5050 D098 001084 | ST r5,#MX_TEMP2(,r13
000118 5030 D09C 001084 | ST r3,#MX_TEMP2(,r13
00011C E54C D0A0 0000 001084 | MVHI #MX_TEMP2(r13,160
000122 5020 D0A4 001084 | ST r2,#MX_TEMP2(,r13
000126 E54C D0A8 0000 001084 | MVHI #MX_TEMP2(r13,168
00012C 0DEF 001084 | BASR r14,r15
00012E 41F0 0001 001085 | LA r15,1
000132 A7F4 0460 001085 | J @2L428
000136 001086 | @2L21 DS 0H
000136 A7F4 0002 001086 | J @2L31
00013A 001086 | @2L30 DS 0H
00013A 001086 | @2L31 DS 0H
00013A 5810 D49C 001090 | L r1,#SR_PARM_2(,r1
00013E 5810 1018 001090 | L r1,_addrUSERDATAP
000142 5810 1000 001090 | L r1,_shadow6(,r1,0
000146 5010 D30C 001090 | ST r1,MYRESPHEADERUS
00014A 5810 1008 001095 | L r1,_shadow6(,r1,8
00014E 5800 1000 001095 | L r0,_shadow3(,r1,0
000152 C20F 0000 0000 001095 | CLFI r0,F'0'
000158 A774 016B 001095 | JNE @2L33
00015C 001095 | @2L35 DS 0H
00015C 001096 | @2L22 DS 0H
00015C 5810 7000 001097 | L r1,=A(IBMQJDSB)(,
000160 4120 6018 001097 | LA r2,_Dsc_000004(,r
000164 4130 6028 001097 | LA r3,_Dsc_000006(,r
000168 58F0 1008 001097 | L r15,&EPA_&WSA(,r1
00016C 5800 100C 001097 | L r0,&EPA_&WSA(,r1,
000170 5000 C1F4 001097 | ST r0,_CEECAA_(,r12,
000174 4150 67DC 001097 | LA r5,+CONSTANT_AREA
000178 4110 D098 001097 | LA r1,#MX_TEMP2(,r13
00017C 5050 D098 001097 | ST r5,#MX_TEMP2(,r13
000180 5030 D09C 001097 | ST r3,#MX_TEMP2(,r13
000184 E54C D0A0 0000 001097 | MVHI #MX_TEMP2(r13,160
00018A 5020 D0A4 001097 | ST r2,#MX_TEMP2(,r13
00018E E54C D0A8 0000 001097 | MVHI #MX_TEMP2(r13,168
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
000194 0DEF 001097 | BASR r14,r15
000196 5810 7000 001098 | L r1,=A(IBMQJDSB)(,
00019A 4120 6018 001098 | LA r2,_Dsc_000004(,r
00019E 4130 60C0 001098 | LA r3,_Dsc_000025(,r
0001A2 58F0 1008 001098 | L r15,&EPA_&WSA(,r1
0001A6 5800 100C 001098 | L r0,&EPA_&WSA(,r1,
0001AA 5000 C1F4 001098 | ST r0,_CEECAA_(,r12,
0001AE 4150 67DE 001098 | LA r5,+CONSTANT_AREA
0001B2 4110 D098 001098 | LA r1,#MX_TEMP2(,r13
0001B6 5050 D098 001098 | ST r5,#MX_TEMP2(,r13
0001BA 5030 D09C 001098 | ST r3,#MX_TEMP2(,r13
0001BE E54C D0A0 0000 001098 | MVHI #MX_TEMP2(r13,160
0001C4 5020 D0A4 001098 | ST r2,#MX_TEMP2(,r13
0001C8 E54C D0A8 0000 001098 | MVHI #MX_TEMP2(r13,168
0001CE 0DEF 001098 | BASR r14,r15
0001D0 D216 D464 63A8 001099 | MVC _temp39(23,r13,11
0001D6 5810 D49C 001099 | L r1,#SR_PARM_2(,r1
0001DA 5810 1000 001099 | L r1,_addrHTTPRESPO
0001DE 5800 1000 001099 | L r0,_shadow3(,r1,0
0001E2 C007 8000 0000 001099 | XILF r0,F'-2147483648'
0001E8 4E00 D320 001099 | CVD r0,_temp34(,r13,8
0001EC 4110 D320 001099 | LA r1,_temp34(,r13,8
0001F0 F876 D500 1001 001099 | ZAP #pdr14@1280_2(8,r
0001F6 FA75 D500 6896 001099 | AP #pdr14@1280_2(8,r
0001FC D207 D320 D500 001099 | MVC _temp34(8,r13,800
000202 D20D D328 63C0 001099 | MVC _temp35(14,r13,80
000208 4110 D328 001099 | LA r1,_temp35(,r13,8
00020C 4120 D322 001099 | LA r2,_temp34(,r13,8
000210 DE0D 1000 2000 001099 | ED _temp35(14,r1,0),
000216 D20D D47B D328 001099 | MVC _temp39(14,r13,11
00021C 4110 D464 001099 | LA r1,_temp39(,r13,1
000220 924B 1025 001099 | MVI _shadow2(r1,37),7
000224 5810 7000 001099 | L r1,=A(IBMQJDSB)(,
000228 4120 6018 001099 | LA r2,_Dsc_000004(,r
00022C 4130 60C0 001099 | LA r3,_Dsc_000025(,r
000230 4150 D464 001099 | LA r5,_temp39(,r13,1
000234 58F0 1008 001099 | L r15,&EPA_&WSA(,r1
000238 5800 100C 001099 | L r0,&EPA_&WSA(,r1,
00023C 5000 C1F4 001099 | ST r0,_CEECAA_(,r12,
000240 4110 D098 001099 | LA r1,#MX_TEMP2(,r13
000244 5050 D098 001099 | ST r5,#MX_TEMP2(,r13
000248 5030 D09C 001099 | ST r3,#MX_TEMP2(,r13
00024C E54C D0A0 0000 001099 | MVHI #MX_TEMP2(r13,160
000252 5020 D0A4 001099 | ST r2,#MX_TEMP2(,r13
000256 E54C D0A8 0000 001099 | MVHI #MX_TEMP2(r13,168
00025C 0DEF 001099 | BASR r14,r15
00025E 5810 D49C 001105 | L r1,#SR_PARM_2(,r1
000262 5810 1000 001105 | L r1,_addrHTTPRESPO
000266 5810 1010 001105 | L r1,_shadow3(,r1,1
00026A C21F 0000 0064 001105 | CLFI r1,F'100'
000270 A7D4 0007 001105 | JNH @2L36
000274 001105 | @2L38 DS 0H
000274 E54C D0B0 0064 001106 | MVHI LLENGTH(r13,176),
00027A A7F4 000A 001106 | J @2L37
00027E 001106 | @2L36 DS 0H
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
00027E 5810 D49C 001108 | L r1,#SR_PARM_2(,r1
000282 5810 1000 001108 | L r1,_addrHTTPRESPO
000286 5810 1010 001108 | L r1,_shadow3(,r1,1
00028A 5010 D0B0 001108 | ST r1,LLENGTH(,r13,1
00028E 001108 | @2L37 DS 0H
00028E 4110 D17C 001110 | LA r1,LREASON(,r13,3
000292 5010 D4AC 001110 | ST r1,#STRTEMP2(,r13
000296 9240 1000 001110 | MVI LREASON(r1,0),64
00029A D2C6 1001 1000 001110 | MVC LREASON(199,r1,1)
0002A0 5810 D0B0 001111 | L r1,LLENGTH(,r13,1
0002A4 C01B 0000 7FFF 001111 | NILF r1,F'32767'
0002AA 5010 D498 001111 | ST r1,_temp43(,r13,1
0002AE 4120 D17C 001111 | LA r2,LREASON(,r13,3
0002B2 5020 D48C 001111 | ST r2,_temp40(,r13,1
0002B6 5810 D49C 001111 | L r1,#SR_PARM_2(,r1
0002BA 5810 1000 001111 | L r1,_addrHTTPRESPO
0002BE 5830 100C 001111 | L r3,_shadow6(,r1,1
0002C2 5810 D0B0 001111 | L r1,LLENGTH(,r13,1
0002C6 C01B 0000 7FFF 001111 | NILF r1,F'32767'
0002CC 5030 D4C0 001111 | ST r3,#wtemp_78(,r13
0002D0 5020 D4C4 001111 | ST r2,#wtemp_79(,r13
0002D4 5010 D494 001111 | ST r1,_temp42(,r13,1
0002D8 5830 D498 001111 | L r3,_temp43(,r13,1
0002DC 1913 001111 | CR r1,r3
0002DE B9F2 4031 001111 | LOCRL r3,r1
0002E2 5030 D490 001111 | ST r3,_temp41(,r13,1
0002E6 5810 D4C4 001111 | L r1,#wtemp_79(,r13
0002EA 5820 D4C0 001111 | L r2,#wtemp_78(,r13
0002EE 58F0 4006 001111 | L r15,=A(_outlineCo
0002F2 4DE0 F010 001111 | BAS r14,16(,r15)
0002F6 4700 000C 001111 | NOP 12
0002FA 5810 D48C 001111 | L r1,_temp40(,r13,1
0002FE 5820 D490 001111 | L r2,_temp41(,r13,1
000302 5800 D498 001111 | L r0,_temp43(,r13,1
000306 1F02 001111 | SLR r0,r2
000308 B9FA 2031 001111 | ALRK r3,r1,r2
00030C 5030 D4CC 001111 | ST r3,#wtemp_81(,r13
000310 B9FA 20E1 001111 | ALRK r14,r1,r2
000314 50E0 D4AC 001111 | ST r14,#STRTEMP2(,r1
000318 1200 001111 | LTR r0,r0
00031A A784 0027 001111 | JE @2L444
00031E 9240 E000 001111 | MVI #AddressShadow(r1
000322 A70A FFFF 001111 | AHI r0,H'-1'
000326 1200 001111 | LTR r0,r0
000328 A784 0020 001111 | JE @2L444
00032C A70A FFFF 001111 | AHI r0,H'-1'
000330 5000 D4B0 001111 | ST r0,#STRTEMP2(,r13
000334 8A00 0008 001111 | SRA r0,8
000338 5000 D4A8 001111 | ST r0,#STRTEMP2(,r13
00033C 1200 001111 | LTR r0,r0
00033E A784 0010 001111 | JE @2L446
000342 001111 | @2L445 DS 0H
000342 5800 D4A8 001111 | L r0,#STRTEMP2(,r13
000346 D2FF E001 E000 001111 | MVC #AddressShadow(25
00034C 41E0 E100 001111 | LA r14,#AddressShado
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
000350 EC10 FFFF 00DA 001111 | ALHSIK r1,r0,H'-1'
000356 5010 D4A8 001111 | ST r1,#STRTEMP2(,r13
00035A A706 FFF4 001111 | BRCT r0,@2L445
00035E 001111 | @2L446 DS 0H
00035E 5810 D4B0 001111 | L r1,#STRTEMP2(,r13
000362 C610 0000 32C5 001111 | EXRL r1,F'12997'
000368 001111 | @2L444 DS 0H
000368 D214 D384 63D0 001112 | MVC _temp38(21,r13,90
00036E D2C7 D399 D17C 001112 | MVC _temp38(200,r13,9
000374 4110 D384 001112 | LA r1,_temp38(,r13,9
000378 924B 10DD 001112 | MVI _shadow2(r1,221),
00037C 5810 7000 001112 | L r1,=A(IBMQJDSB)(,
000380 4120 6018 001112 | LA r2,_Dsc_000004(,r
000384 4130 6098 001112 | LA r3,_Dsc_000020(,r
000388 4150 D384 001112 | LA r5,_temp38(,r13,9
00038C 58F0 1008 001112 | L r15,&EPA_&WSA(,r1
000390 5800 100C 001112 | L r0,&EPA_&WSA(,r1,
000394 5000 C1F4 001112 | ST r0,_CEECAA_(,r12,
000398 4110 D098 001112 | LA r1,#MX_TEMP2(,r13
00039C 5050 D098 001112 | ST r5,#MX_TEMP2(,r13
0003A0 5030 D09C 001112 | ST r3,#MX_TEMP2(,r13
0003A4 E54C D0A0 0000 001112 | MVHI #MX_TEMP2(r13,160
0003AA 5020 D0A4 001112 | ST r2,#MX_TEMP2(,r13
0003AE E54C D0A8 0000 001112 | MVHI #MX_TEMP2(r13,168
0003B4 0DEF 001112 | BASR r14,r15
0003B6 5810 7000 001113 | L r1,=A(IBMQJDSB)(,
0003BA 4120 6018 001113 | LA r2,_Dsc_000004(,r
0003BE 4130 60C0 001113 | LA r3,_Dsc_000025(,r
0003C2 58F0 1008 001113 | L r15,&EPA_&WSA(,r1
0003C6 5800 100C 001113 | L r0,&EPA_&WSA(,r1,
0003CA 5000 C1F4 001113 | ST r0,_CEECAA_(,r12,
0003CE 4150 67DE 001113 | LA r5,+CONSTANT_AREA
0003D2 4110 D098 001113 | LA r1,#MX_TEMP2(,r13
0003D6 5050 D098 001113 | ST r5,#MX_TEMP2(,r13
0003DA 5030 D09C 001113 | ST r3,#MX_TEMP2(,r13
0003DE E54C D0A0 0000 001113 | MVHI #MX_TEMP2(r13,160
0003E4 5020 D0A4 001113 | ST r2,#MX_TEMP2(,r13
0003E8 E54C D0A8 0000 001113 | MVHI #MX_TEMP2(r13,168
0003EE 0DEF 001113 | BASR r14,r15
0003F0 5810 7000 001114 | L r1,=A(IBMQJDSB)(,
0003F4 4120 6018 001114 | LA r2,_Dsc_000004(,r
0003F8 4130 6028 001114 | LA r3,_Dsc_000006(,r
0003FC 58F0 1008 001114 | L r15,&EPA_&WSA(,r1
000400 5800 100C 001114 | L r0,&EPA_&WSA(,r1,
000404 5000 C1F4 001114 | ST r0,_CEECAA_(,r12,
000408 4150 67DC 001114 | LA r5,+CONSTANT_AREA
00040C 4110 D098 001114 | LA r1,#MX_TEMP2(,r13
000410 5050 D098 001114 | ST r5,#MX_TEMP2(,r13
000414 5030 D09C 001114 | ST r3,#MX_TEMP2(,r13
000418 E54C D0A0 0000 001114 | MVHI #MX_TEMP2(r13,160
00041E 5020 D0A4 001114 | ST r2,#MX_TEMP2(,r13
000422 E54C D0A8 0000 001114 | MVHI #MX_TEMP2(r13,168
000428 0DEF 001114 | BASR r14,r15
00042A 001115 | @2L23 DS 0H
00042A A7F4 0002 001115 | J @2L34
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
00042E 001115 | @2L33 DS 0H
00042E 001115 | @2L34 DS 0H
00042E 5810 D30C 001119 | L r1,MYRESPHEADERUS
000432 5810 1008 001119 | L r1,_shadow6(,r1,8
000436 5820 D49C 001119 | L r2,#SR_PARM_2(,r1
00043A 5820 2000 001119 | L r2,_addrHTTPRESPO
00043E 5800 2000 001119 | L r0,_shadow3(,r2,0
000442 5000 1000 001119 | ST r0,_shadow3(,r1,0
000446 5810 D30C 001120 | L r1,MYRESPHEADERUS
00044A 5800 100C 001120 | L r0,_shadow3(,r1,1
00044E A70A 0001 001120 | AHI r0,H'1'
000452 5000 100C 001120 | ST r0,_shadow3(,r1,1
000456 5810 D49C 001127 | L r1,#SR_PARM_2(,r1
00045A 5810 1000 001127 | L r1,_addrHTTPRESPO
00045E 5800 1000 001127 | L r0,_shadow3(,r1,0
000462 C20F 0000 00C8 001127 | CLFI r0,F'200'
000468 A784 0006 001127 | JE @2L39
00046C 001127 | @2L41 DS 0H
00046C 41F0 0001 001128 | LA r15,1
000470 A7F4 02C1 001128 | J @2L428
000474 001128 | @2L39 DS 0H
000474 001128 | @2L40 DS 0H
000474 5810 D49C 001132 | L r1,#SR_PARM_2(,r1
000478 5810 1004 001132 | L r1,_addrEXITFLAGS
00047C 5800 1000 001132 | L r0,_shadow3(,r1,0
000480 C20F 0000 0000 001132 | CLFI r0,F'0'
000486 A7D4 004D 001132 | JNH @2L42
00048A 001132 | @2L44 DS 0H
00048A 001133 | @2L24 DS 0H
00048A 5810 D49C 001134 | L r1,#SR_PARM_2(,r1
00048E 5810 1004 001134 | L r1,_addrEXITFLAGS
000492 5800 1000 001134 | L r0,_shadow3(,r1,0
000496 5000 D310 001134 | ST r0,_temp32(,r13,7
00049A C20F 0000 0001 001135 | CLFI r0,F'1'
0004A0 A774 0021 001135 | JNE @2L47
0004A4 001135 | @2L46 DS 0H
0004A4 5810 7000 001136 | L r1,=A(IBMQJDSB)(,
0004A8 4120 6018 001136 | LA r2,_Dsc_000004(,r
0004AC 4130 6050 001136 | LA r3,_Dsc_000011(,r
0004B0 58F0 1008 001136 | L r15,&EPA_&WSA(,r1
0004B4 5800 100C 001136 | L r0,&EPA_&WSA(,r1,
0004B8 5000 C1F4 001136 | ST r0,_CEECAA_(,r12,
0004BC 4150 680A 001136 | LA r5,+CONSTANT_AREA
0004C0 4110 D098 001136 | LA r1,#MX_TEMP2(,r13
0004C4 5050 D098 001136 | ST r5,#MX_TEMP2(,r13
0004C8 5030 D09C 001136 | ST r3,#MX_TEMP2(,r13
0004CC E54C D0A0 0000 001136 | MVHI #MX_TEMP2(r13,160
0004D2 5020 D0A4 001136 | ST r2,#MX_TEMP2(,r13
0004D6 E54C D0A8 0000 001136 | MVHI #MX_TEMP2(r13,168
0004DC 0DEF 001136 | BASR r14,r15
0004DE A7F4 001F 001136 | J @2L45
0004E2 001136 | @2L47 DS 0H
0004E2 5810 7000 001138 | L r1,=A(IBMQJDSB)(,
0004E6 4120 6018 001138 | LA r2,_Dsc_000004(,r
0004EA 4130 6058 001138 | LA r3,_Dsc_000012(,r
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
0004EE 58F0 1008 001138 | L r15,&EPA_&WSA(,r1
0004F2 5800 100C 001138 | L r0,&EPA_&WSA(,r1,
0004F6 5000 C1F4 001138 | ST r0,_CEECAA_(,r12,
0004FA 4150 681C 001138 | LA r5,+CONSTANT_AREA
0004FE 4110 D098 001138 | LA r1,#MX_TEMP2(,r13
000502 5050 D098 001138 | ST r5,#MX_TEMP2(,r13
000506 5030 D09C 001138 | ST r3,#MX_TEMP2(,r13
00050A E54C D0A0 0000 001138 | MVHI #MX_TEMP2(r13,160
000510 5020 D0A4 001138 | ST r2,#MX_TEMP2(,r13
000514 E54C D0A8 0000 001138 | MVHI #MX_TEMP2(r13,168
00051A 0DEF 001138 | BASR r14,r15
00051C 001138 | @2L45 DS 0H
00051C 001140 | @2L25 DS 0H
00051C A7F4 0002 001140 | J @2L43
000520 001140 | @2L42 DS 0H
000520 001140 | @2L43 DS 0H
000520 5810 D49C 001145 | L r1,#SR_PARM_2(,r1
000524 5810 100C 001145 | L r1,_addrNAMELEN(,
000528 5810 1000 001145 | L r1,_shadow3(,r1,0
00052C C21F 0000 0064 001145 | CLFI r1,F'100'
000532 A7D4 0007 001145 | JNH @2L48
000536 001145 | @2L50 DS 0H
000536 E54C D0B0 0064 001146 | MVHI LLENGTH(r13,176),
00053C A7F4 000A 001146 | J @2L49
000540 001146 | @2L48 DS 0H
000540 5810 D49C 001148 | L r1,#SR_PARM_2(,r1
000544 5810 100C 001148 | L r1,_addrNAMELEN(,
000548 5810 1000 001148 | L r1,_shadow3(,r1,0
00054C 5010 D0B0 001148 | ST r1,LLENGTH(,r13,1
000550 001148 | @2L49 DS 0H
000550 4110 D0B4 001150 | LA r1,LNAME(,r13,180
000554 5010 D4AC 001150 | ST r1,#STRTEMP2(,r13
000558 9240 1000 001150 | MVI LNAME(r1,0),64
00055C D2C6 1001 1000 001150 | MVC LNAME(199,r1,1),L
000562 5810 D0B0 001151 | L r1,LLENGTH(,r13,1
000566 C01B 0000 7FFF 001151 | NILF r1,F'32767'
00056C 5010 D490 001151 | ST r1,_temp41(,r13,1
000570 4120 D0B4 001151 | LA r2,LNAME(,r13,180
000574 5020 D48C 001151 | ST r2,_temp40(,r13,1
000578 5810 D49C 001151 | L r1,#SR_PARM_2(,r1
00057C 5810 1008 001151 | L r1,_addrNAMEPTR(,
000580 5830 1000 001151 | L r3,_shadow6(,r1,0
000584 5810 D0B0 001151 | L r1,LLENGTH(,r13,1
000588 C01B 0000 7FFF 001151 | NILF r1,F'32767'
00058E 5030 D4D4 001151 | ST r3,#wtemp_83(,r13
000592 5020 D4D8 001151 | ST r2,#wtemp_84(,r13
000596 5010 D494 001151 | ST r1,_temp42(,r13,1
00059A 5830 D490 001151 | L r3,_temp41(,r13,1
00059E 1913 001151 | CR r1,r3
0005A0 B9F2 4031 001151 | LOCRL r3,r1
0005A4 5030 D498 001151 | ST r3,_temp43(,r13,1
0005A8 5810 D4D8 001151 | L r1,#wtemp_84(,r13
0005AC 5820 D4D4 001151 | L r2,#wtemp_83(,r13
0005B0 58F0 4006 001151 | L r15,=A(_outlineCo
0005B4 4DE0 F010 001151 | BAS r14,16(,r15)
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
0005B8 4700 000C 001151 | NOP 12
0005BC 5810 D48C 001151 | L r1,_temp40(,r13,1
0005C0 5820 D498 001151 | L r2,_temp43(,r13,1
0005C4 5800 D490 001151 | L r0,_temp41(,r13,1
0005C8 1F02 001151 | SLR r0,r2
0005CA B9FA 2031 001151 | ALRK r3,r1,r2
0005CE 5030 D4CC 001151 | ST r3,#wtemp_81(,r13
0005D2 B9FA 20E1 001151 | ALRK r14,r1,r2
0005D6 50E0 D4AC 001151 | ST r14,#STRTEMP2(,r1
0005DA 1200 001151 | LTR r0,r0
0005DC A784 0027 001151 | JE @2L447
0005E0 9240 E000 001151 | MVI #AddressShadow(r1
0005E4 A70A FFFF 001151 | AHI r0,H'-1'
0005E8 1200 001151 | LTR r0,r0
0005EA A784 0020 001151 | JE @2L447
0005EE A70A FFFF 001151 | AHI r0,H'-1'
0005F2 5000 D4B0 001151 | ST r0,#STRTEMP2(,r13
0005F6 8A00 0008 001151 | SRA r0,8
0005FA 5000 D4A8 001151 | ST r0,#STRTEMP2(,r13
0005FE 1200 001151 | LTR r0,r0
000600 A784 0010 001151 | JE @2L449
000604 001151 | @2L448 DS 0H
000604 5800 D4A8 001151 | L r0,#STRTEMP2(,r13
000608 D2FF E001 E000 001151 | MVC #AddressShadow(25
00060E 41E0 E100 001151 | LA r14,#AddressShado
000612 EC10 FFFF 00DA 001151 | ALHSIK r1,r0,H'-1'
000618 5010 D4A8 001151 | ST r1,#STRTEMP2(,r13
00061C A706 FFF4 001151 | BRCT r0,@2L448
000620 001151 | @2L449 DS 0H
000620 5810 D4B0 001151 | L r1,#STRTEMP2(,r13
000624 C610 0000 3164 001151 | EXRL r1,F'12644'
00062A 001151 | @2L447 DS 0H
00062A D20F D360 63E8 001155 | MVC _temp37(16,r13,86
000630 5810 D30C 001155 | L r1,MYRESPHEADERUS
000634 5800 100C 001155 | L r0,_shadow3(,r1,1
000638 C007 8000 0000 001155 | XILF r0,F'-2147483648'
00063E 4E00 D320 001155 | CVD r0,_temp34(,r13,8
000642 4110 D320 001155 | LA r1,_temp34(,r13,8
000646 F876 D500 1001 001155 | ZAP #pdr14@1280_2(8,r
00064C FA75 D500 6896 001155 | AP #pdr14@1280_2(8,r
000652 D207 D320 D500 001155 | MVC _temp34(8,r13,800
000658 D20D D328 63C0 001155 | MVC _temp35(14,r13,80
00065E 4110 D328 001155 | LA r1,_temp35(,r13,8
000662 4120 D322 001155 | LA r2,_temp34(,r13,8
000666 DE0D 1000 2000 001155 | ED _temp35(14,r1,0),
00066C D20D D370 D328 001155 | MVC _temp37(14,r13,88
000672 D205 D37E 63F8 001155 | MVC _temp37(6,r13,894
000678 5810 7000 001155 | L r1,=A(IBMQJDSB)(,
00067C 4120 6018 001155 | LA r2,_Dsc_000004(,r
000680 4130 60B0 001155 | LA r3,_Dsc_000023(,r
000684 4150 D360 001155 | LA r5,_temp37(,r13,8
000688 58F0 1008 001155 | L r15,&EPA_&WSA(,r1
00068C 5800 100C 001155 | L r0,&EPA_&WSA(,r1,
000690 5000 C1F4 001155 | ST r0,_CEECAA_(,r12,
000694 4110 D098 001155 | LA r1,#MX_TEMP2(,r13
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
000698 5050 D098 001155 | ST r5,#MX_TEMP2(,r13
00069C 5030 D09C 001155 | ST r3,#MX_TEMP2(,r13
0006A0 E54C D0A0 0000 001155 | MVHI #MX_TEMP2(r13,160
0006A6 5020 D0A4 001155 | ST r2,#MX_TEMP2(,r13
0006AA E54C D0A8 0000 001155 | MVHI #MX_TEMP2(r13,168
0006B0 0DEF 001155 | BASR r14,r15
0006B2 5800 D0B0 001157 | L r0,LLENGTH(,r13,1
0006B6 C00B 0000 7FFF 001157 | NILF r0,F'32767'
0006BC 5000 D498 001157 | ST r0,_temp43(,r13,1
0006C0 D203 D318 6400 001157 | MVC _temp33(4,r13,792
0006C6 5800 D498 001157 | L r0,_temp43(,r13,1
0006CA 5000 D31C 001157 | ST r0,_temp33(,r13,7
0006CE 5810 7000 001157 | L r1,=A(IBMQJDSB)(,
0006D2 4120 6018 001157 | LA r2,_Dsc_000004(,r
0006D6 4130 D318 001157 | LA r3,_temp33(,r13,7
0006DA 4150 D0B4 001157 | LA r5,LNAME(,r13,180
0006DE 58F0 1008 001157 | L r15,&EPA_&WSA(,r1
0006E2 5800 100C 001157 | L r0,&EPA_&WSA(,r1,
0006E6 5000 C1F4 001157 | ST r0,_CEECAA_(,r12,
0006EA 4110 D098 001157 | LA r1,#MX_TEMP2(,r13
0006EE 5050 D098 001157 | ST r5,#MX_TEMP2(,r13
0006F2 5030 D09C 001157 | ST r3,#MX_TEMP2(,r13
0006F6 E54C D0A0 0000 001157 | MVHI #MX_TEMP2(r13,160
0006FC 5020 D0A4 001157 | ST r2,#MX_TEMP2(,r13
000700 E54C D0A8 0000 001157 | MVHI #MX_TEMP2(r13,168
000706 0DEF 001157 | BASR r14,r15
000708 5810 D49C 001159 | L r1,#SR_PARM_2(,r1
00070C 5810 1014 001159 | L r1,_addrVALUELEN(
000710 5810 1000 001159 | L r1,_shadow3(,r1,0
000714 C21F 0000 0064 001159 | CLFI r1,F'100'
00071A A7D4 0007 001159 | JNH @2L51
00071E 001159 | @2L53 DS 0H
00071E E54C D0B0 0064 001160 | MVHI LLENGTH(r13,176),
000724 A7F4 000A 001160 | J @2L52
000728 001160 | @2L51 DS 0H
000728 5810 D49C 001162 | L r1,#SR_PARM_2(,r1
00072C 5810 1014 001162 | L r1,_addrVALUELEN(
000730 5810 1000 001162 | L r1,_shadow3(,r1,0
000734 5010 D0B0 001162 | ST r1,LLENGTH(,r13,1
000738 001162 | @2L52 DS 0H
000738 4110 D244 001164 | LA r1,LVALUE(,r13,58
00073C 5010 D4AC 001164 | ST r1,#STRTEMP2(,r13
000740 9240 1000 001164 | MVI LVALUE(r1,0),64
000744 D2C6 1001 1000 001164 | MVC LVALUE(199,r1,1),
00074A 5810 D0B0 001165 | L r1,LLENGTH(,r13,1
00074E C01B 0000 7FFF 001165 | NILF r1,F'32767'
000754 5010 D498 001165 | ST r1,_temp43(,r13,1
000758 4120 D244 001165 | LA r2,LVALUE(,r13,58
00075C 5020 D48C 001165 | ST r2,_temp40(,r13,1
000760 5810 D49C 001165 | L r1,#SR_PARM_2(,r1
000764 5810 1010 001165 | L r1,_addrVALUEPTR(
000768 5830 1000 001165 | L r3,_shadow6(,r1,0
00076C 5810 D0B0 001165 | L r1,LLENGTH(,r13,1
000770 C01B 0000 7FFF 001165 | NILF r1,F'32767'
000776 5030 D4E8 001165 | ST r3,#wtemp_88(,r13
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
00077A 5020 D4EC 001165 | ST r2,#wtemp_89(,r13
00077E 5010 D494 001165 | ST r1,_temp42(,r13,1
000782 5830 D498 001165 | L r3,_temp43(,r13,1
000786 1913 001165 | CR r1,r3
000788 B9F2 4031 001165 | LOCRL r3,r1
00078C 5030 D490 001165 | ST r3,_temp41(,r13,1
000790 5810 D4EC 001165 | L r1,#wtemp_89(,r13
000794 5820 D4E8 001165 | L r2,#wtemp_88(,r13
000798 58F0 4006 001165 | L r15,=A(_outlineCo
00079C 4DE0 F010 001165 | BAS r14,16(,r15)
0007A0 4700 000C 001165 | NOP 12
0007A4 5810 D48C 001165 | L r1,_temp40(,r13,1
0007A8 5820 D490 001165 | L r2,_temp41(,r13,1
0007AC 5800 D498 001165 | L r0,_temp43(,r13,1
0007B0 1F02 001165 | SLR r0,r2
0007B2 B9FA 2031 001165 | ALRK r3,r1,r2
0007B6 5030 D4CC 001165 | ST r3,#wtemp_81(,r13
0007BA B9FA 20E1 001165 | ALRK r14,r1,r2
0007BE 50E0 D4AC 001165 | ST r14,#STRTEMP2(,r1
0007C2 1200 001165 | LTR r0,r0
0007C4 A784 0027 001165 | JE @2L450
0007C8 9240 E000 001165 | MVI #AddressShadow(r1
0007CC A70A FFFF 001165 | AHI r0,H'-1'
0007D0 1200 001165 | LTR r0,r0
0007D2 A784 0020 001165 | JE @2L450
0007D6 A70A FFFF 001165 | AHI r0,H'-1'
0007DA 5000 D4B0 001165 | ST r0,#STRTEMP2(,r13
0007DE 8A00 0008 001165 | SRA r0,8
0007E2 5000 D4A8 001165 | ST r0,#STRTEMP2(,r13
0007E6 1200 001165 | LTR r0,r0
0007E8 A784 0010 001165 | JE @2L452
0007EC 001165 | @2L451 DS 0H
0007EC 5800 D4A8 001165 | L r0,#STRTEMP2(,r13
0007F0 D2FF E001 E000 001165 | MVC #AddressShadow(25
0007F6 41E0 E100 001165 | LA r14,#AddressShado
0007FA EC10 FFFF 00DA 001165 | ALHSIK r1,r0,H'-1'
000800 5010 D4A8 001165 | ST r1,#STRTEMP2(,r13
000804 A706 FFF4 001165 | BRCT r0,@2L451
000808 001165 | @2L452 DS 0H
000808 5810 D4B0 001165 | L r1,#STRTEMP2(,r13
00080C C610 0000 3070 001165 | EXRL r1,F'12400'
000812 001165 | @2L450 DS 0H
000812 D20F D338 63E8 001169 | MVC _temp36(16,r13,82
000818 5810 D30C 001169 | L r1,MYRESPHEADERUS
00081C 5800 100C 001169 | L r0,_shadow3(,r1,1
000820 C007 8000 0000 001169 | XILF r0,F'-2147483648'
000826 4E00 D320 001169 | CVD r0,_temp34(,r13,8
00082A 4110 D320 001169 | LA r1,_temp34(,r13,8
00082E F876 D500 1001 001169 | ZAP #pdr14@1280_2(8,r
000834 FA75 D500 6896 001169 | AP #pdr14@1280_2(8,r
00083A D207 D320 D500 001169 | MVC _temp34(8,r13,800
000840 D20D D328 63C0 001169 | MVC _temp35(14,r13,80
000846 4110 D328 001169 | LA r1,_temp35(,r13,8
00084A 4120 D322 001169 | LA r2,_temp34(,r13,8
00084E DE0D 1000 2000 001169 | ED _temp35(14,r1,0),
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
000854 D20D D348 D328 001169 | MVC _temp36(14,r13,84
00085A D206 D356 6404 001169 | MVC _temp36(7,r13,854
000860 5810 7000 001169 | L r1,=A(IBMQJDSB)(,
000864 4120 6018 001169 | LA r2,_Dsc_000004(,r
000868 4130 60B8 001169 | LA r3,_Dsc_000024(,r
00086C 4150 D338 001169 | LA r5,_temp36(,r13,8
000870 58F0 1008 001169 | L r15,&EPA_&WSA(,r1
000874 5800 100C 001169 | L r0,&EPA_&WSA(,r1,
000878 5000 C1F4 001169 | ST r0,_CEECAA_(,r12,
00087C 4110 D098 001169 | LA r1,#MX_TEMP2(,r13
000880 5050 D098 001169 | ST r5,#MX_TEMP2(,r13
000884 5030 D09C 001169 | ST r3,#MX_TEMP2(,r13
000888 E54C D0A0 0000 001169 | MVHI #MX_TEMP2(r13,160
00088E 5020 D0A4 001169 | ST r2,#MX_TEMP2(,r13
000892 E54C D0A8 0000 001169 | MVHI #MX_TEMP2(r13,168
000898 0DEF 001169 | BASR r14,r15
00089A 5800 D0B0 001172 | L r0,LLENGTH(,r13,1
00089E C00B 0000 7FFF 001172 | NILF r0,F'32767'
0008A4 5000 D490 001172 | ST r0,_temp41(,r13,1
0008A8 D203 D318 6400 001172 | MVC _temp33(4,r13,792
0008AE 5800 D490 001172 | L r0,_temp41(,r13,1
0008B2 5000 D31C 001172 | ST r0,_temp33(,r13,7
0008B6 5810 7000 001172 | L r1,=A(IBMQJDSB)(,
0008BA 4120 6018 001172 | LA r2,_Dsc_000004(,r
0008BE 4130 D318 001172 | LA r3,_temp33(,r13,7
0008C2 4150 D244 001172 | LA r5,LVALUE(,r13,58
0008C6 58F0 1008 001172 | L r15,&EPA_&WSA(,r1
0008CA 5800 100C 001172 | L r0,&EPA_&WSA(,r1,
0008CE 5000 C1F4 001172 | ST r0,_CEECAA_(,r12,
0008D2 4110 D098 001172 | LA r1,#MX_TEMP2(,r13
0008D6 5050 D098 001172 | ST r5,#MX_TEMP2(,r13
0008DA 5030 D09C 001172 | ST r3,#MX_TEMP2(,r13
0008DE E54C D0A0 0000 001172 | MVHI #MX_TEMP2(r13,160
0008E4 5020 D0A4 001172 | ST r2,#MX_TEMP2(,r13
0008E8 E54C D0A8 0000 001172 | MVHI #MX_TEMP2(r13,168
0008EE 0DEF 001172 | BASR r14,r15
0008F0 E54C D4A4 0000 001177 | MVHI #STRTEMP2(r13,118
0008F6 4110 D0B4 001177 | LA r1,LNAME(,r13,180
0008FA 4120 6832 001177 | LA r2,+CONSTANT_AREA
0008FE D50B 1000 2000 001177 | CLC LNAME(12,r1,0),+C
000904 000000 | @2L454 DS 0H
000904 A784 000A 001177 | JE @2L453
000908 E54C D4A4 0001 001177 | MVHI #STRTEMP2(r13,118
00090E A724 0005 001177 | JH @2L453
000912 E54C D4A4 FFFF 001177 | MVHI #STRTEMP2(r13,118
000918 001177 | @2L453 DS 0H
000918 5800 D4A4 001177 | L r0,#STRTEMP2(,r13
00091C 1200 001177 | LTR r0,r0
00091E A774 0049 001177 | JNE @2L54
000922 001177 | @2L56 DS 0H
000922 001178 | @2L26 DS 0H
000922 E54C D4A4 0000 001179 | MVHI #STRTEMP2(r13,118
000928 4110 D244 001179 | LA r1,LVALUE(,r13,58
00092C 4120 683E 001179 | LA r2,+CONSTANT_AREA
000930 D50F 1000 2000 001179 | CLC LVALUE(16,r1,0),+
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
000936 000000 | @2L456 DS 0H
000936 A784 000A 001179 | JE @2L455
00093A E54C D4A4 0001 001179 | MVHI #STRTEMP2(r13,118
000940 A724 0005 001179 | JH @2L455
000944 E54C D4A4 FFFF 001179 | MVHI #STRTEMP2(r13,118
00094A 001179 | @2L455 DS 0H
00094A 5800 D4A4 001179 | L r0,#STRTEMP2(,r13
00094E 1200 001179 | LTR r0,r0
000950 A774 002E 001179 | JNE @2L57
000954 001179 | @2L59 DS 0H
000954 001180 | @2L28 DS 0H
000954 5810 D30C 001183 | L r1,MYRESPHEADERUS
000958 5810 1010 001183 | L r1,_shadow6(,r1,1
00095C 5010 D48C 001183 | ST r1,_temp40(,r13,1
000960 E300 1000 0094 001183 | LLC r0,_shadow2(,r1,0
000966 A50B 0080 001183 | OILL r0,H'128'
00096A 4200 1000 001183 | STC r0,_shadow2(,r1,0
00096E 5810 7000 001184 | L r1,=A(IBMQJDSB)(,
000972 4120 6018 001184 | LA r2,_Dsc_000004(,r
000976 4130 60B8 001184 | LA r3,_Dsc_000024(,r
00097A 58F0 1008 001184 | L r15,&EPA_&WSA(,r1
00097E 5800 100C 001184 | L r0,&EPA_&WSA(,r1,
000982 5000 C1F4 001184 | ST r0,_CEECAA_(,r12,
000986 4150 684E 001184 | LA r5,+CONSTANT_AREA
00098A 4110 D098 001184 | LA r1,#MX_TEMP2(,r13
00098E 5050 D098 001184 | ST r5,#MX_TEMP2(,r13
000992 5030 D09C 001184 | ST r3,#MX_TEMP2(,r13
000996 E54C D0A0 0000 001184 | MVHI #MX_TEMP2(r13,160
00099C 5020 D0A4 001184 | ST r2,#MX_TEMP2(,r13
0009A0 E54C D0A8 0000 001184 | MVHI #MX_TEMP2(r13,168
0009A6 0DEF 001184 | BASR r14,r15
0009A8 001185 | @2L29 DS 0H
0009A8 A7F4 0002 001185 | J @2L58
0009AC 001185 | @2L57 DS 0H
0009AC 001185 | @2L58 DS 0H
0009AC 001186 | @2L27 DS 0H
0009AC A7F4 0002 001186 | J @2L55
0009B0 001186 | @2L54 DS 0H
0009B0 001186 | @2L55 DS 0H
0009B0 5810 7000 001190 | L r1,=A(IBMQJDSB)(,
0009B4 4120 6018 001190 | LA r2,_Dsc_000004(,r
0009B8 4130 60A0 001190 | LA r3,_Dsc_000021(,r
0009BC 58F0 1008 001190 | L r15,&EPA_&WSA(,r1
0009C0 5800 100C 001190 | L r0,&EPA_&WSA(,r1,
0009C4 5000 C1F4 001190 | ST r0,_CEECAA_(,r12,
0009C8 4150 6874 001190 | LA r5,+CONSTANT_AREA
0009CC 4110 D098 001190 | LA r1,#MX_TEMP2(,r13
0009D0 5050 D098 001190 | ST r5,#MX_TEMP2(,r13
0009D4 5030 D09C 001190 | ST r3,#MX_TEMP2(,r13
0009D8 E54C D0A0 0000 001190 | MVHI #MX_TEMP2(r13,160
0009DE 5020 D0A4 001190 | ST r2,#MX_TEMP2(,r13
0009E2 E54C D0A8 0000 001190 | MVHI #MX_TEMP2(r13,168
0009E8 0DEF 001190 | BASR r14,r15
0009EA 41F0 0000 001192 | LA r15,0
0009EE A7F4 0002 001192 | J @2L428
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
0009F2 001194 | @2L19 DS 0H
0009F2 001194 | @2L428 DS 0H
0009F2 5800 D570 000000 | L r0,#_CEECAACRENT_
0009F6 5000 C1F4 000000 | ST r0,_CEECAA_(,r12,
0009FA Start of Epilog
0009FA 58D0 D004 001194 | L r13,4(,r13)
0009FE 58E0 D00C 001194 | L r14,12(,r13)
000A02 9827 D01C 001194 | LM r2,r7,28(r13)
000A06 051E 001194 | BALR r1,r14
000A08 0707 001194 | NOPR 7
000A0A 0000
000A0C Start of Literals
000A0C 00000000 =Q(@STATIC)
000A10 000060B8 =A(_outlineConc)
000A14 End of Literals
*** General purpose registers used: 111111110000111
*** Floating point registers used: 111111110000000
*** Size of register spill area: 512(max) 0(used)
*** Size of dynamic storage: 1400
*** Size of executable code: 2570
*** CSECT Offset: 752 : 0x2F0
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
000000 000009 | HWTHXPI1 DS 0D
000000 47F0 F024 000009 | B 36(,r15)
000004 01C3C5C5 CEE eyecatcher
000008 000002E0 DSA size
00000C 00006548 =A(PPA1-HWTHXPI1)
000010 47F0 F001 000009 | B 1(,r15)
000014 58F0 C31C 000009 | L r15,796(,r12)
000018 184E 000009 | LR r4,r14
00001A 05EF 000009 | BALR r14,r15
00001C 00000000 =F'0'
000020 A7F4 000C 000009 | J *+24
000024 90E9 D00C 000009 | STM r14,r9,12(r13)
000028 58E0 D04C 000009 | L r14,76(,r13)
00002C 4100 E2E0 000009 | LA r0,736(,r14)
000030 5500 C314 000009 | CL r0,788(,r12)
000034 A724 FFF0 000009 | JH *-32
000038 58F0 C280 000009 | L r15,640(,r12)
00003C 90F0 E048 000009 | STM r15,r0,72(r14)
000040 9210 E000 000009 | MVI 0(r14),16
000044 50D0 E004 000009 | ST r13,4(,r14)
000048 18DE 000009 | LR r13,r14
00004A C030 0000 0333 000009 | LARL r3,F'819'
000050 End of Prolog
000050 5800 C1F4 000000 | L r0,_CEECAA_(,r12,
000054 5000 D2BC 000000 | ST r0,#CEECAACRENT_3
000058 5800 D2BC 000000 | L r0,#CEECAACRENT_3
00005C 5820 3000 000000 | L r2,=Q(@STATIC)(,r
000060 1E02 000000 | ALR r0,r2
000062 1870 000000 | LR r7,r0
000064 C060 0000 2B36 000000 | LARL r6,F'11062'
00006A 5010 D2DC 000009 | ST r1,#SR_PARM_3(,r1
00006E 5810 D2BC 000252 | L r1,#CEECAACRENT_3
000072 5800 3004 000252 | L r0,=Q(HWTHHDRX)(,
000076 B9FA 0001 000252 | ALRK r0,r1,r0
00007A 5820 3008 000252 | L r2,=Q(RESPHDREXIT
00007E 1E12 000252 | ALR r1,r2
000080 5000 1000 000252 | ST r0,RESPHDREXITADD
000084 5810 D2BC 000253 | L r1,#CEECAACRENT_3
000088 5800 300C 000253 | L r0,=Q(HWTHBDYX)(,
00008C B9FA 0001 000253 | ALRK r0,r1,r0
000090 5820 3010 000253 | L r2,=Q(RESPBDYEXIT
000094 1E12 000253 | ALR r1,r2
000096 5000 1000 000253 | ST r0,RESPBDYEXITADD
00009A E54C D0BC 0000 000257 | MVHI LRC(r13,188),H'0'
0000A0 4110 D0C0 000258 | LA r1,LREQUESTHANDLE
0000A4 5010 D2C8 000258 | ST r1,#STRTEMP3(,r13
0000A8 9240 1000 000258 | MVI LREQUESTHANDLE(r1
0000AC D20A 1001 1000 000258 | MVC LREQUESTHANDLE(11
0000B2 4110 D0CC 000259 | LA r1,LCONNECTIONHAN
0000B6 5010 D2C8 000259 | ST r1,#STRTEMP3(,r13
0000BA 9240 1000 000259 | MVI LCONNECTIONHANDLE
0000BE D20A 1001 1000 000259 | MVC LCONNECTIONHANDLE
0000C4 E54C D0B8 0000 000260 | MVHI LFORCEOPTION(r13,
0000CA 9200 D160 000261 | MVI REQUESTSUCCESSFUL
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
0000CE 4110 D184 000262 | LA r1,MAINLINEHDRFLA
0000D2 5010 D2C8 000262 | ST r1,#STRTEMP3(,r13
0000D6 D703 1000 1000 000262 | XC MAINLINEHDRFLAGS(
0000DC E54C D180 0000 000263 | MVHI RESPSTATUSCODE(r1
0000E2 4110 D198 000264 | LA r1,RESPONSEBODYDA
0000E6 5010 D2B8 000264 | ST r1,_temp3(,r13,69
0000EA 5010 D2C8 000264 | ST r1,#STRTEMP3(,r13
0000EE 9240 1000 000264 | MVI #AddressShadow(r1
0000F2 D254 1001 1000 000264 | MVC #AddressShadow(85
0000F8 5810 D2B8 000264 | L r1,_temp3(,r13,69
0000FC 4110 1056 000264 | LA r1,#AddressShadow
000100 5010 D2C8 000264 | ST r1,#STRTEMP3(,r13
000104 D703 1000 1000 000264 | XC #AddressShadow(4,
00010A 5810 D2B8 000264 | L r1,_temp3(,r13,69
00010E 4110 105A 000264 | LA r1,#AddressShadow
000112 5010 D2C8 000264 | ST r1,#STRTEMP3(,r13
000116 9240 1000 000264 | MVI #AddressShadow(r1
00011A D2B2 1001 1000 000264 | MVC #AddressShadow(17
000120 5810 D2DC 000265 | L r1,#SR_PARM_3(,r1
000124 5800 1000 000265 | L r0,_addrINJCLPARM
000128 5000 D0B0 000265 | ST r0,JCLPARMSADDRPT
00012C 5810 7000 000275 | L r1,=A(IBMQJDSB)(,
000130 4120 6018 000275 | LA r2,_Dsc_000004(,r
000134 4140 60E0 000275 | LA r4,_Dsc_000029(,r
000138 58F0 1008 000275 | L r15,&EPA_&WSA(,r1
00013C 5800 100C 000275 | L r0,&EPA_&WSA(,r1,
000140 5000 C1F4 000275 | ST r0,_CEECAA_(,r12,
000144 4150 6762 000275 | LA r5,+CONSTANT_AREA
000148 4110 D098 000275 | LA r1,#MX_TEMP3(,r13
00014C 5050 D098 000275 | ST r5,#MX_TEMP3(,r13
000150 5040 D09C 000275 | ST r4,#MX_TEMP3(,r13
000154 E54C D0A0 0000 000275 | MVHI #MX_TEMP3(r13,160
00015A 5020 D0A4 000275 | ST r2,#MX_TEMP3(,r13
00015E E54C D0A8 0000 000275 | MVHI #MX_TEMP3(r13,168
000164 0DEF 000275 | BASR r14,r15
000166 5810 7000 000276 | L r1,=A(IBMQJDSB)(,
00016A 4120 6018 000276 | LA r2,_Dsc_000004(,r
00016E 4140 60E0 000276 | LA r4,_Dsc_000029(,r
000172 58F0 1008 000276 | L r15,&EPA_&WSA(,r1
000176 5800 100C 000276 | L r0,&EPA_&WSA(,r1,
00017A 5000 C1F4 000276 | ST r0,_CEECAA_(,r12,
00017E 4150 689C 000276 | LA r5,+CONSTANT_AREA
000182 4110 D098 000276 | LA r1,#MX_TEMP3(,r13
000186 5050 D098 000276 | ST r5,#MX_TEMP3(,r13
00018A 5040 D09C 000276 | ST r4,#MX_TEMP3(,r13
00018E E54C D0A0 0000 000276 | MVHI #MX_TEMP3(r13,160
000194 5020 D0A4 000276 | ST r2,#MX_TEMP3(,r13
000198 E54C D0A8 0000 000276 | MVHI #MX_TEMP3(r13,168
00019E 0DEF 000276 | BASR r14,r15
0001A0 5810 7000 000277 | L r1,=A(IBMQJDSB)(,
0001A4 4120 6018 000277 | LA r2,_Dsc_000004(,r
0001A8 4140 6028 000277 | LA r4,_Dsc_000006(,r
0001AC 58F0 1008 000277 | L r15,&EPA_&WSA(,r1
0001B0 5800 100C 000277 | L r0,&EPA_&WSA(,r1,
0001B4 5000 C1F4 000277 | ST r0,_CEECAA_(,r12,
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
0001B8 4150 67DC 000277 | LA r5,+CONSTANT_AREA
0001BC 4110 D098 000277 | LA r1,#MX_TEMP3(,r13
0001C0 5050 D098 000277 | ST r5,#MX_TEMP3(,r13
0001C4 5040 D09C 000277 | ST r4,#MX_TEMP3(,r13
0001C8 E54C D0A0 0000 000277 | MVHI #MX_TEMP3(r13,160
0001CE 5020 D0A4 000277 | ST r2,#MX_TEMP3(,r13
0001D2 E54C D0A8 0000 000277 | MVHI #MX_TEMP3(r13,168
0001D8 0DEF 000277 | BASR r14,r15
0001DA 5810 D0B0 000282 | L r1,JCLPARMSADDRPT
0001DE 5810 1000 000282 | L r1,_shadow6(,r1,0
0001E2 E300 1000 0095 000282 | LLH r0,_shadow5(,r1,0
0001E8 C20F 0000 0003 000282 | CLFI r0,F'3'
0001EE A784 002A 000282 | JE @3L76
0001F2 000282 | @3L78 DS 0H
0001F2 000283 | @3L62 DS 0H
0001F2 5810 7000 000284 | L r1,=A(IBMQJDSB)(,
0001F6 4120 6018 000284 | LA r2,_Dsc_000004(,r
0001FA 4140 60C8 000284 | LA r4,_Dsc_000026(,r
0001FE 58F0 1008 000284 | L r15,&EPA_&WSA(,r1
000202 5800 100C 000284 | L r0,&EPA_&WSA(,r1,
000206 5000 C1F4 000284 | ST r0,_CEECAA_(,r12,
00020A 4150 68C8 000284 | LA r5,+CONSTANT_AREA
00020E 4110 D098 000284 | LA r1,#MX_TEMP3(,r13
000212 5050 D098 000284 | ST r5,#MX_TEMP3(,r13
000216 5040 D09C 000284 | ST r4,#MX_TEMP3(,r13
00021A E54C D0A0 0000 000284 | MVHI #MX_TEMP3(r13,160
000220 5020 D0A4 000284 | ST r2,#MX_TEMP3(,r13
000224 E54C D0A8 0000 000284 | MVHI #MX_TEMP3(r13,168
00022A 0DEF 000284 | BASR r14,r15
00022C 5810 D2DC 000285 | L r1,#SR_PARM_3(,r1
000230 5810 1004 000285 | L r1,_addrReturns_V
000234 E54C 1000 0008 000285 | MVHI _shadow4(r1,0),H'
00023A A7F4 022F 000285 | J @3L415
00023E 000286 | @3L63 DS 0H
00023E A7F4 0002 000286 | J @3L77
000242 000286 | @3L76 DS 0H
000242 000286 | @3L77 DS 0H
000242 E54C D0B4 0001 000290 | MVHI LHANDLETYPE(r13,1
000248 4100 D2A8 000291 | LA r0,_temp1(,r13,68
00024C 5000 D2B0 000291 | ST r0,688(,r13)
000250 C009 0001 0000 000291 | IILF r0,F'65536'
000256 5000 D2B4 000291 | ST r0,_temp2(,r13,69
00025A 4100 D2B0 000291 | LA r0,_temp2(,r13,68
00025E 4120 D0D8 000291 | LA r2,LDIAGAREA(,r13
000262 4140 D0CC 000291 | LA r4,LCONNECTIONHAN
000266 4180 D0B4 000291 | LA r8,LHANDLETYPE(,r
00026A 4190 D0BC 000291 | LA r9,LRC(,r13,188)
00026E 185D 000291 | LR r5,r13
000270 5810 D2BC 000291 | L r1,#CEECAACRENT_3
000274 5010 C1F4 000291 | ST r1,_CEECAA_(,r12,
000278 58F0 3014 000291 | L r15,=A(HTTP_INIT)
00027C 4110 D098 000291 | LA r1,#MX_TEMP3(,r13
000280 5090 D098 000291 | ST r9,#MX_TEMP3(,r13
000284 5080 D09C 000291 | ST r8,#MX_TEMP3(,r13
000288 5040 D0A0 000291 | ST r4,#MX_TEMP3(,r13
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
00028C 5020 D0A4 000291 | ST r2,#MX_TEMP3(,r13
000290 5000 D0A8 000291 | ST r0,#MX_TEMP3(,r13
000294 0DEF 000291 | BASR r14,r15
000296 E300 D2A8 0094 000291 | LLC r0,_temp1(,r13,68
00029C C00B 0000 0080 000291 | NILF r0,F'128'
0002A2 C20F 0000 0000 000291 | CLFI r0,F'0'
0002A8 A784 014C 000291 | JE @3L79
0002AC 000291 | @3L81 DS 0H
0002AC 000292 | @3L64 DS 0H
0002AC 4100 D2A8 000295 | LA r0,_temp1(,r13,68
0002B0 5000 D2B0 000295 | ST r0,688(,r13)
0002B4 C009 0001 0000 000295 | IILF r0,F'65536'
0002BA 5000 D2B4 000295 | ST r0,_temp2(,r13,69
0002BE 4100 D2B0 000295 | LA r0,_temp2(,r13,68
0002C2 4120 D0CC 000295 | LA r2,LCONNECTIONHAN
0002C6 185D 000295 | LR r5,r13
0002C8 5810 D2BC 000295 | L r1,#CEECAACRENT_3
0002CC 5010 C1F4 000295 | ST r1,_CEECAA_(,r12,
0002D0 58F0 3018 000295 | L r15,=A(HTTP_SETUP
0002D4 4110 D098 000295 | LA r1,#MX_TEMP3(,r13
0002D8 5020 D098 000295 | ST r2,#MX_TEMP3(,r13
0002DC 5000 D09C 000295 | ST r0,#MX_TEMP3(,r13
0002E0 0DEF 000295 | BASR r14,r15
0002E2 E300 D2A8 0094 000295 | LLC r0,_temp1(,r13,68
0002E8 C00B 0000 0080 000295 | NILF r0,F'128'
0002EE C20F 0000 0000 000295 | CLFI r0,F'0'
0002F4 A784 010A 000295 | JE @3L82
0002F8 000295 | @3L84 DS 0H
0002F8 000296 | @3L66 DS 0H
0002F8 4100 D2A8 000299 | LA r0,_temp1(,r13,68
0002FC 5000 D2B0 000299 | ST r0,688(,r13)
000300 C009 0001 0000 000299 | IILF r0,F'65536'
000306 5000 D2B4 000299 | ST r0,_temp2(,r13,69
00030A 4100 D2B0 000299 | LA r0,_temp2(,r13,68
00030E 4120 D0D8 000299 | LA r2,LDIAGAREA(,r13
000312 4140 D0CC 000299 | LA r4,LCONNECTIONHAN
000316 4180 D0BC 000299 | LA r8,LRC(,r13,188)
00031A 185D 000299 | LR r5,r13
00031C 5810 D2BC 000299 | L r1,#CEECAACRENT_3
000320 5010 C1F4 000299 | ST r1,_CEECAA_(,r12,
000324 58F0 301C 000299 | L r15,=A(HTTP_CONNE
000328 4110 D098 000299 | LA r1,#MX_TEMP3(,r13
00032C 5080 D098 000299 | ST r8,#MX_TEMP3(,r13
000330 5040 D09C 000299 | ST r4,#MX_TEMP3(,r13
000334 5020 D0A0 000299 | ST r2,#MX_TEMP3(,r13
000338 5000 D0A4 000299 | ST r0,#MX_TEMP3(,r13
00033C 0DEF 000299 | BASR r14,r15
00033E E300 D2A8 0094 000299 | LLC r0,_temp1(,r13,68
000344 C00B 0000 0080 000299 | NILF r0,F'128'
00034A C20F 0000 0000 000299 | CLFI r0,F'0'
000350 A784 00DA 000299 | JE @3L85
000354 000299 | @3L87 DS 0H
000354 000300 | @3L68 DS 0H
000354 E54C D0B4 0002 000303 | MVHI LHANDLETYPE(r13,1
00035A 4100 D2A8 000304 | LA r0,_temp1(,r13,68
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
00035E 5000 D2B0 000304 | ST r0,688(,r13)
000362 C009 0001 0000 000304 | IILF r0,F'65536'
000368 5000 D2B4 000304 | ST r0,_temp2(,r13,69
00036C 4100 D2B0 000304 | LA r0,_temp2(,r13,68
000370 4120 D0D8 000304 | LA r2,LDIAGAREA(,r13
000374 4140 D0C0 000304 | LA r4,LREQUESTHANDLE
000378 4180 D0B4 000304 | LA r8,LHANDLETYPE(,r
00037C 4190 D0BC 000304 | LA r9,LRC(,r13,188)
000380 185D 000304 | LR r5,r13
000382 5810 D2BC 000304 | L r1,#CEECAACRENT_3
000386 5010 C1F4 000304 | ST r1,_CEECAA_(,r12,
00038A 58F0 3014 000304 | L r15,=A(HTTP_INIT)
00038E 4110 D098 000304 | LA r1,#MX_TEMP3(,r13
000392 5090 D098 000304 | ST r9,#MX_TEMP3(,r13
000396 5080 D09C 000304 | ST r8,#MX_TEMP3(,r13
00039A 5040 D0A0 000304 | ST r4,#MX_TEMP3(,r13
00039E 5020 D0A4 000304 | ST r2,#MX_TEMP3(,r13
0003A2 5000 D0A8 000304 | ST r0,#MX_TEMP3(,r13
0003A6 0DEF 000304 | BASR r14,r15
0003A8 E300 D2A8 0094 000304 | LLC r0,_temp1(,r13,68
0003AE C00B 0000 0080 000304 | NILF r0,F'128'
0003B4 C20F 0000 0000 000304 | CLFI r0,F'0'
0003BA A784 008D 000304 | JE @3L88
0003BE 000304 | @3L90 DS 0H
0003BE 000306 | @3L70 DS 0H
0003BE 4100 D2A8 000310 | LA r0,_temp1(,r13,68
0003C2 5000 D2B0 000310 | ST r0,688(,r13)
0003C6 C009 0001 0000 000310 | IILF r0,F'65536'
0003CC 5000 D2B4 000310 | ST r0,_temp2(,r13,69
0003D0 4100 D2B0 000310 | LA r0,_temp2(,r13,68
0003D4 4120 D0C0 000310 | LA r2,LREQUESTHANDLE
0003D8 185D 000310 | LR r5,r13
0003DA 5810 D2BC 000310 | L r1,#CEECAACRENT_3
0003DE 5010 C1F4 000310 | ST r1,_CEECAA_(,r12,
0003E2 58F0 3020 000310 | L r15,=A(HTTP_SETUP
0003E6 4110 D098 000310 | LA r1,#MX_TEMP3(,r13
0003EA 5020 D098 000310 | ST r2,#MX_TEMP3(,r13
0003EE 5000 D09C 000310 | ST r0,#MX_TEMP3(,r13
0003F2 0DEF 000310 | BASR r14,r15
0003F4 E300 D2A8 0094 000310 | LLC r0,_temp1(,r13,68
0003FA C00B 0000 0080 000310 | NILF r0,F'128'
000400 C20F 0000 0000 000310 | CLFI r0,F'0'
000406 A784 004B 000310 | JE @3L91
00040A 000310 | @3L93 DS 0H
00040A 000313 | @3L72 DS 0H
00040A 4100 D2A8 000314 | LA r0,_temp1(,r13,68
00040E 5000 D2B0 000314 | ST r0,688(,r13)
000412 C009 0001 0000 000314 | IILF r0,F'65536'
000418 5000 D2B4 000314 | ST r0,_temp2(,r13,69
00041C 4100 D2B0 000314 | LA r0,_temp2(,r13,68
000420 4120 D0D8 000314 | LA r2,LDIAGAREA(,r13
000424 4140 D0C0 000314 | LA r4,LREQUESTHANDLE
000428 4180 D0CC 000314 | LA r8,LCONNECTIONHAN
00042C 4190 D0BC 000314 | LA r9,LRC(,r13,188)
000430 185D 000314 | LR r5,r13
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
000432 5810 D2BC 000314 | L r1,#CEECAACRENT_3
000436 5010 C1F4 000314 | ST r1,_CEECAA_(,r12,
00043A 58F0 3024 000314 | L r15,=A(HTTP_REQUE
00043E 4110 D098 000314 | LA r1,#MX_TEMP3(,r13
000442 5090 D098 000314 | ST r9,#MX_TEMP3(,r13
000446 5080 D09C 000314 | ST r8,#MX_TEMP3(,r13
00044A 5040 D0A0 000314 | ST r4,#MX_TEMP3(,r13
00044E 5020 D0A4 000314 | ST r2,#MX_TEMP3(,r13
000452 5000 D0A8 000314 | ST r0,#MX_TEMP3(,r13
000456 0DEF 000314 | BASR r14,r15
000458 E300 D2A8 0094 000314 | LLC r0,_temp1(,r13,68
00045E C00B 0000 0080 000314 | NILF r0,F'128'
000464 C20F 0000 0000 000314 | CLFI r0,F'0'
00046A A784 0017 000314 | JE @3L94
00046E 000314 | @3L96 DS 0H
00046E 5800 D180 000319 | L r0,RESPSTATUSCODE
000472 C20F 0000 00C8 000319 | CLFI r0,F'200'
000478 A774 000E 000319 | JNE @3L97
00047C 000319 | @3L99 DS 0H
00047C 000320 | @3L74 DS 0H
00047C 185D 000321 | LR r5,r13
00047E 5800 D2BC 000321 | L r0,#CEECAACRENT_3
000482 5000 C1F4 000321 | ST r0,_CEECAA_(,r12,
000486 58F0 3028 000321 | L r15,=A(WRITEDATA)
00048A 0DEF 000321 | BASR r14,r15
00048C 9280 D160 000322 | MVI REQUESTSUCCESSFUL
000490 000323 | @3L75 DS 0H
000490 A7F4 0002 000323 | J @3L98
000494 000323 | @3L97 DS 0H
000494 000323 | @3L98 DS 0H
000494 A7F4 0002 000323 | J @3L95
000498 000323 | @3L94 DS 0H
000498 000323 | @3L95 DS 0H
000498 000324 | @3L73 DS 0H
000498 A7F4 0002 000324 | J @3L92
00049C 000324 | @3L91 DS 0H
00049C 000324 | @3L92 DS 0H
00049C 4100 D0D8 000328 | LA r0,LDIAGAREA(,r13
0004A0 4120 D0B8 000328 | LA r2,LFORCEOPTION(,
0004A4 4140 D0C0 000328 | LA r4,LREQUESTHANDLE
0004A8 4180 D0BC 000328 | LA r8,LRC(,r13,188)
0004AC 185D 000328 | LR r5,r13
0004AE 5810 D2BC 000328 | L r1,#CEECAACRENT_3
0004B2 5010 C1F4 000328 | ST r1,_CEECAA_(,r12,
0004B6 58F0 302C 000328 | L r15,=A(HTTP_TERMI
0004BA 4110 D098 000328 | LA r1,#MX_TEMP3(,r13
0004BE 5080 D098 000328 | ST r8,#MX_TEMP3(,r13
0004C2 5040 D09C 000328 | ST r4,#MX_TEMP3(,r13
0004C6 5020 D0A0 000328 | ST r2,#MX_TEMP3(,r13
0004CA 5000 D0A4 000328 | ST r0,#MX_TEMP3(,r13
0004CE 0DEF 000328 | BASR r14,r15
0004D0 000330 | @3L71 DS 0H
0004D0 A7F4 0002 000330 | J @3L89
0004D4 000330 | @3L88 DS 0H
0004D4 000330 | @3L89 DS 0H
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
0004D4 4100 D0D8 000334 | LA r0,LDIAGAREA(,r13
0004D8 4120 D0CC 000334 | LA r2,LCONNECTIONHAN
0004DC 4140 D0BC 000334 | LA r4,LRC(,r13,188)
0004E0 185D 000334 | LR r5,r13
0004E2 5810 D2BC 000334 | L r1,#CEECAACRENT_3
0004E6 5010 C1F4 000334 | ST r1,_CEECAA_(,r12,
0004EA 58F0 3030 000334 | L r15,=A(HTTP_DISCO
0004EE 4110 D098 000334 | LA r1,#MX_TEMP3(,r13
0004F2 5040 D098 000334 | ST r4,#MX_TEMP3(,r13
0004F6 5020 D09C 000334 | ST r2,#MX_TEMP3(,r13
0004FA 5000 D0A0 000334 | ST r0,#MX_TEMP3(,r13
0004FE 0DEF 000334 | BASR r14,r15
000500 000335 | @3L69 DS 0H
000500 A7F4 0002 000335 | J @3L86
000504 000335 | @3L85 DS 0H
000504 000335 | @3L86 DS 0H
000504 000336 | @3L67 DS 0H
000504 A7F4 0002 000336 | J @3L83
000508 000336 | @3L82 DS 0H
000508 000336 | @3L83 DS 0H
000508 4100 D0D8 000340 | LA r0,LDIAGAREA(,r13
00050C 4120 D0B8 000340 | LA r2,LFORCEOPTION(,
000510 4140 D0CC 000340 | LA r4,LCONNECTIONHAN
000514 4180 D0BC 000340 | LA r8,LRC(,r13,188)
000518 185D 000340 | LR r5,r13
00051A 5810 D2BC 000340 | L r1,#CEECAACRENT_3
00051E 5010 C1F4 000340 | ST r1,_CEECAA_(,r12,
000522 58F0 302C 000340 | L r15,=A(HTTP_TERMI
000526 4110 D098 000340 | LA r1,#MX_TEMP3(,r13
00052A 5080 D098 000340 | ST r8,#MX_TEMP3(,r13
00052E 5040 D09C 000340 | ST r4,#MX_TEMP3(,r13
000532 5020 D0A0 000340 | ST r2,#MX_TEMP3(,r13
000536 5000 D0A4 000340 | ST r0,#MX_TEMP3(,r13
00053A 0DEF 000340 | BASR r14,r15
00053C 000341 | @3L65 DS 0H
00053C A7F4 0002 000341 | J @3L80
000540 000341 | @3L79 DS 0H
000540 000341 | @3L80 DS 0H
000540 5810 7000 000346 | L r1,=A(IBMQJDSB)(,
000544 4120 6018 000346 | LA r2,_Dsc_000004(,r
000548 4140 6028 000346 | LA r4,_Dsc_000006(,r
00054C 58F0 1008 000346 | L r15,&EPA_&WSA(,r1
000550 5800 100C 000346 | L r0,&EPA_&WSA(,r1,
000554 5000 C1F4 000346 | ST r0,_CEECAA_(,r12,
000558 4150 67DC 000346 | LA r5,+CONSTANT_AREA
00055C 4110 D098 000346 | LA r1,#MX_TEMP3(,r13
000560 5050 D098 000346 | ST r5,#MX_TEMP3(,r13
000564 5040 D09C 000346 | ST r4,#MX_TEMP3(,r13
000568 E54C D0A0 0000 000346 | MVHI #MX_TEMP3(r13,160
00056E 5020 D0A4 000346 | ST r2,#MX_TEMP3(,r13
000572 E54C D0A8 0000 000346 | MVHI #MX_TEMP3(r13,168
000578 0DEF 000346 | BASR r14,r15
00057A 5800 D0BC 000347 | L r0,LRC(,r13,188)
00057E 1200 000347 | LTR r0,r0
000580 A774 002C 000347 | JNE @3L100
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
000584 E300 D160 0094 000347 | LLC r0,REQUESTSUCCESS
00058A C00B 0000 0080 000347 | NILF r0,F'128'
000590 C20F 0000 0000 000347 | CLFI r0,F'0'
000596 A784 0021 000347 | JE @3L100
00059A 000347 | @3L102 DS 0H
00059A 5810 7000 000348 | L r1,=A(IBMQJDSB)(,
00059E 4120 6018 000348 | LA r2,_Dsc_000004(,r
0005A2 4140 60F0 000348 | LA r4,_Dsc_000031(,r
0005A6 58F0 1008 000348 | L r15,&EPA_&WSA(,r1
0005AA 5800 100C 000348 | L r0,&EPA_&WSA(,r1,
0005AE 5000 C1F4 000348 | ST r0,_CEECAA_(,r12,
0005B2 4150 68F0 000348 | LA r5,+CONSTANT_AREA
0005B6 4110 D098 000348 | LA r1,#MX_TEMP3(,r13
0005BA 5050 D098 000348 | ST r5,#MX_TEMP3(,r13
0005BE 5040 D09C 000348 | ST r4,#MX_TEMP3(,r13
0005C2 E54C D0A0 0000 000348 | MVHI #MX_TEMP3(r13,160
0005C8 5020 D0A4 000348 | ST r2,#MX_TEMP3(,r13
0005CC E54C D0A8 0000 000348 | MVHI #MX_TEMP3(r13,168
0005D2 0DEF 000348 | BASR r14,r15
0005D4 A7F4 001F 000348 | J @3L101
0005D8 000348 | @3L100 DS 0H
0005D8 5810 7000 000350 | L r1,=A(IBMQJDSB)(,
0005DC 4120 6018 000350 | LA r2,_Dsc_000004(,r
0005E0 4140 6100 000350 | LA r4,_Dsc_000033(,r
0005E4 58F0 1008 000350 | L r15,&EPA_&WSA(,r1
0005E8 5800 100C 000350 | L r0,&EPA_&WSA(,r1,
0005EC 5000 C1F4 000350 | ST r0,_CEECAA_(,r12,
0005F0 4150 691E 000350 | LA r5,+CONSTANT_AREA
0005F4 4110 D098 000350 | LA r1,#MX_TEMP3(,r13
0005F8 5050 D098 000350 | ST r5,#MX_TEMP3(,r13
0005FC 5040 D09C 000350 | ST r4,#MX_TEMP3(,r13
000600 E54C D0A0 0000 000350 | MVHI #MX_TEMP3(r13,160
000606 5020 D0A4 000350 | ST r2,#MX_TEMP3(,r13
00060A E54C D0A8 0000 000350 | MVHI #MX_TEMP3(r13,168
000610 0DEF 000350 | BASR r14,r15
000612 000350 | @3L101 DS 0H
000612 5810 7000 000353 | L r1,=A(IBMQJDSB)(,
000616 4120 6018 000353 | LA r2,_Dsc_000004(,r
00061A 4140 60D0 000353 | LA r4,_Dsc_000027(,r
00061E 58F0 1008 000353 | L r15,&EPA_&WSA(,r1
000622 5800 100C 000353 | L r0,&EPA_&WSA(,r1,
000626 5000 C1F4 000353 | ST r0,_CEECAA_(,r12,
00062A 4150 694E 000353 | LA r5,+CONSTANT_AREA
00062E 4110 D098 000353 | LA r1,#MX_TEMP3(,r13
000632 5050 D098 000353 | ST r5,#MX_TEMP3(,r13
000636 5040 D09C 000353 | ST r4,#MX_TEMP3(,r13
00063A E54C D0A0 0000 000353 | MVHI #MX_TEMP3(r13,160
000640 5020 D0A4 000353 | ST r2,#MX_TEMP3(,r13
000644 E54C D0A8 0000 000353 | MVHI #MX_TEMP3(r13,168
00064A 0DEF 000353 | BASR r14,r15
00064C 5810 7000 000354 | L r1,=A(IBMQJDSB)(,
000650 4120 6018 000354 | LA r2,_Dsc_000004(,r
000654 4140 60D0 000354 | LA r4,_Dsc_000027(,r
000658 58F0 1008 000354 | L r15,&EPA_&WSA(,r1
00065C 5800 100C 000354 | L r0,&EPA_&WSA(,r1,
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
000660 5000 C1F4 000354 | ST r0,_CEECAA_(,r12,
000664 4150 6978 000354 | LA r5,+CONSTANT_AREA
000668 4110 D098 000354 | LA r1,#MX_TEMP3(,r13
00066C 5050 D098 000354 | ST r5,#MX_TEMP3(,r13
000670 5040 D09C 000354 | ST r4,#MX_TEMP3(,r13
000674 E54C D0A0 0000 000354 | MVHI #MX_TEMP3(r13,160
00067A 5020 D0A4 000354 | ST r2,#MX_TEMP3(,r13
00067E E54C D0A8 0000 000354 | MVHI #MX_TEMP3(r13,168
000684 0DEF 000354 | BASR r14,r15
000686 000994 | @3L61 DS 0H
000686 5810 7004 000994 | L r1,=A(IBMQEFSH)(,
00068A 58F0 1008 000994 | L r15,&EPA_&WSA(,r1
00068E 5800 100C 000994 | L r0,&EPA_&WSA(,r1,
000692 5000 C1F4 000994 | ST r0,_CEECAA_(,r12,
000696 0DEF 000994 | BASR r14,r15
000698 000994 | @3L415 DS 0H
000698 5800 D2BC 000000 | L r0,#CEECAACRENT_3
00069C 5000 C1F4 000000 | ST r0,_CEECAA_(,r12,
0006A0 Start of Epilog
0006A0 58D0 D004 000994 | L r13,4(,r13)
0006A4 58E0 D00C 000994 | L r14,12(,r13)
0006A8 9829 D01C 000994 | LM r2,r9,28(r13)
0006AC 051E 000994 | BALR r1,r14
0006AE 0707 000994 | NOPR 7
0006B0 Start of Literals
0006B0 00000000 =Q(@STATIC)
0006B4 00000000 =Q(HWTHHDRX)
0006B8 00000000 =Q(RESPHDREXITADD
0006BC 00000000 =Q(HWTHBDYX)
0006C0 00000000 =Q(RESPBDYEXITADD
0006C4 000038F0 =A(HTTP_INIT)
0006C8 00003538 =A(HTTP_SETUPCONN
0006CC 000031B0 =A(HTTP_CONNECT)
0006D0 00002740 =A(HTTP_SETUPREQU
0006D4 00002068 =A(HTTP_REQUEST)
0006D8 000017F8 =A(WRITEDATA)
0006DC 00001D40 =A(HTTP_TERMINATE
0006E0 00001ED8 =A(HTTP_DISCONNEC
0006E4 End of Literals
*** General purpose registers used: 111111111100111
*** Floating point registers used: 111111110000000
*** Size of register spill area: 512(max) 0(used)
*** Size of dynamic storage: 736
*** Size of executable code: 1712
*** CSECT Offset: 3336 : 0xD08
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
DISPLAY_ERROR
000000 000952 | DS 0D
000000 47F0 F024 000952 | B 36(,r15)
000004 01C3C5C5 CEE eyecatcher
000008 00000180 DSA size
00000C 00005EA8 =A(PPA1-DISPLAY_E
000010 47F0 F001 000952 | B 1(,r15)
000014 58F0 C31C 000952 | L r15,796(,r12)
000018 184E 000952 | LR r4,r14
00001A 05EF 000952 | BALR r14,r15
00001C 00000000 =F'0'
000020 A7F4 000C 000952 | J *+24
000024 90E7 D00C 000952 | STM r14,r7,12(r13)
000028 58E0 D04C 000952 | L r14,76(,r13)
00002C 4100 E180 000952 | LA r0,384(,r14)
000030 5500 C314 000952 | CL r0,788(,r12)
000034 A724 FFF0 000952 | JH *-32
000038 58F0 C280 000952 | L r15,640(,r12)
00003C 90F0 E048 000952 | STM r15,r0,72(r14)
000040 9210 E000 000952 | MVI 0(r14),16
000044 50D0 E004 000952 | ST r13,4(,r14)
000048 18DE 000952 | LR r13,r14
00004A C030 0000 01DD 000952 | LARL r3,F'477'
000050 End of Prolog
000050 5800 C1F4 000000 | L r0,_CEECAA_(,r12,
000054 5000 D17C 000000 | ST r0,#_CEECAACRENT_
000058 5820 D17C 000000 | L r2,#_CEECAACRENT_
00005C 5800 3000 000000 | L r0,=Q(@STATIC)(,r
000060 1E02 000000 | ALR r0,r2
000062 1870 000000 | LR r7,r0
000064 C060 0000 27C2 000000 | LARL r6,F'10178'
00006A 5010 D168 000952 | ST r1,#SR_PARM_4(,r1
00006E 5050 D164 000952 | ST r5,#ENV:DISPLAY_E
000072 5810 7000 000958 | L r1,=A(IBMQJDSB)(,
000076 4120 6018 000958 | LA r2,_Dsc_000004(,r
00007A 4140 6028 000958 | LA r4,_Dsc_000006(,r
00007E 58F0 1008 000958 | L r15,&EPA_&WSA(,r1
000082 5800 100C 000958 | L r0,&EPA_&WSA(,r1,
000086 5000 C1F4 000958 | ST r0,_CEECAA_(,r12,
00008A 4150 67DC 000958 | LA r5,+CONSTANT_AREA
00008E 4110 D098 000958 | LA r1,#MX_TEMP4(,r13
000092 5050 D098 000958 | ST r5,#MX_TEMP4(,r13
000096 5040 D09C 000958 | ST r4,#MX_TEMP4(,r13
00009A E54C D0A0 0000 000958 | MVHI #MX_TEMP4(r13,160
0000A0 5020 D0A4 000958 | ST r2,#MX_TEMP4(,r13
0000A4 E54C D0A8 0000 000958 | MVHI #MX_TEMP4(r13,168
0000AA 0DEF 000958 | BASR r14,r15
0000AC 5810 D168 000962 | L r1,#SR_PARM_4(,r1
0000B0 5850 1008 000962 | L r5,_addrINERRORME
0000B4 5810 7000 000962 | L r1,=A(IBMQJDSB)(,
0000B8 4120 6018 000962 | LA r2,_Dsc_000004(,r
0000BC 4140 6040 000962 | LA r4,_Dsc_000009(,r
0000C0 58F0 1008 000962 | L r15,&EPA_&WSA(,r1
0000C4 5800 100C 000962 | L r0,&EPA_&WSA(,r1,
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
0000C8 5000 C1F4 000962 | ST r0,_CEECAA_(,r12,
0000CC 4110 D098 000962 | LA r1,#MX_TEMP4(,r13
0000D0 5050 D098 000962 | ST r5,#MX_TEMP4(,r13
0000D4 5040 D09C 000962 | ST r4,#MX_TEMP4(,r13
0000D8 E54C D0A0 0000 000962 | MVHI #MX_TEMP4(r13,160
0000DE 5020 D0A4 000962 | ST r2,#MX_TEMP4(,r13
0000E2 E54C D0A8 0000 000962 | MVHI #MX_TEMP4(r13,168
0000E8 0DEF 000962 | BASR r14,r15
0000EA 5810 7000 000964 | L r1,=A(IBMQJDSB)(,
0000EE 4120 6018 000964 | LA r2,_Dsc_000004(,r
0000F2 4140 6028 000964 | LA r4,_Dsc_000006(,r
0000F6 58F0 1008 000964 | L r15,&EPA_&WSA(,r1
0000FA 5800 100C 000964 | L r0,&EPA_&WSA(,r1,
0000FE 5000 C1F4 000964 | ST r0,_CEECAA_(,r12,
000102 4150 67DC 000964 | LA r5,+CONSTANT_AREA
000106 4110 D098 000964 | LA r1,#MX_TEMP4(,r13
00010A 5050 D098 000964 | ST r5,#MX_TEMP4(,r13
00010E 5040 D09C 000964 | ST r4,#MX_TEMP4(,r13
000112 E54C D0A0 0000 000964 | MVHI #MX_TEMP4(r13,160
000118 5020 D0A4 000964 | ST r2,#MX_TEMP4(,r13
00011C E54C D0A8 0000 000964 | MVHI #MX_TEMP4(r13,168
000122 0DEF 000964 | BASR r14,r15
000124 D20D D14C 6358 000968 | MVC _temp31(14,r13,33
00012A 5810 D168 000968 | L r1,#SR_PARM_4(,r1
00012E 5810 1000 000968 | L r1,_addrINRC(,r1,
000132 D203 D12C 1000 000968 | MVC _temp28(4,r13,300
000138 4110 D134 000968 | LA r1,_temp29(,r13,3
00013C 4120 D12C 000968 | LA r2,_temp28(,r13,3
000140 F384 1000 2000 000968 | UNPK _temp29(9,r1,0),_
000146 4110 D134 000968 | LA r1,_temp29(,r13,3
00014A 4120 6278 000968 | LA r2,'0123456789ABC
00014E DC07 1000 2000 000968 | TR _temp29(8,r1,0),'
000154 D207 D15A D134 000968 | MVC _temp31(8,r13,346
00015A 5810 7000 000968 | L r1,=A(IBMQJDSB)(,
00015E 4120 6018 000968 | LA r2,_Dsc_000004(,r
000162 4140 6058 000968 | LA r4,_Dsc_000012(,r
000166 4150 D14C 000968 | LA r5,_temp31(,r13,3
00016A 58F0 1008 000968 | L r15,&EPA_&WSA(,r1
00016E 5800 100C 000968 | L r0,&EPA_&WSA(,r1,
000172 5000 C1F4 000968 | ST r0,_CEECAA_(,r12,
000176 4110 D098 000968 | LA r1,#MX_TEMP4(,r13
00017A 5050 D098 000968 | ST r5,#MX_TEMP4(,r13
00017E 5040 D09C 000968 | ST r4,#MX_TEMP4(,r13
000182 E54C D0A0 0000 000968 | MVHI #MX_TEMP4(r13,160
000188 5020 D0A4 000968 | ST r2,#MX_TEMP4(,r13
00018C E54C D0A8 0000 000968 | MVHI #MX_TEMP4(r13,168
000192 0DEF 000968 | BASR r14,r15
000194 5810 7000 000970 | L r1,=A(IBMQJDSB)(,
000198 4120 6018 000970 | LA r2,_Dsc_000004(,r
00019C 4140 6028 000970 | LA r4,_Dsc_000006(,r
0001A0 58F0 1008 000970 | L r15,&EPA_&WSA(,r1
0001A4 5800 100C 000970 | L r0,&EPA_&WSA(,r1,
0001A8 5000 C1F4 000970 | ST r0,_CEECAA_(,r12,
0001AC 4150 67DC 000970 | LA r5,+CONSTANT_AREA
0001B0 4110 D098 000970 | LA r1,#MX_TEMP4(,r13
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
0001B4 5050 D098 000970 | ST r5,#MX_TEMP4(,r13
0001B8 5040 D09C 000970 | ST r4,#MX_TEMP4(,r13
0001BC E54C D0A0 0000 000970 | MVHI #MX_TEMP4(r13,160
0001C2 5020 D0A4 000970 | ST r2,#MX_TEMP4(,r13
0001C6 E54C D0A8 0000 000970 | MVHI #MX_TEMP4(r13,168
0001CC 0DEF 000970 | BASR r14,r15
0001CE D20D D14C 6378 000974 | MVC _temp31(14,r13,33
0001D4 5810 D168 000974 | L r1,#SR_PARM_4(,r1
0001D8 5810 1004 000974 | L r1,_addrINDIAGARE
0001DC D203 D12C 1000 000974 | MVC _temp28(4,r13,300
0001E2 4110 D140 000974 | LA r1,_temp30(,r13,3
0001E6 4120 D12C 000974 | LA r2,_temp28(,r13,3
0001EA F384 1000 2000 000974 | UNPK _temp30(9,r1,0),_
0001F0 4110 D140 000974 | LA r1,_temp30(,r13,3
0001F4 4120 6278 000974 | LA r2,'0123456789ABC
0001F8 DC07 1000 2000 000974 | TR _temp30(8,r1,0),'
0001FE D207 D15A D140 000974 | MVC _temp31(8,r13,346
000204 5810 7000 000974 | L r1,=A(IBMQJDSB)(,
000208 4120 6018 000974 | LA r2,_Dsc_000004(,r
00020C 4140 6058 000974 | LA r4,_Dsc_000012(,r
000210 4150 D14C 000974 | LA r5,_temp31(,r13,3
000214 58F0 1008 000974 | L r15,&EPA_&WSA(,r1
000218 5800 100C 000974 | L r0,&EPA_&WSA(,r1,
00021C 5000 C1F4 000974 | ST r0,_CEECAA_(,r12,
000220 4110 D098 000974 | LA r1,#MX_TEMP4(,r13
000224 5050 D098 000974 | ST r5,#MX_TEMP4(,r13
000228 5040 D09C 000974 | ST r4,#MX_TEMP4(,r13
00022C E54C D0A0 0000 000974 | MVHI #MX_TEMP4(r13,160
000232 5020 D0A4 000974 | ST r2,#MX_TEMP4(,r13
000236 E54C D0A8 0000 000974 | MVHI #MX_TEMP4(r13,168
00023C 0DEF 000974 | BASR r14,r15
00023E 5810 7000 000975 | L r1,=A(IBMQJDSB)(,
000242 4120 6018 000975 | LA r2,_Dsc_000004(,r
000246 4140 6028 000975 | LA r4,_Dsc_000006(,r
00024A 58F0 1008 000975 | L r15,&EPA_&WSA(,r1
00024E 5800 100C 000975 | L r0,&EPA_&WSA(,r1,
000252 5000 C1F4 000975 | ST r0,_CEECAA_(,r12,
000256 4150 67DC 000975 | LA r5,+CONSTANT_AREA
00025A 4110 D098 000975 | LA r1,#MX_TEMP4(,r13
00025E 5050 D098 000975 | ST r5,#MX_TEMP4(,r13
000262 5040 D09C 000975 | ST r4,#MX_TEMP4(,r13
000266 E54C D0A0 0000 000975 | MVHI #MX_TEMP4(r13,160
00026C 5020 D0A4 000975 | ST r2,#MX_TEMP4(,r13
000270 E54C D0A8 0000 000975 | MVHI #MX_TEMP4(r13,168
000276 0DEF 000975 | BASR r14,r15
000278 D20D D14C 6388 000979 | MVC _temp31(14,r13,33
00027E 5810 D168 000979 | L r1,#SR_PARM_4(,r1
000282 5810 1004 000979 | L r1,_addrINDIAGARE
000286 D203 D12C 1004 000979 | MVC _temp28(4,r13,300
00028C 4110 D134 000979 | LA r1,_temp29(,r13,3
000290 4120 D12C 000979 | LA r2,_temp28(,r13,3
000294 F384 1000 2000 000979 | UNPK _temp29(9,r1,0),_
00029A 4110 D134 000979 | LA r1,_temp29(,r13,3
00029E 4120 6278 000979 | LA r2,'0123456789ABC
0002A2 DC07 1000 2000 000979 | TR _temp29(8,r1,0),'
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
0002A8 D207 D15A D134 000979 | MVC _temp31(8,r13,346
0002AE 5810 7000 000979 | L r1,=A(IBMQJDSB)(,
0002B2 4120 6018 000979 | LA r2,_Dsc_000004(,r
0002B6 4140 6058 000979 | LA r4,_Dsc_000012(,r
0002BA 4150 D14C 000979 | LA r5,_temp31(,r13,3
0002BE 58F0 1008 000979 | L r15,&EPA_&WSA(,r1
0002C2 5800 100C 000979 | L r0,&EPA_&WSA(,r1,
0002C6 5000 C1F4 000979 | ST r0,_CEECAA_(,r12,
0002CA 4110 D098 000979 | LA r1,#MX_TEMP4(,r13
0002CE 5050 D098 000979 | ST r5,#MX_TEMP4(,r13
0002D2 5040 D09C 000979 | ST r4,#MX_TEMP4(,r13
0002D6 E54C D0A0 0000 000979 | MVHI #MX_TEMP4(r13,160
0002DC 5020 D0A4 000979 | ST r2,#MX_TEMP4(,r13
0002E0 E54C D0A8 0000 000979 | MVHI #MX_TEMP4(r13,168
0002E6 0DEF 000979 | BASR r14,r15
0002E8 5810 7000 000986 | L r1,=A(IBMQJDSB)(,
0002EC 4120 6018 000986 | LA r2,_Dsc_000004(,r
0002F0 4140 6028 000986 | LA r4,_Dsc_000006(,r
0002F4 58F0 1008 000986 | L r15,&EPA_&WSA(,r1
0002F8 5800 100C 000986 | L r0,&EPA_&WSA(,r1,
0002FC 5000 C1F4 000986 | ST r0,_CEECAA_(,r12,
000300 4150 67DC 000986 | LA r5,+CONSTANT_AREA
000304 4110 D098 000986 | LA r1,#MX_TEMP4(,r13
000308 5050 D098 000986 | ST r5,#MX_TEMP4(,r13
00030C 5040 D09C 000986 | ST r4,#MX_TEMP4(,r13
000310 E54C D0A0 0000 000986 | MVHI #MX_TEMP4(r13,160
000316 5020 D0A4 000986 | ST r2,#MX_TEMP4(,r13
00031A E54C D0A8 0000 000986 | MVHI #MX_TEMP4(r13,168
000320 0DEF 000986 | BASR r14,r15
000322 D20D D0B0 6398 000987 | MVC _temp27(14,r13,17
000328 5810 D168 000987 | L r1,#SR_PARM_4(,r1
00032C 5810 1004 000987 | L r1,_addrINDIAGARE
000330 D26D D0BE 1008 000987 | MVC _temp27(110,r13,1
000336 5810 7000 000987 | L r1,=A(IBMQJDSB)(,
00033A 4120 6018 000987 | LA r2,_Dsc_000004(,r
00033E 4140 6020 000987 | LA r4,_Dsc_000005(,r
000342 4150 D0B0 000987 | LA r5,_temp27(,r13,1
000346 58F0 1008 000987 | L r15,&EPA_&WSA(,r1
00034A 5800 100C 000987 | L r0,&EPA_&WSA(,r1,
00034E 5000 C1F4 000987 | ST r0,_CEECAA_(,r12,
000352 4110 D098 000987 | LA r1,#MX_TEMP4(,r13
000356 5050 D098 000987 | ST r5,#MX_TEMP4(,r13
00035A 5040 D09C 000987 | ST r4,#MX_TEMP4(,r13
00035E E54C D0A0 0000 000987 | MVHI #MX_TEMP4(r13,160
000364 5020 D0A4 000987 | ST r2,#MX_TEMP4(,r13
000368 E54C D0A8 0000 000987 | MVHI #MX_TEMP4(r13,168
00036E 0DEF 000987 | BASR r14,r15
000370 5810 D168 000988 | L r1,#SR_PARM_4(,r1
000374 5850 1004 000988 | L r5,_addrINDIAGARE
000378 5810 7000 000988 | L r1,=A(IBMQJDSB)(,
00037C 4120 6018 000988 | LA r2,_Dsc_000004(,r
000380 4140 6048 000988 | LA r4,_Dsc_000010(,r
000384 4150 5076 000988 | LA r5,#AddressShadow
000388 58F0 1008 000988 | L r15,&EPA_&WSA(,r1
00038C 5800 100C 000988 | L r0,&EPA_&WSA(,r1,
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
000390 5000 C1F4 000988 | ST r0,_CEECAA_(,r12,
000394 4110 D098 000988 | LA r1,#MX_TEMP4(,r13
000398 5050 D098 000988 | ST r5,#MX_TEMP4(,r13
00039C 5040 D09C 000988 | ST r4,#MX_TEMP4(,r13
0003A0 E54C D0A0 0000 000988 | MVHI #MX_TEMP4(r13,160
0003A6 5020 D0A4 000988 | ST r2,#MX_TEMP4(,r13
0003AA E54C D0A8 0000 000988 | MVHI #MX_TEMP4(r13,168
0003B0 0DEF 000988 | BASR r14,r15
0003B2 5810 7000 000990 | L r1,=A(IBMQJDSB)(,
0003B6 4120 6018 000990 | LA r2,_Dsc_000004(,r
0003BA 4140 6028 000990 | LA r4,_Dsc_000006(,r
0003BE 58F0 1008 000990 | L r15,&EPA_&WSA(,r1
0003C2 5800 100C 000990 | L r0,&EPA_&WSA(,r1,
0003C6 5000 C1F4 000990 | ST r0,_CEECAA_(,r12,
0003CA 4150 67DC 000990 | LA r5,+CONSTANT_AREA
0003CE 4110 D098 000990 | LA r1,#MX_TEMP4(,r13
0003D2 5050 D098 000990 | ST r5,#MX_TEMP4(,r13
0003D6 5040 D09C 000990 | ST r4,#MX_TEMP4(,r13
0003DA E54C D0A0 0000 000990 | MVHI #MX_TEMP4(r13,160
0003E0 5020 D0A4 000990 | ST r2,#MX_TEMP4(,r13
0003E4 E54C D0A8 0000 000990 | MVHI #MX_TEMP4(r13,168
0003EA 0DEF 000990 | BASR r14,r15
0003EC 000992 | @4L104 DS 0H
0003EC 000992 | @4L427 DS 0H
0003EC 5800 D17C 000000 | L r0,#_CEECAACRENT_
0003F0 5000 C1F4 000000 | ST r0,_CEECAA_(,r12,
0003F4 Start of Epilog
0003F4 58D0 D004 000992 | L r13,4(,r13)
0003F8 58E0 D00C 000992 | L r14,12(,r13)
0003FC 9827 D01C 000992 | LM r2,r7,28(r13)
000400 051E 000992 | BALR r1,r14
000402 0707 000992 | NOPR 7
000404 Start of Literals
000404 00000000 =Q(@STATIC)
000408 End of Literals
*** General purpose registers used: 111111110000111
*** Floating point registers used: 111111110000000
*** Size of register spill area: 512(max) 0(used)
*** Size of dynamic storage: 384
*** Size of executable code: 1028
*** CSECT Offset: 5104 : 0x13F0
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
WRITEDATA
000000 000897 | DS 0D
000000 47F0 F024 000897 | B 36(,r15)
000004 01C3C5C5 CEE eyecatcher
000008 00000270 DSA size
00000C 00005AE8 =A(PPA1-WRITEDATA
000010 47F0 F001 000897 | B 1(,r15)
000014 58F0 C31C 000897 | L r15,796(,r12)
000018 184E 000897 | LR r4,r14
00001A 05EF 000897 | BALR r14,r15
00001C 00000000 =F'0'
000020 A7F4 000C 000897 | J *+24
000024 90E7 D00C 000897 | STM r14,r7,12(r13)
000028 58E0 D04C 000897 | L r14,76(,r13)
00002C 4100 E270 000897 | LA r0,624(,r14)
000030 5500 C314 000897 | CL r0,788(,r12)
000034 A724 FFF0 000897 | JH *-32
000038 58F0 C280 000897 | L r15,640(,r12)
00003C 90F0 E048 000897 | STM r15,r0,72(r14)
000040 9210 E000 000897 | MVI 0(r14),16
000044 50D0 E004 000897 | ST r13,4(,r14)
000048 18DE 000897 | LR r13,r14
00004A C030 0000 027D 000897 | LARL r3,F'637'
000050 End of Prolog
000050 5800 C1F4 000000 | L r0,_CEECAA_(,r12,
000054 5000 D268 000000 | ST r0,#_CEECAACRENT_
000058 5810 D268 000000 | L r1,#_CEECAACRENT_
00005C 5800 3000 000000 | L r0,=Q(@STATIC)(,r
000060 1E01 000000 | ALR r0,r1
000062 1870 000000 | LR r7,r0
000064 C060 0000 25BE 000000 | LARL r6,F'9662'
00006A 5050 D224 000897 | ST r5,#ENV:WRITEDATA
00006E 5810 7000 000901 | L r1,=A(IBMQJDSB)(,
000072 4120 6018 000901 | LA r2,_Dsc_000004(,r
000076 4140 60A8 000901 | LA r4,_Dsc_000022(,r
00007A 58F0 1008 000901 | L r15,&EPA_&WSA(,r1
00007E 5800 100C 000901 | L r0,&EPA_&WSA(,r1,
000082 5000 C1F4 000901 | ST r0,_CEECAA_(,r12,
000086 4150 69A2 000901 | LA r5,+CONSTANT_AREA
00008A 4110 D098 000901 | LA r1,#MX_TEMP5(,r13
00008E 5050 D098 000901 | ST r5,#MX_TEMP5(,r13
000092 5040 D09C 000901 | ST r4,#MX_TEMP5(,r13
000096 E54C D0A0 0000 000901 | MVHI #MX_TEMP5(r13,160
00009C 5020 D0A4 000901 | ST r2,#MX_TEMP5(,r13
0000A0 E54C D0A8 0000 000901 | MVHI #MX_TEMP5(r13,168
0000A6 0DEF 000901 | BASR r14,r15
0000A8 D210 D20C 62CC 000903 | MVC _temp26(17,r13,52
0000AE 5810 D224 000903 | L r1,#ENV:WRITEDATA
0000B2 D205 D21D 11CA 000903 | MVC _temp26(6,r13,541
0000B8 5810 7000 000903 | L r1,=A(IBMQJDSB)(,
0000BC 4120 6018 000903 | LA r2,_Dsc_000004(,r
0000C0 4140 6060 000903 | LA r4,_Dsc_000013(,r
0000C4 4150 D20C 000903 | LA r5,_temp26(,r13,5
0000C8 58F0 1008 000903 | L r15,&EPA_&WSA(,r1
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
0000CC 5800 100C 000903 | L r0,&EPA_&WSA(,r1,
0000D0 5000 C1F4 000903 | ST r0,_CEECAA_(,r12,
0000D4 4110 D098 000903 | LA r1,#MX_TEMP5(,r13
0000D8 5050 D098 000903 | ST r5,#MX_TEMP5(,r13
0000DC 5040 D09C 000903 | ST r4,#MX_TEMP5(,r13
0000E0 E54C D0A0 0000 000903 | MVHI #MX_TEMP5(r13,160
0000E6 5020 D0A4 000903 | ST r2,#MX_TEMP5(,r13
0000EA E54C D0A8 0000 000903 | MVHI #MX_TEMP5(r13,168
0000F0 0DEF 000903 | BASR r14,r15
0000F2 5810 7000 000905 | L r1,=A(IBMQJDSB)(,
0000F6 4120 6018 000905 | LA r2,_Dsc_000004(,r
0000FA 4140 60A8 000905 | LA r4,_Dsc_000022(,r
0000FE 58F0 1008 000905 | L r15,&EPA_&WSA(,r1
000102 5800 100C 000905 | L r0,&EPA_&WSA(,r1,
000106 5000 C1F4 000905 | ST r0,_CEECAA_(,r12,
00010A 4150 69A2 000905 | LA r5,+CONSTANT_AREA
00010E 4110 D098 000905 | LA r1,#MX_TEMP5(,r13
000112 5050 D098 000905 | ST r5,#MX_TEMP5(,r13
000116 5040 D09C 000905 | ST r4,#MX_TEMP5(,r13
00011A E54C D0A0 0000 000905 | MVHI #MX_TEMP5(r13,160
000120 5020 D0A4 000905 | ST r2,#MX_TEMP5(,r13
000124 E54C D0A8 0000 000905 | MVHI #MX_TEMP5(r13,168
00012A 0DEF 000905 | BASR r14,r15
00012C 5810 7000 000907 | L r1,=A(IBMQJDSB)(,
000130 4120 6018 000907 | LA r2,_Dsc_000004(,r
000134 4140 6028 000907 | LA r4,_Dsc_000006(,r
000138 58F0 1008 000907 | L r15,&EPA_&WSA(,r1
00013C 5800 100C 000907 | L r0,&EPA_&WSA(,r1,
000140 5000 C1F4 000907 | ST r0,_CEECAA_(,r12,
000144 4150 67DC 000907 | LA r5,+CONSTANT_AREA
000148 4110 D098 000907 | LA r1,#MX_TEMP5(,r13
00014C 5050 D098 000907 | ST r5,#MX_TEMP5(,r13
000150 5040 D09C 000907 | ST r4,#MX_TEMP5(,r13
000154 E54C D0A0 0000 000907 | MVHI #MX_TEMP5(r13,160
00015A 5020 D0A4 000907 | ST r2,#MX_TEMP5(,r13
00015E E54C D0A8 0000 000907 | MVHI #MX_TEMP5(r13,168
000164 0DEF 000907 | BASR r14,r15
000166 D20D D1CC 62E0 000909 | MVC _temp25(14,r13,46
00016C 5810 D224 000909 | L r1,#ENV:WRITEDATA
000170 D231 D1DA 1198 000909 | MVC _temp25(50,r13,47
000176 5810 7000 000909 | L r1,=A(IBMQJDSB)(,
00017A 4120 6018 000909 | LA r2,_Dsc_000004(,r
00017E 4140 6030 000909 | LA r4,_Dsc_000007(,r
000182 4150 D1CC 000909 | LA r5,_temp25(,r13,4
000186 58F0 1008 000909 | L r15,&EPA_&WSA(,r1
00018A 5800 100C 000909 | L r0,&EPA_&WSA(,r1,
00018E 5000 C1F4 000909 | ST r0,_CEECAA_(,r12,
000192 4110 D098 000909 | LA r1,#MX_TEMP5(,r13
000196 5050 D098 000909 | ST r5,#MX_TEMP5(,r13
00019A 5040 D09C 000909 | ST r4,#MX_TEMP5(,r13
00019E E54C D0A0 0000 000909 | MVHI #MX_TEMP5(r13,160
0001A4 5020 D0A4 000909 | ST r2,#MX_TEMP5(,r13
0001A8 E54C D0A8 0000 000909 | MVHI #MX_TEMP5(r13,168
0001AE 0DEF 000909 | BASR r14,r15
0001B0 D20E D19C 62F0 000911 | MVC _temp24(15,r13,41
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
0001B6 5810 D224 000911 | L r1,#ENV:WRITEDATA
0001BA D21D D1AB 11D0 000911 | MVC _temp24(30,r13,42
0001C0 5810 7000 000911 | L r1,=A(IBMQJDSB)(,
0001C4 4120 6018 000911 | LA r2,_Dsc_000004(,r
0001C8 4140 60F0 000911 | LA r4,_Dsc_000031(,r
0001CC 4150 D19C 000911 | LA r5,_temp24(,r13,4
0001D0 58F0 1008 000911 | L r15,&EPA_&WSA(,r1
0001D4 5800 100C 000911 | L r0,&EPA_&WSA(,r1,
0001D8 5000 C1F4 000911 | ST r0,_CEECAA_(,r12,
0001DC 4110 D098 000911 | LA r1,#MX_TEMP5(,r13
0001E0 5050 D098 000911 | ST r5,#MX_TEMP5(,r13
0001E4 5040 D09C 000911 | ST r4,#MX_TEMP5(,r13
0001E8 E54C D0A0 0000 000911 | MVHI #MX_TEMP5(r13,160
0001EE 5020 D0A4 000911 | ST r2,#MX_TEMP5(,r13
0001F2 E54C D0A8 0000 000911 | MVHI #MX_TEMP5(r13,168
0001F8 0DEF 000911 | BASR r14,r15
0001FA 5810 7000 000913 | L r1,=A(IBMQJDSB)(,
0001FE 4120 6018 000913 | LA r2,_Dsc_000004(,r
000202 4140 60A8 000913 | LA r4,_Dsc_000022(,r
000206 58F0 1008 000913 | L r15,&EPA_&WSA(,r1
00020A 5800 100C 000913 | L r0,&EPA_&WSA(,r1,
00020E 5000 C1F4 000913 | ST r0,_CEECAA_(,r12,
000212 4150 69C6 000913 | LA r5,+CONSTANT_AREA
000216 4110 D098 000913 | LA r1,#MX_TEMP5(,r13
00021A 5050 D098 000913 | ST r5,#MX_TEMP5(,r13
00021E 5040 D09C 000913 | ST r4,#MX_TEMP5(,r13
000222 E54C D0A0 0000 000913 | MVHI #MX_TEMP5(r13,160
000228 5020 D0A4 000913 | ST r2,#MX_TEMP5(,r13
00022C E54C D0A8 0000 000913 | MVHI #MX_TEMP5(r13,168
000232 0DEF 000913 | BASR r14,r15
000234 5810 D224 000915 | L r1,#ENV:WRITEDATA
000238 E300 11EE 0094 000915 | LLC r0,AIRPORTDELAY(,
00023E C00B 0000 0080 000915 | NILF r0,F'128'
000244 C20F 0000 0000 000915 | CLFI r0,F'0'
00024A A784 0007 000915 | JE @5L109
00024E 000915 | @5L111 DS 0H
00024E D202 D0B0 6300 000916 | MVC AIRPORTDELAYFILLI
000254 A7F4 000B 000916 | J @5L110
000258 000916 | @5L109 DS 0H
000258 D201 D0B0 6304 000918 | MVC AIRPORTDELAYFILLI
00025E 4110 D0B2 000918 | LA r1,AIRPORTDELAYFI
000262 5010 D23C 000918 | ST r1,#STRTEMP5(,r13
000266 9240 1000 000918 | MVI AIRPORTDELAYFILLI
00026A 000918 | @5L110 DS 0H
00026A D20E D188 6308 000920 | MVC _temp23(15,r13,39
000270 D202 D197 D0B0 000920 | MVC _temp23(3,r13,407
000276 5810 7000 000920 | L r1,=A(IBMQJDSB)(,
00027A 4120 6018 000920 | LA r2,_Dsc_000004(,r
00027E 4140 6050 000920 | LA r4,_Dsc_000011(,r
000282 4150 D188 000920 | LA r5,_temp23(,r13,3
000286 58F0 1008 000920 | L r15,&EPA_&WSA(,r1
00028A 5800 100C 000920 | L r0,&EPA_&WSA(,r1,
00028E 5000 C1F4 000920 | ST r0,_CEECAA_(,r12,
000292 4110 D098 000920 | LA r1,#MX_TEMP5(,r13
000296 5050 D098 000920 | ST r5,#MX_TEMP5(,r13
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
00029A 5040 D09C 000920 | ST r4,#MX_TEMP5(,r13
00029E E54C D0A0 0000 000920 | MVHI #MX_TEMP5(r13,160
0002A4 5020 D0A4 000920 | ST r2,#MX_TEMP5(,r13
0002A8 E54C D0A8 0000 000920 | MVHI #MX_TEMP5(r13,168
0002AE 0DEF 000920 | BASR r14,r15
0002B0 5810 D224 000922 | L r1,#ENV:WRITEDATA
0002B4 E300 11EE 0094 000922 | LLC r0,AIRPORTDELAY(,
0002BA C00B 0000 0080 000922 | NILF r0,F'128'
0002C0 C20F 0000 0000 000922 | CLFI r0,F'0'
0002C6 A784 0073 000922 | JE @5L112
0002CA 000922 | @5L114 DS 0H
0002CA 000923 | @5L107 DS 0H
0002CA D20B D15C 6318 000924 | MVC _temp22(12,r13,34
0002D0 5810 D224 000924 | L r1,#ENV:WRITEDATA
0002D4 D21D D168 11F2 000924 | MVC _temp22(30,r13,36
0002DA 5810 7000 000924 | L r1,=A(IBMQJDSB)(,
0002DE 4120 6018 000924 | LA r2,_Dsc_000004(,r
0002E2 4140 60D8 000924 | LA r4,_Dsc_000028(,r
0002E6 4150 D15C 000924 | LA r5,_temp22(,r13,3
0002EA 58F0 1008 000924 | L r15,&EPA_&WSA(,r1
0002EE 5800 100C 000924 | L r0,&EPA_&WSA(,r1,
0002F2 5000 C1F4 000924 | ST r0,_CEECAA_(,r12,
0002F6 4110 D098 000924 | LA r1,#MX_TEMP5(,r13
0002FA 5050 D098 000924 | ST r5,#MX_TEMP5(,r13
0002FE 5040 D09C 000924 | ST r4,#MX_TEMP5(,r13
000302 E54C D0A0 0000 000924 | MVHI #MX_TEMP5(r13,160
000308 5020 D0A4 000924 | ST r2,#MX_TEMP5(,r13
00030C E54C D0A8 0000 000924 | MVHI #MX_TEMP5(r13,168
000312 0DEF 000924 | BASR r14,r15
000314 D20D D130 6324 000926 | MVC _temp21(14,r13,30
00031A 5810 D224 000926 | L r1,#ENV:WRITEDATA
00031E D21D D13E 1210 000926 | MVC _temp21(30,r13,31
000324 5810 7000 000926 | L r1,=A(IBMQJDSB)(,
000328 4120 6018 000926 | LA r2,_Dsc_000004(,r
00032C 4140 60E8 000926 | LA r4,_Dsc_000030(,r
000330 4150 D130 000926 | LA r5,_temp21(,r13,3
000334 58F0 1008 000926 | L r15,&EPA_&WSA(,r1
000338 5800 100C 000926 | L r0,&EPA_&WSA(,r1,
00033C 5000 C1F4 000926 | ST r0,_CEECAA_(,r12,
000340 4110 D098 000926 | LA r1,#MX_TEMP5(,r13
000344 5050 D098 000926 | ST r5,#MX_TEMP5(,r13
000348 5040 D09C 000926 | ST r4,#MX_TEMP5(,r13
00034C E54C D0A0 0000 000926 | MVHI #MX_TEMP5(r13,160
000352 5020 D0A4 000926 | ST r2,#MX_TEMP5(,r13
000356 E54C D0A8 0000 000926 | MVHI #MX_TEMP5(r13,168
00035C 0DEF 000926 | BASR r14,r15
00035E D20A D104 6334 000928 | MVC _temp20(11,r13,26
000364 5810 D224 000928 | L r1,#ENV:WRITEDATA
000368 D21D D10F 122E 000928 | MVC _temp20(30,r13,27
00036E 5810 7000 000928 | L r1,=A(IBMQJDSB)(,
000372 4120 6018 000928 | LA r2,_Dsc_000004(,r
000376 4140 60D0 000928 | LA r4,_Dsc_000027(,r
00037A 4150 D104 000928 | LA r5,_temp20(,r13,2
00037E 58F0 1008 000928 | L r15,&EPA_&WSA(,r1
000382 5800 100C 000928 | L r0,&EPA_&WSA(,r1,
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
000386 5000 C1F4 000928 | ST r0,_CEECAA_(,r12,
00038A 4110 D098 000928 | LA r1,#MX_TEMP5(,r13
00038E 5050 D098 000928 | ST r5,#MX_TEMP5(,r13
000392 5040 D09C 000928 | ST r4,#MX_TEMP5(,r13
000396 E54C D0A0 0000 000928 | MVHI #MX_TEMP5(r13,160
00039C 5020 D0A4 000928 | ST r2,#MX_TEMP5(,r13
0003A0 E54C D0A8 0000 000928 | MVHI #MX_TEMP5(r13,168
0003A6 0DEF 000928 | BASR r14,r15
0003A8 000929 | @5L108 DS 0H
0003A8 A7F4 0002 000929 | J @5L113
0003AC 000929 | @5L112 DS 0H
0003AC 000929 | @5L113 DS 0H
0003AC 5810 7000 000931 | L r1,=A(IBMQJDSB)(,
0003B0 4120 6018 000931 | LA r2,_Dsc_000004(,r
0003B4 4140 60A8 000931 | LA r4,_Dsc_000022(,r
0003B8 58F0 1008 000931 | L r15,&EPA_&WSA(,r1
0003BC 5800 100C 000931 | L r0,&EPA_&WSA(,r1,
0003C0 5000 C1F4 000931 | ST r0,_CEECAA_(,r12,
0003C4 4150 69C6 000931 | LA r5,+CONSTANT_AREA
0003C8 4110 D098 000931 | LA r1,#MX_TEMP5(,r13
0003CC 5050 D098 000931 | ST r5,#MX_TEMP5(,r13
0003D0 5040 D09C 000931 | ST r4,#MX_TEMP5(,r13
0003D4 E54C D0A0 0000 000931 | MVHI #MX_TEMP5(r13,160
0003DA 5020 D0A4 000931 | ST r2,#MX_TEMP5(,r13
0003DE E54C D0A8 0000 000931 | MVHI #MX_TEMP5(r13,168
0003E4 0DEF 000931 | BASR r14,r15
0003E6 5810 7000 000933 | L r1,=A(IBMQJDSB)(,
0003EA 4120 6018 000933 | LA r2,_Dsc_000004(,r
0003EE 4140 6070 000933 | LA r4,_Dsc_000015(,r
0003F2 58F0 1008 000933 | L r15,&EPA_&WSA(,r1
0003F6 5800 100C 000933 | L r0,&EPA_&WSA(,r1,
0003FA 5000 C1F4 000933 | ST r0,_CEECAA_(,r12,
0003FE 4150 69EA 000933 | LA r5,+CONSTANT_AREA
000402 4110 D098 000933 | LA r1,#MX_TEMP5(,r13
000406 5050 D098 000933 | ST r5,#MX_TEMP5(,r13
00040A 5040 D09C 000933 | ST r4,#MX_TEMP5(,r13
00040E E54C D0A0 0000 000933 | MVHI #MX_TEMP5(r13,160
000414 5020 D0A4 000933 | ST r2,#MX_TEMP5(,r13
000418 E54C D0A8 0000 000933 | MVHI #MX_TEMP5(r13,168
00041E 0DEF 000933 | BASR r14,r15
000420 5850 D224 000934 | L r5,#ENV:WRITEDATA
000424 5810 7000 000934 | L r1,=A(IBMQJDSB)(,
000428 4120 6018 000934 | LA r2,_Dsc_000004(,r
00042C 4140 6078 000934 | LA r4,_Dsc_000016(,r
000430 4150 524C 000934 | LA r5,RESPONSEBODYDA
000434 58F0 1008 000934 | L r15,&EPA_&WSA(,r1
000438 5800 100C 000934 | L r0,&EPA_&WSA(,r1,
00043C 5000 C1F4 000934 | ST r0,_CEECAA_(,r12,
000440 4110 D098 000934 | LA r1,#MX_TEMP5(,r13
000444 5050 D098 000934 | ST r5,#MX_TEMP5(,r13
000448 5040 D09C 000934 | ST r4,#MX_TEMP5(,r13
00044C E54C D0A0 0000 000934 | MVHI #MX_TEMP5(r13,160
000452 5020 D0A4 000934 | ST r2,#MX_TEMP5(,r13
000456 E54C D0A8 0000 000934 | MVHI #MX_TEMP5(r13,168
00045C 0DEF 000934 | BASR r14,r15
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
00045E D20C D0D8 6340 000936 | MVC _temp19(13,r13,21
000464 5810 D224 000936 | L r1,#ENV:WRITEDATA
000468 D21D D0E5 126A 000936 | MVC _temp19(30,r13,22
00046E 5810 7000 000936 | L r1,=A(IBMQJDSB)(,
000472 4120 6018 000936 | LA r2,_Dsc_000004(,r
000476 4140 60E0 000936 | LA r4,_Dsc_000029(,r
00047A 4150 D0D8 000936 | LA r5,_temp19(,r13,2
00047E 58F0 1008 000936 | L r15,&EPA_&WSA(,r1
000482 5800 100C 000936 | L r0,&EPA_&WSA(,r1,
000486 5000 C1F4 000936 | ST r0,_CEECAA_(,r12,
00048A 4110 D098 000936 | LA r1,#MX_TEMP5(,r13
00048E 5050 D098 000936 | ST r5,#MX_TEMP5(,r13
000492 5040 D09C 000936 | ST r4,#MX_TEMP5(,r13
000496 E54C D0A0 0000 000936 | MVHI #MX_TEMP5(r13,160
00049C 5020 D0A4 000936 | ST r2,#MX_TEMP5(,r13
0004A0 E54C D0A8 0000 000936 | MVHI #MX_TEMP5(r13,168
0004A6 0DEF 000936 | BASR r14,r15
0004A8 D205 D0B4 6350 000938 | MVC _temp18(6,r13,180
0004AE 5810 D224 000938 | L r1,#ENV:WRITEDATA
0004B2 D21D D0BA 1288 000938 | MVC _temp18(30,r13,18
0004B8 5810 7000 000938 | L r1,=A(IBMQJDSB)(,
0004BC 4120 6018 000938 | LA r2,_Dsc_000004(,r
0004C0 4140 60B0 000938 | LA r4,_Dsc_000023(,r
0004C4 4150 D0B4 000938 | LA r5,_temp18(,r13,1
0004C8 58F0 1008 000938 | L r15,&EPA_&WSA(,r1
0004CC 5800 100C 000938 | L r0,&EPA_&WSA(,r1,
0004D0 5000 C1F4 000938 | ST r0,_CEECAA_(,r12,
0004D4 4110 D098 000938 | LA r1,#MX_TEMP5(,r13
0004D8 5050 D098 000938 | ST r5,#MX_TEMP5(,r13
0004DC 5040 D09C 000938 | ST r4,#MX_TEMP5(,r13
0004E0 E54C D0A0 0000 000938 | MVHI #MX_TEMP5(r13,160
0004E6 5020 D0A4 000938 | ST r2,#MX_TEMP5(,r13
0004EA E54C D0A8 0000 000938 | MVHI #MX_TEMP5(r13,168
0004F0 0DEF 000938 | BASR r14,r15
0004F2 5810 7000 000940 | L r1,=A(IBMQJDSB)(,
0004F6 4120 6018 000940 | LA r2,_Dsc_000004(,r
0004FA 4140 60A8 000940 | LA r4,_Dsc_000022(,r
0004FE 58F0 1008 000940 | L r15,&EPA_&WSA(,r1
000502 5800 100C 000940 | L r0,&EPA_&WSA(,r1,
000506 5000 C1F4 000940 | ST r0,_CEECAA_(,r12,
00050A 4150 69A2 000940 | LA r5,+CONSTANT_AREA
00050E 4110 D098 000940 | LA r1,#MX_TEMP5(,r13
000512 5050 D098 000940 | ST r5,#MX_TEMP5(,r13
000516 5040 D09C 000940 | ST r4,#MX_TEMP5(,r13
00051A E54C D0A0 0000 000940 | MVHI #MX_TEMP5(r13,160
000520 5020 D0A4 000940 | ST r2,#MX_TEMP5(,r13
000524 E54C D0A8 0000 000940 | MVHI #MX_TEMP5(r13,168
00052A 0DEF 000940 | BASR r14,r15
00052C 000942 | @5L106 DS 0H
00052C 000942 | @5L426 DS 0H
00052C 5800 D268 000000 | L r0,#_CEECAACRENT_
000530 5000 C1F4 000000 | ST r0,_CEECAA_(,r12,
000534 Start of Epilog
000534 58D0 D004 000942 | L r13,4(,r13)
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
000538 58E0 D00C 000942 | L r14,12(,r13)
00053C 9827 D01C 000942 | LM r2,r7,28(r13)
000540 051E 000942 | BALR r1,r14
000542 0707 000942 | NOPR 7
000544 Start of Literals
000544 00000000 =Q(@STATIC)
000548 End of Literals
*** General purpose registers used: 111111110000111
*** Floating point registers used: 111111110000000
*** Size of register spill area: 512(max) 0(used)
*** Size of dynamic storage: 624
*** Size of executable code: 1348
*** CSECT Offset: 6136 : 0x17F8
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
HTTP_TERMINATE
000000 000866 | DS 0D
000000 47F0 F024 000866 | B 36(,r15)
000004 01C3C5C5 CEE eyecatcher
000008 00000110 DSA size
00000C 000055E8 =A(PPA1-HTTP_TERM
000010 47F0 F001 000866 | B 1(,r15)
000014 58F0 C31C 000866 | L r15,796(,r12)
000018 184E 000866 | LR r4,r14
00001A 05EF 000866 | BALR r14,r15
00001C 00000000 =F'0'
000020 A7F4 000C 000866 | J *+24
000024 90E8 D00C 000866 | STM r14,r8,12(r13)
000028 58E0 D04C 000866 | L r14,76(,r13)
00002C 4100 E110 000866 | LA r0,272(,r14)
000030 5500 C314 000866 | CL r0,788(,r12)
000034 A724 FFF0 000866 | JH *-32
000038 58F0 C280 000866 | L r15,640(,r12)
00003C 90F0 E048 000866 | STM r15,r0,72(r14)
000040 9210 E000 000866 | MVI 0(r14),16
000044 50D0 E004 000866 | ST r13,4(,r14)
000048 18DE 000866 | LR r13,r14
00004A C030 0000 009F 000866 | LARL r3,F'159'
000050 End of Prolog
000050 5800 C1F4 000000 | L r0,_CEECAA_(,r12,
000054 5000 D0E8 000000 | ST r0,#CEECAACRENT_6
000058 5800 D0E8 000000 | L r0,#CEECAACRENT_6
00005C 5820 3000 000000 | L r2,=Q(@STATIC)(,r
000060 1E02 000000 | ALR r0,r2
000062 1860 000000 | LR r6,r0
000064 C070 0000 231A 000000 | LARL r7,F'8986'
00006A 5010 D0E4 000866 | ST r1,#SR_PARM_6(,r1
00006E 5050 D0E0 000866 | ST r5,#ENV:HTTP_TERM
000072 5810 D0E4 000874 | L r1,#SR_PARM_6(,r1
000076 5880 1000 000874 | L r8,_addrTERMRC(,r
00007A 5850 1004 000874 | L r5,_addrINHANDLE(
00007E 5840 1008 000874 | L r4,_addrINFORCEOP
000082 5820 100C 000874 | L r2,_addrINDIAGARE
000086 5810 6020 000874 | L r1,=A(HWTHTERM)(,
00008A A52A 8000 000874 | OILH r2,H'-32768'
00008E 58F0 1008 000874 | L r15,&EPA_&WSA(,r1
000092 5800 100C 000874 | L r0,&EPA_&WSA(,r1,
000096 5000 C1F4 000874 | ST r0,_CEECAA_(,r12,
00009A 4110 D098 000874 | LA r1,#MX_TEMP6(,r13
00009E 5080 D098 000874 | ST r8,#MX_TEMP6(,r13
0000A2 5050 D09C 000874 | ST r5,#MX_TEMP6(,r13
0000A6 5040 D0A0 000874 | ST r4,#MX_TEMP6(,r13
0000AA 5020 D0A4 000874 | ST r2,#MX_TEMP6(,r13
0000AE 0DEF 000874 | BASR r14,r15
0000B0 5810 D0E4 000876 | L r1,#SR_PARM_6(,r1
0000B4 5810 1000 000876 | L r1,_addrTERMRC(,r
0000B8 5800 1000 000876 | L r0,_shadow4(,r1,0
0000BC 1200 000876 | LTR r0,r0
0000BE A774 0021 000876 | JNE @6L119
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
0000C2 000876 | @6L121 DS 0H
0000C2 5810 6000 000877 | L r1,=A(IBMQJDSB)(,
0000C6 4120 7018 000877 | LA r2,_Dsc_000004(,r
0000CA 4140 70C8 000877 | LA r4,_Dsc_000026(,r
0000CE 58F0 1008 000877 | L r15,&EPA_&WSA(,r1
0000D2 5800 100C 000877 | L r0,&EPA_&WSA(,r1,
0000D6 5000 C1F4 000877 | ST r0,_CEECAA_(,r12,
0000DA 4150 7A06 000877 | LA r5,+CONSTANT_AREA
0000DE 4110 D098 000877 | LA r1,#MX_TEMP6(,r13
0000E2 5050 D098 000877 | ST r5,#MX_TEMP6(,r13
0000E6 5040 D09C 000877 | ST r4,#MX_TEMP6(,r13
0000EA E54C D0A0 0000 000877 | MVHI #MX_TEMP6(r13,160
0000F0 5020 D0A4 000877 | ST r2,#MX_TEMP6(,r13
0000F4 E54C D0A8 0000 000877 | MVHI #MX_TEMP6(r13,168
0000FA 0DEF 000877 | BASR r14,r15
0000FC A7F4 003A 000877 | J @6L120
000100 000877 | @6L119 DS 0H
000100 000879 | @6L117 DS 0H
000100 5810 D0E8 000880 | L r1,#CEECAACRENT_6
000104 5800 3004 000880 | L r0,=Q(ERRORMESSAG
000108 B9FA 1010 000880 | ALRK r1,r0,r1
00010C D223 D0B0 72A8 000880 | MVC _temp17(36,r13,17
000112 5820 D0E4 000880 | L r2,#SR_PARM_6(,r1
000116 5820 2004 000880 | L r2,_addrINHANDLE(
00011A D20B D0D4 2000 000880 | MVC _temp17(12,r13,21
000120 D22F 1000 D0B0 000880 | MVC ERRORMESSAGE(48,r
000126 5810 D0E8 000880 | L r1,#CEECAACRENT_6
00012A B9FA 1010 000880 | ALRK r1,r0,r1
00012E 4110 1030 000880 | LA r1,ERRORMESSAGE(,
000132 5010 D0FC 000880 | ST r1,#STRTEMP6(,r13
000136 9240 1000 000880 | MVI ERRORMESSAGE(r1,0
00013A D296 1001 1000 000880 | MVC ERRORMESSAGE(151,
000140 5810 D0E4 000882 | L r1,#SR_PARM_6(,r1
000144 5840 1000 000882 | L r4,_addrTERMRC(,r
000148 5820 100C 000882 | L r2,_addrINDIAGARE
00014C 5810 D0E8 000882 | L r1,#CEECAACRENT_6
000150 1E01 000882 | ALR r0,r1
000152 5850 D0E0 000882 | L r5,#ENV:HTTP_TERM
000156 5010 C1F4 000882 | ST r1,_CEECAA_(,r12,
00015A 58F0 3008 000882 | L r15,=A(DISPLAY_ER
00015E 4110 D098 000882 | LA r1,#MX_TEMP6(,r13
000162 5040 D098 000882 | ST r4,#MX_TEMP6(,r13
000166 5020 D09C 000882 | ST r2,#MX_TEMP6(,r13
00016A 5000 D0A0 000882 | ST r0,#MX_TEMP6(,r13
00016E 0DEF 000882 | BASR r14,r15
000170 000883 | @6L118 DS 0H
000170 000883 | @6L120 DS 0H
000170 000885 | @6L116 DS 0H
000170 000885 | @6L425 DS 0H
000170 5800 D0E8 000000 | L r0,#CEECAACRENT_6
000174 5000 C1F4 000000 | ST r0,_CEECAA_(,r12,
000178 Start of Epilog
000178 58D0 D004 000885 | L r13,4(,r13)
00017C 58E0 D00C 000885 | L r14,12(,r13)
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
000180 9828 D01C 000885 | LM r2,r8,28(r13)
000184 051E 000885 | BALR r1,r14
000186 0707 000885 | NOPR 7
000188 Start of Literals
000188 00000000 =Q(@STATIC)
00018C 00000000 =Q(ERRORMESSAGE)
000190 000013F0 =A(DISPLAY_ERROR)
000194 End of Literals
*** General purpose registers used: 111111111000111
*** Floating point registers used: 111111110000000
*** Size of register spill area: 512(max) 0(used)
*** Size of dynamic storage: 272
*** Size of executable code: 392
*** CSECT Offset: 7488 : 0x1D40
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
HTTP_DISCONNECT
000000 000842 | DS 0D
000000 47F0 F024 000842 | B 36(,r15)
000004 01C3C5C5 CEE eyecatcher
000008 00000120 DSA size
00000C 00005498 =A(PPA1-HTTP_DISC
000010 47F0 F001 000842 | B 1(,r15)
000014 58F0 C31C 000842 | L r15,796(,r12)
000018 184E 000842 | LR r4,r14
00001A 05EF 000842 | BALR r14,r15
00001C 00000000 =F'0'
000020 A7F4 000C 000842 | J *+24
000024 90E7 D00C 000842 | STM r14,r7,12(r13)
000028 58E0 D04C 000842 | L r14,76(,r13)
00002C 4100 E120 000842 | LA r0,288(,r14)
000030 5500 C314 000842 | CL r0,788(,r12)
000034 A724 FFF0 000842 | JH *-32
000038 58F0 C280 000842 | L r15,640(,r12)
00003C 90F0 E048 000842 | STM r15,r0,72(r14)
000040 9210 E000 000842 | MVI 0(r14),16
000044 50D0 E004 000842 | ST r13,4(,r14)
000048 18DE 000842 | LR r13,r14
00004A C030 0000 009B 000842 | LARL r3,F'155'
000050 End of Prolog
000050 5800 C1F4 000000 | L r0,_CEECAA_(,r12,
000054 5000 D0F4 000000 | ST r0,#CEECAACRENT_7
000058 5800 D0F4 000000 | L r0,#CEECAACRENT_7
00005C 5820 3000 000000 | L r2,=Q(@STATIC)(,r
000060 1E02 000000 | ALR r0,r2
000062 1860 000000 | LR r6,r0
000064 C070 0000 224E 000000 | LARL r7,F'8782'
00006A 5010 D0F0 000842 | ST r1,#SR_PARM_7(,r1
00006E 5050 D0EC 000842 | ST r5,#ENV:HTTP_DISC
000072 5810 D0F0 000848 | L r1,#SR_PARM_7(,r1
000076 5850 1000 000848 | L r5,_addrDISCRC(,r
00007A 5840 1004 000848 | L r4,_addrINHANDLE(
00007E 5820 1008 000848 | L r2,_addrINDIAGARE
000082 5810 601C 000848 | L r1,=A(HWTHDISC)(,
000086 A52A 8000 000848 | OILH r2,H'-32768'
00008A 58F0 1008 000848 | L r15,&EPA_&WSA(,r1
00008E 5800 100C 000848 | L r0,&EPA_&WSA(,r1,
000092 5000 C1F4 000848 | ST r0,_CEECAA_(,r12,
000096 4110 D098 000848 | LA r1,#MX_TEMP7(,r13
00009A 5050 D098 000848 | ST r5,#MX_TEMP7(,r13
00009E 5040 D09C 000848 | ST r4,#MX_TEMP7(,r13
0000A2 5020 D0A0 000848 | ST r2,#MX_TEMP7(,r13
0000A6 0DEF 000848 | BASR r14,r15
0000A8 5810 D0F0 000850 | L r1,#SR_PARM_7(,r1
0000AC 5810 1000 000850 | L r1,_addrDISCRC(,r
0000B0 5800 1000 000850 | L r0,_shadow4(,r1,0
0000B4 1200 000850 | LTR r0,r0
0000B6 A774 0021 000850 | JNE @7L126
0000BA 000850 | @7L128 DS 0H
0000BA 5810 6000 000851 | L r1,=A(IBMQJDSB)(,
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
0000BE 4120 7018 000851 | LA r2,_Dsc_000004(,r
0000C2 4140 70D0 000851 | LA r4,_Dsc_000027(,r
0000C6 58F0 1008 000851 | L r15,&EPA_&WSA(,r1
0000CA 5800 100C 000851 | L r0,&EPA_&WSA(,r1,
0000CE 5000 C1F4 000851 | ST r0,_CEECAA_(,r12,
0000D2 4150 7A2E 000851 | LA r5,+CONSTANT_AREA
0000D6 4110 D098 000851 | LA r1,#MX_TEMP7(,r13
0000DA 5050 D098 000851 | ST r5,#MX_TEMP7(,r13
0000DE 5040 D09C 000851 | ST r4,#MX_TEMP7(,r13
0000E2 E54C D0A0 0000 000851 | MVHI #MX_TEMP7(r13,160
0000E8 5020 D0A4 000851 | ST r2,#MX_TEMP7(,r13
0000EC E54C D0A8 0000 000851 | MVHI #MX_TEMP7(r13,168
0000F2 0DEF 000851 | BASR r14,r15
0000F4 A7F4 003A 000851 | J @7L127
0000F8 000851 | @7L126 DS 0H
0000F8 000853 | @7L124 DS 0H
0000F8 5810 D0F4 000854 | L r1,#CEECAACRENT_7
0000FC 5800 3004 000854 | L r0,=Q(ERRORMESSAG
000100 B9FA 1010 000854 | ALRK r1,r0,r1
000104 D22F D0B0 7278 000854 | MVC _temp16(48,r13,17
00010A 5820 D0F0 000854 | L r2,#SR_PARM_7(,r1
00010E 5820 2004 000854 | L r2,_addrINHANDLE(
000112 D20B D0E0 2000 000854 | MVC _temp16(12,r13,22
000118 D23B 1000 D0B0 000854 | MVC ERRORMESSAGE(60,r
00011E 5810 D0F4 000854 | L r1,#CEECAACRENT_7
000122 B9FA 1010 000854 | ALRK r1,r0,r1
000126 4110 103C 000854 | LA r1,ERRORMESSAGE(,
00012A 5010 D108 000854 | ST r1,#STRTEMP7(,r13
00012E 9240 1000 000854 | MVI ERRORMESSAGE(r1,0
000132 D28A 1001 1000 000854 | MVC ERRORMESSAGE(139,
000138 5810 D0F0 000856 | L r1,#SR_PARM_7(,r1
00013C 5840 1000 000856 | L r4,_addrDISCRC(,r
000140 5820 1008 000856 | L r2,_addrINDIAGARE
000144 5810 D0F4 000856 | L r1,#CEECAACRENT_7
000148 1E01 000856 | ALR r0,r1
00014A 5850 D0EC 000856 | L r5,#ENV:HTTP_DISC
00014E 5010 C1F4 000856 | ST r1,_CEECAA_(,r12,
000152 58F0 3008 000856 | L r15,=A(DISPLAY_ER
000156 4110 D098 000856 | LA r1,#MX_TEMP7(,r13
00015A 5040 D098 000856 | ST r4,#MX_TEMP7(,r13
00015E 5020 D09C 000856 | ST r2,#MX_TEMP7(,r13
000162 5000 D0A0 000856 | ST r0,#MX_TEMP7(,r13
000166 0DEF 000856 | BASR r14,r15
000168 000857 | @7L125 DS 0H
000168 000857 | @7L127 DS 0H
000168 000859 | @7L123 DS 0H
000168 000859 | @7L424 DS 0H
000168 5800 D0F4 000000 | L r0,#CEECAACRENT_7
00016C 5000 C1F4 000000 | ST r0,_CEECAA_(,r12,
000170 Start of Epilog
000170 58D0 D004 000859 | L r13,4(,r13)
000174 58E0 D00C 000859 | L r14,12(,r13)
000178 9827 D01C 000859 | LM r2,r7,28(r13)
00017C 051E 000859 | BALR r1,r14
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
00017E 0707 000859 | NOPR 7
000180 Start of Literals
000180 00000000 =Q(@STATIC)
000184 00000000 =Q(ERRORMESSAGE)
000188 000013F0 =A(DISPLAY_ERROR)
00018C End of Literals
*** General purpose registers used: 111111110000111
*** Floating point registers used: 111111110000000
*** Size of register spill area: 512(max) 0(used)
*** Size of dynamic storage: 288
*** Size of executable code: 384
*** CSECT Offset: 7896 : 0x1ED8
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
HTTP_REQUEST
000000 000811 | DS 0D
000000 47F0 F024 000811 | B 36(,r15)
000004 01C3C5C5 CEE eyecatcher
000008 00000140 DSA size
00000C 00005358 =A(PPA1-HTTP_REQU
000010 47F0 F001 000811 | B 1(,r15)
000014 58F0 C31C 000811 | L r15,796(,r12)
000018 184E 000811 | LR r4,r14
00001A 05EF 000811 | BALR r14,r15
00001C 00000000 =F'0'
000020 A7F4 000C 000811 | J *+24
000024 90E8 D00C 000811 | STM r14,r8,12(r13)
000028 58E0 D04C 000811 | L r14,76(,r13)
00002C 4100 E140 000811 | LA r0,320(,r14)
000030 5500 C314 000811 | CL r0,788(,r12)
000034 A724 FFF0 000811 | JH *-32
000038 58F0 C280 000811 | L r15,640(,r12)
00003C 90F0 E048 000811 | STM r15,r0,72(r14)
000040 9210 E000 000811 | MVI 0(r14),16
000044 50D0 E004 000811 | ST r13,4(,r14)
000048 18DE 000811 | LR r13,r14
00004A C030 0000 00BD 000811 | LARL r3,F'189'
000050 End of Prolog
000050 5800 C1F4 000000 | L r0,_CEECAA_(,r12,
000054 5000 D110 000000 | ST r0,#CEECAACRENT_8
000058 5800 D110 000000 | L r0,#CEECAACRENT_8
00005C 5820 3000 000000 | L r2,=Q(@STATIC)(,r
000060 1E02 000000 | ALR r0,r2
000062 1860 000000 | LR r6,r0
000064 C070 0000 2186 000000 | LARL r7,F'8582'
00006A 5010 D10C 000811 | ST r1,#SR_PARM_8(,r1
00006E 5050 D108 000811 | ST r5,#ENV:HTTP_REQU
000072 5810 D10C 000820 | L r1,#SR_PARM_8(,r1
000076 5880 1000 000820 | L r8,_addrREQUESTRC
00007A 5850 1004 000820 | L r5,_addrINCHANDLE
00007E 5840 1008 000820 | L r4,_addrINRHANDLE
000082 5820 100C 000820 | L r2,_addrINDIAGARE
000086 5810 6018 000820 | L r1,=A(HWTHRQST)(,
00008A A52A 8000 000820 | OILH r2,H'-32768'
00008E 58F0 1008 000820 | L r15,&EPA_&WSA(,r1
000092 5800 100C 000820 | L r0,&EPA_&WSA(,r1,
000096 5000 C1F4 000820 | ST r0,_CEECAA_(,r12,
00009A 4110 D098 000820 | LA r1,#MX_TEMP8(,r13
00009E 5080 D098 000820 | ST r8,#MX_TEMP8(,r13
0000A2 5050 D09C 000820 | ST r5,#MX_TEMP8(,r13
0000A6 5040 D0A0 000820 | ST r4,#MX_TEMP8(,r13
0000AA 5020 D0A4 000820 | ST r2,#MX_TEMP8(,r13
0000AE 0DEF 000820 | BASR r14,r15
0000B0 5810 D10C 000822 | L r1,#SR_PARM_8(,r1
0000B4 5810 1000 000822 | L r1,_addrREQUESTRC
0000B8 5800 1000 000822 | L r0,_shadow4(,r1,0
0000BC 1200 000822 | LTR r0,r0
0000BE A774 0021 000822 | JNE @8L133
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
0000C2 000822 | @8L135 DS 0H
0000C2 5810 6000 000823 | L r1,=A(IBMQJDSB)(,
0000C6 4120 7018 000823 | LA r2,_Dsc_000004(,r
0000CA 4140 70C0 000823 | LA r4,_Dsc_000025(,r
0000CE 58F0 1008 000823 | L r15,&EPA_&WSA(,r1
0000D2 5800 100C 000823 | L r0,&EPA_&WSA(,r1,
0000D6 5000 C1F4 000823 | ST r0,_CEECAA_(,r12,
0000DA 4150 7A58 000823 | LA r5,+CONSTANT_AREA
0000DE 4110 D098 000823 | LA r1,#MX_TEMP8(,r13
0000E2 5050 D098 000823 | ST r5,#MX_TEMP8(,r13
0000E6 5040 D09C 000823 | ST r4,#MX_TEMP8(,r13
0000EA E54C D0A0 0000 000823 | MVHI #MX_TEMP8(r13,160
0000F0 5020 D0A4 000823 | ST r2,#MX_TEMP8(,r13
0000F4 E54C D0A8 0000 000823 | MVHI #MX_TEMP8(r13,168
0000FA 0DEF 000823 | BASR r14,r15
0000FC A7F4 004E 000823 | J @8L134
000100 000823 | @8L133 DS 0H
000100 000825 | @8L131 DS 0H
000100 5810 D110 000826 | L r1,#CEECAACRENT_8
000104 5800 3004 000826 | L r0,=Q(ERRORMESSAG
000108 B9FA 1010 000826 | ALRK r1,r0,r1
00010C D22C D0B0 7238 000826 | MVC _temp15(45,r13,17
000112 5820 D10C 000826 | L r2,#SR_PARM_8(,r1
000116 5820 2004 000826 | L r2,_addrINCHANDLE
00011A D20B D0DD 2000 000826 | MVC _temp15(12,r13,22
000120 D20F D0E9 7268 000826 | MVC _temp15(16,r13,23
000126 5820 D10C 000826 | L r2,#SR_PARM_8(,r1
00012A 5820 2008 000826 | L r2,_addrINRHANDLE
00012E D20B D0F9 2000 000826 | MVC _temp15(12,r13,24
000134 D254 1000 D0B0 000826 | MVC ERRORMESSAGE(85,r
00013A 5810 D110 000826 | L r1,#CEECAACRENT_8
00013E B9FA 1010 000826 | ALRK r1,r0,r1
000142 4110 1055 000826 | LA r1,ERRORMESSAGE(,
000146 5010 D12C 000826 | ST r1,#STRTEMP8(,r13
00014A 9240 1000 000826 | MVI ERRORMESSAGE(r1,0
00014E D271 1001 1000 000826 | MVC ERRORMESSAGE(114,
000154 5810 D10C 000829 | L r1,#SR_PARM_8(,r1
000158 5840 1000 000829 | L r4,_addrREQUESTRC
00015C 5820 100C 000829 | L r2,_addrINDIAGARE
000160 5810 D110 000829 | L r1,#CEECAACRENT_8
000164 1E01 000829 | ALR r0,r1
000166 5850 D108 000829 | L r5,#ENV:HTTP_REQU
00016A 5010 C1F4 000829 | ST r1,_CEECAA_(,r12,
00016E 58F0 3008 000829 | L r15,=A(DISPLAY_ER
000172 4110 D098 000829 | LA r1,#MX_TEMP8(,r13
000176 5040 D098 000829 | ST r4,#MX_TEMP8(,r13
00017A 5020 D09C 000829 | ST r2,#MX_TEMP8(,r13
00017E 5000 D0A0 000829 | ST r0,#MX_TEMP8(,r13
000182 0DEF 000829 | BASR r14,r15
000184 5810 D10C 000830 | L r1,#SR_PARM_8(,r1
000188 5810 1010 000830 | L r1,_addrReturns_V
00018C 5810 1000 000830 | L r1,_shadow6(,r1,0
000190 9200 1000 000830 | MVI _shadow2(r1,0),0
000194 A7F4 000C 000830 | J @8L423
000198 000831 | @8L132 DS 0H
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
000198 000831 | @8L134 DS 0H
000198 5810 D10C 000833 | L r1,#SR_PARM_8(,r1
00019C 5810 1010 000833 | L r1,_addrReturns_V
0001A0 5810 1000 000833 | L r1,_shadow6(,r1,0
0001A4 9280 1000 000833 | MVI _shadow2(r1,0),12
0001A8 A7F4 0002 000833 | J @8L423
0001AC 000834 | @8L130 DS 0H
0001AC 000834 | @8L423 DS 0H
0001AC 5800 D110 000000 | L r0,#CEECAACRENT_8
0001B0 5000 C1F4 000000 | ST r0,_CEECAA_(,r12,
0001B4 Start of Epilog
0001B4 58D0 D004 000834 | L r13,4(,r13)
0001B8 58E0 D00C 000834 | L r14,12(,r13)
0001BC 9828 D01C 000834 | LM r2,r8,28(r13)
0001C0 051E 000834 | BALR r1,r14
0001C2 0707 000834 | NOPR 7
0001C4 Start of Literals
0001C4 00000000 =Q(@STATIC)
0001C8 00000000 =Q(ERRORMESSAGE)
0001CC 000013F0 =A(DISPLAY_ERROR)
0001D0 End of Literals
*** General purpose registers used: 111111111000111
*** Floating point registers used: 111111110000000
*** Size of register spill area: 512(max) 0(used)
*** Size of dynamic storage: 320
*** Size of executable code: 452
*** CSECT Offset: 8296 : 0x2068
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
HTTP_SLIST
000000 000777 | DS 0D
000000 47F0 F024 000777 | B 36(,r15)
000004 01C3C5C5 CEE eyecatcher
000008 00000120 DSA size
00000C 000051D0 =A(PPA1-HTTP_SLIS
000010 47F0 F001 000777 | B 1(,r15)
000014 58F0 C31C 000777 | L r15,796(,r12)
000018 184E 000777 | LR r4,r14
00001A 05EF 000777 | BALR r14,r15
00001C 00000000 =F'0'
000020 A7F4 000C 000777 | J *+24
000024 90EB D00C 000777 | STM r14,r11,12(r13)
000028 58E0 D04C 000777 | L r14,76(,r13)
00002C 4100 E120 000777 | LA r0,288(,r14)
000030 5500 C314 000777 | CL r0,788(,r12)
000034 A724 FFF0 000777 | JH *-32
000038 58F0 C280 000777 | L r15,640(,r12)
00003C 90F0 E048 000777 | STM r15,r0,72(r14)
000040 9210 E000 000777 | MVI 0(r14),16
000044 50D0 E004 000777 | ST r13,4(,r14)
000048 18DE 000777 | LR r13,r14
00004A C030 0000 00BF 000777 | LARL r3,F'191'
000050 End of Prolog
000050 5800 C1F4 000000 | L r0,_CEECAA_(,r12,
000054 5000 D0F4 000000 | ST r0,#CEECAACRENT_9
000058 5800 D0F4 000000 | L r0,#CEECAACRENT_9
00005C 5820 3000 000000 | L r2,=Q(@STATIC)(,r
000060 1E02 000000 | ALR r0,r2
000062 1860 000000 | LR r6,r0
000064 C070 0000 209E 000000 | LARL r7,F'8350'
00006A 5010 D0F0 000777 | ST r1,#SR_PARM_9(,r1
00006E 5050 D0EC 000777 | ST r5,#ENV:HTTP_SLIS
000072 5810 D0F0 000789 | L r1,#SR_PARM_9(,r1
000076 58B0 1000 000789 | L r11,_addrSLISTRC(
00007A 58A0 1004 000789 | L r10,_addrINHANDLE
00007E 5890 1008 000789 | L r9,_addrINFUNCTIO
000082 5880 100C 000789 | L r8,_addrSLIST(,r1
000086 5850 1010 000789 | L r5,_addrINSTRINGA
00008A 5840 1014 000789 | L r4,_addrINSTRINGL
00008E 5820 1018 000789 | L r2,_addrINDIAGARE
000092 5810 6014 000789 | L r1,=A(HWTHSLST)(,
000096 A52A 8000 000789 | OILH r2,H'-32768'
00009A 58F0 1008 000789 | L r15,&EPA_&WSA(,r1
00009E 5800 100C 000789 | L r0,&EPA_&WSA(,r1,
0000A2 5000 C1F4 000789 | ST r0,_CEECAA_(,r12,
0000A6 4110 D098 000789 | LA r1,#MX_TEMP9(,r13
0000AA 50B0 D098 000789 | ST r11,#MX_TEMP9(,r1
0000AE 50A0 D09C 000789 | ST r10,#MX_TEMP9(,r1
0000B2 5090 D0A0 000789 | ST r9,#MX_TEMP9(,r13
0000B6 5080 D0A4 000789 | ST r8,#MX_TEMP9(,r13
0000BA 5050 D0A8 000789 | ST r5,#MX_TEMP9(,r13
0000BE 5040 D0AC 000789 | ST r4,#MX_TEMP9(,r13
0000C2 5020 D0B0 000789 | ST r2,#MX_TEMP9(,r13
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
0000C6 0DEF 000789 | BASR r14,r15
0000C8 5810 D0F0 000792 | L r1,#SR_PARM_9(,r1
0000CC 5810 1000 000792 | L r1,_addrSLISTRC(,
0000D0 5800 1000 000792 | L r0,_shadow4(,r1,0
0000D4 1200 000792 | LTR r0,r0
0000D6 A774 0021 000792 | JNE @9L140
0000DA 000792 | @9L142 DS 0H
0000DA 5810 6000 000793 | L r1,=A(IBMQJDSB)(,
0000DE 4120 7018 000793 | LA r2,_Dsc_000004(,r
0000E2 4140 70B0 000793 | LA r4,_Dsc_000023(,r
0000E6 58F0 1008 000793 | L r15,&EPA_&WSA(,r1
0000EA 5800 100C 000793 | L r0,&EPA_&WSA(,r1,
0000EE 5000 C1F4 000793 | ST r0,_CEECAA_(,r12,
0000F2 4150 7A7E 000793 | LA r5,+CONSTANT_AREA
0000F6 4110 D098 000793 | LA r1,#MX_TEMP9(,r13
0000FA 5050 D098 000793 | ST r5,#MX_TEMP9(,r13
0000FE 5040 D09C 000793 | ST r4,#MX_TEMP9(,r13
000102 E54C D0A0 0000 000793 | MVHI #MX_TEMP9(r13,160
000108 5020 D0A4 000793 | ST r2,#MX_TEMP9(,r13
00010C E54C D0A8 0000 000793 | MVHI #MX_TEMP9(r13,168
000112 0DEF 000793 | BASR r14,r15
000114 A7F4 0044 000793 | J @9L141
000118 000793 | @9L140 DS 0H
000118 000795 | @9L138 DS 0H
000118 5810 D0F4 000796 | L r1,#CEECAACRENT_9
00011C 5800 3004 000796 | L r0,=Q(ERRORMESSAG
000120 B9FA 1010 000796 | ALRK r1,r0,r1
000124 D227 D0B8 7210 000796 | MVC _temp14(40,r13,18
00012A 5820 D0F0 000796 | L r2,#SR_PARM_9(,r1
00012E 5820 2004 000796 | L r2,_addrINHANDLE(
000132 D20B D0E0 2000 000796 | MVC _temp14(12,r13,22
000138 D233 1000 D0B8 000796 | MVC ERRORMESSAGE(52,r
00013E 5810 D0F4 000796 | L r1,#CEECAACRENT_9
000142 B9FA 1010 000796 | ALRK r1,r0,r1
000146 4110 1034 000796 | LA r1,ERRORMESSAGE(,
00014A 5010 D108 000796 | ST r1,#STRTEMP9(,r13
00014E 9240 1000 000796 | MVI ERRORMESSAGE(r1,0
000152 D292 1001 1000 000796 | MVC ERRORMESSAGE(147,
000158 5810 D0F0 000798 | L r1,#SR_PARM_9(,r1
00015C 5840 1000 000798 | L r4,_addrSLISTRC(,
000160 5820 1018 000798 | L r2,_addrINDIAGARE
000164 5810 D0F4 000798 | L r1,#CEECAACRENT_9
000168 1E01 000798 | ALR r0,r1
00016A 5850 D0EC 000798 | L r5,#ENV:HTTP_SLIS
00016E 5010 C1F4 000798 | ST r1,_CEECAA_(,r12,
000172 58F0 3008 000798 | L r15,=A(DISPLAY_ER
000176 4110 D098 000798 | LA r1,#MX_TEMP9(,r13
00017A 5040 D098 000798 | ST r4,#MX_TEMP9(,r13
00017E 5020 D09C 000798 | ST r2,#MX_TEMP9(,r13
000182 5000 D0A0 000798 | ST r0,#MX_TEMP9(,r13
000186 0DEF 000798 | BASR r14,r15
000188 5810 D0F0 000799 | L r1,#SR_PARM_9(,r1
00018C 5810 101C 000799 | L r1,_addrReturns_V
000190 5810 1000 000799 | L r1,_shadow6(,r1,0
000194 9200 1000 000799 | MVI _shadow2(r1,0),0
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
000198 A7F4 000C 000799 | J @9L422
00019C 000800 | @9L139 DS 0H
00019C 000800 | @9L141 DS 0H
00019C 5810 D0F0 000802 | L r1,#SR_PARM_9(,r1
0001A0 5810 101C 000802 | L r1,_addrReturns_V
0001A4 5810 1000 000802 | L r1,_shadow6(,r1,0
0001A8 9280 1000 000802 | MVI _shadow2(r1,0),12
0001AC A7F4 0002 000802 | J @9L422
0001B0 000803 | @9L137 DS 0H
0001B0 000803 | @9L422 DS 0H
0001B0 5800 D0F4 000000 | L r0,#CEECAACRENT_9
0001B4 5000 C1F4 000000 | ST r0,_CEECAA_(,r12,
0001B8 Start of Epilog
0001B8 58D0 D004 000803 | L r13,4(,r13)
0001BC 58E0 D00C 000803 | L r14,12(,r13)
0001C0 982B D01C 000803 | LM r2,r11,28(r13)
0001C4 051E 000803 | BALR r1,r14
0001C6 0707 000803 | NOPR 7
0001C8 Start of Literals
0001C8 00000000 =Q(@STATIC)
0001CC 00000000 =Q(ERRORMESSAGE)
0001D0 000013F0 =A(DISPLAY_ERROR)
0001D4 End of Literals
*** General purpose registers used: 111111111111111
*** Floating point registers used: 111111110000000
*** Size of register spill area: 512(max) 0(used)
*** Size of dynamic storage: 288
*** Size of executable code: 456
*** CSECT Offset: 8760 : 0x2238
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
BUILDSLIST
000000 000720 | DS 0D
000000 47F0 F024 000720 | B 36(,r15)
000004 01C3C5C5 CEE eyecatcher
000008 00000220 DSA size
00000C 00005040 =A(PPA1-BUILDSLIS
000010 47F0 F001 000720 | B 1(,r15)
000014 58F0 C31C 000720 | L r15,796(,r12)
000018 184E 000720 | LR r4,r14
00001A 05EF 000720 | BALR r14,r15
00001C 00000000 =F'0'
000020 A7F4 000C 000720 | J *+24
000024 90EB D00C 000720 | STM r14,r11,12(r13)
000028 58E0 D04C 000720 | L r14,76(,r13)
00002C 4100 E220 000720 | LA r0,544(,r14)
000030 5500 C314 000720 | CL r0,788(,r12)
000034 A724 FFF0 000720 | JH *-32
000038 58F0 C280 000720 | L r15,640(,r12)
00003C 90F0 E048 000720 | STM r15,r0,72(r14)
000040 9210 E000 000720 | MVI 0(r14),16
000044 50D0 E004 000720 | ST r13,4(,r14)
000048 18DE 000720 | LR r13,r14
00004A C030 0000 016D 000720 | LARL r3,F'365'
000050 End of Prolog
000050 5800 C1F4 000000 | L r0,_CEECAA_(,r12,
000054 5000 D218 000000 | ST r0,#CEECAACRENT_1
000058 5800 D218 000000 | L r0,#CEECAACRENT_1
00005C 5820 3000 000000 | L r2,=Q(@STATIC)(,r
000060 1E02 000000 | ALR r0,r2
000062 1870 000000 | LR r7,r0
000064 C060 0000 1FB2 000000 | LARL r6,F'8114'
00006A 5010 D1F4 000720 | ST r1,#SR_PARM_10(,r
00006E 5050 D1D0 000720 | ST r5,#ENV:BUILDSLIS
000072 4100 D0BC 000731 | LA r0,LSTRING(,r13,1
000076 5000 D1BC 000731 | ST r0,LSTRINGADDR(,r
00007A E54C D0B8 0001 000739 | MVHI LFUNCTION(r13,184
000080 4100 D0BC 000740 | LA r0,LSTRING(,r13,1
000084 5000 D1D4 000740 | ST r0,#wtemp_45(,r13
000088 4110 D0BC 000740 | LA r1,LSTRING(,r13,1
00008C 5010 D1E0 000740 | ST r1,#STRTEMP10(,r1
000090 9240 1000 000740 | MVI LSTRING(r1,0),64
000094 D2FE 1001 1000 000740 | MVC LSTRING(255,r1,1)
00009A D216 D0BC 61E0 000741 | MVC LSTRING(23,r13,18
0000A0 4110 D0D3 000741 | LA r1,LSTRING(,r13,2
0000A4 5010 D1E0 000741 | ST r1,#STRTEMP10(,r1
0000A8 9240 1000 000741 | MVI LSTRING(r1,0),64
0000AC D2E7 1001 1000 000741 | MVC LSTRING(232,r1,1)
0000B2 E54C D1C0 0017 000742 | MVHI LSTRINGLEN(r13,44
0000B8 5810 D1F4 000743 | L r1,#SR_PARM_10(,r
0000BC 5810 1004 000743 | L r1,_addrSLISTADDR
0000C0 5810 1000 000743 | L r1,_shadow6(,r1,0
0000C4 E54C 1000 0000 000743 | MVHI _shadow6(r1,0),H'
0000CA 5810 7000 000745 | L r1,=A(IBMQJDSB)(,
0000CE 4120 6018 000745 | LA r2,_Dsc_000004(,r
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
0000D2 4140 60E0 000745 | LA r4,_Dsc_000029(,r
0000D6 58F0 1008 000745 | L r15,&EPA_&WSA(,r1
0000DA 5800 100C 000745 | L r0,&EPA_&WSA(,r1,
0000DE 5000 C1F4 000745 | ST r0,_CEECAA_(,r12,
0000E2 4150 6AA2 000745 | LA r5,+CONSTANT_AREA
0000E6 4110 D098 000745 | LA r1,#MX_TEMP10(,r1
0000EA 5050 D098 000745 | ST r5,#MX_TEMP10(,r1
0000EE 5040 D09C 000745 | ST r4,#MX_TEMP10(,r1
0000F2 E54C D0A0 0000 000745 | MVHI #MX_TEMP10(r13,16
0000F8 5020 D0A4 000745 | ST r2,#MX_TEMP10(,r1
0000FC E54C D0A8 0000 000745 | MVHI #MX_TEMP10(r13,16
000102 0DEF 000745 | BASR r14,r15
000104 5810 D1D0 000747 | L r1,#ENV:BUILDSLIS
000108 5840 D1F4 000747 | L r4,#SR_PARM_10(,r
00010C 5820 4000 000747 | L r2,_addrINHANDLE(
000110 5840 4004 000747 | L r4,_addrSLISTADDR
000114 5840 4000 000747 | L r4,_shadow6(,r4,0
000118 4100 D1C4 000747 | LA r0,_temp12(,r13,4
00011C 4150 10D8 000747 | LA r5,LDIAGAREA(,r1,
000120 5050 D1F8 000747 | ST r5,#wtemp_46(,r13
000124 5040 D1FC 000747 | ST r4,#wtemp_47(,r13
000128 5020 D200 000747 | ST r2,#wtemp_48(,r13
00012C 4110 10BC 000747 | LA r1,LRC(,r1,188)
000130 5010 D204 000747 | ST r1,#wtemp_49(,r13
000134 5000 D1C8 000747 | ST r0,456(,r13)
000138 C009 0001 0000 000747 | IILF r0,F'65536'
00013E 5000 D1CC 000747 | ST r0,_temp13(,r13,4
000142 4100 D1C8 000747 | LA r0,_temp13(,r13,4
000146 5820 D1F8 000747 | L r2,#wtemp_46(,r13
00014A 4140 D1C0 000747 | LA r4,LSTRINGLEN(,r1
00014E 4180 D1BC 000747 | LA r8,LSTRINGADDR(,r
000152 5890 D1FC 000747 | L r9,#wtemp_47(,r13
000156 41A0 D0B8 000747 | LA r10,LFUNCTION(,r1
00015A 58B0 D200 000747 | L r11,#wtemp_48(,r1
00015E 58E0 D204 000747 | L r14,#wtemp_49(,r1
000162 5850 D1D0 000747 | L r5,#ENV:BUILDSLIS
000166 5810 D218 000747 | L r1,#CEECAACRENT_1
00016A 5010 C1F4 000747 | ST r1,_CEECAA_(,r12,
00016E 58F0 3004 000747 | L r15,=A(HTTP_SLIST
000172 4110 D098 000747 | LA r1,#MX_TEMP10(,r1
000176 50E0 D098 000747 | ST r14,#MX_TEMP10(,r
00017A 50B0 D09C 000747 | ST r11,#MX_TEMP10(,r
00017E 50A0 D0A0 000747 | ST r10,#MX_TEMP10(,r
000182 5090 D0A4 000747 | ST r9,#MX_TEMP10(,r1
000186 5080 D0A8 000747 | ST r8,#MX_TEMP10(,r1
00018A 5040 D0AC 000747 | ST r4,#MX_TEMP10(,r1
00018E 5020 D0B0 000747 | ST r2,#MX_TEMP10(,r1
000192 5000 D0B4 000747 | ST r0,#MX_TEMP10(,r1
000196 0DEF 000747 | BASR r14,r15
000198 E300 D1C4 0094 000747 | LLC r0,_temp12(,r13,4
00019E C00B 0000 0080 000747 | NILF r0,F'128'
0001A4 C20F 0000 0000 000747 | CLFI r0,F'0'
0001AA A774 000C 000747 | JNE @10L145
0001AE 000747 | @10L147 DS 0H
0001AE 5810 D1F4 000749 | L r1,#SR_PARM_10(,r
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
0001B2 5810 1008 000749 | L r1,_addrReturns_V
0001B6 5810 1000 000749 | L r1,_shadow6(,r1,0
0001BA 9200 1000 000749 | MVI _shadow2(r1,0),0
0001BE A7F4 00A7 000749 | J @10L421
0001C2 000749 | @10L145 DS 0H
0001C2 000749 | @10L146 DS 0H
0001C2 E54C D0B8 0002 000757 | MVHI LFUNCTION(r13,184
0001C8 4100 D0BC 000758 | LA r0,LSTRING(,r13,1
0001CC 5000 D1D4 000758 | ST r0,#wtemp_45(,r13
0001D0 4110 D0BC 000758 | LA r1,LSTRING(,r13,1
0001D4 5010 D1E0 000758 | ST r1,#STRTEMP10(,r1
0001D8 9240 1000 000758 | MVI LSTRING(r1,0),64
0001DC D2FE 1001 1000 000758 | MVC LSTRING(255,r1,1)
0001E2 D215 D0BC 61F8 000759 | MVC LSTRING(22,r13,18
0001E8 4110 D0D2 000759 | LA r1,LSTRING(,r13,2
0001EC 5010 D1E0 000759 | ST r1,#STRTEMP10(,r1
0001F0 9240 1000 000759 | MVI LSTRING(r1,0),64
0001F4 D2E8 1001 1000 000759 | MVC LSTRING(233,r1,1)
0001FA E54C D1C0 0016 000760 | MVHI LSTRINGLEN(r13,44
000200 5810 7000 000762 | L r1,=A(IBMQJDSB)(,
000204 4120 6018 000762 | LA r2,_Dsc_000004(,r
000208 4140 60E8 000762 | LA r4,_Dsc_000030(,r
00020C 58F0 1008 000762 | L r15,&EPA_&WSA(,r1
000210 5800 100C 000762 | L r0,&EPA_&WSA(,r1,
000214 5000 C1F4 000762 | ST r0,_CEECAA_(,r12,
000218 4150 6ACE 000762 | LA r5,+CONSTANT_AREA
00021C 4110 D098 000762 | LA r1,#MX_TEMP10(,r1
000220 5050 D098 000762 | ST r5,#MX_TEMP10(,r1
000224 5040 D09C 000762 | ST r4,#MX_TEMP10(,r1
000228 E54C D0A0 0000 000762 | MVHI #MX_TEMP10(r13,16
00022E 5020 D0A4 000762 | ST r2,#MX_TEMP10(,r1
000232 E54C D0A8 0000 000762 | MVHI #MX_TEMP10(r13,16
000238 0DEF 000762 | BASR r14,r15
00023A 5810 D1D0 000764 | L r1,#ENV:BUILDSLIS
00023E 5840 D1F4 000764 | L r4,#SR_PARM_10(,r
000242 5820 4000 000764 | L r2,_addrINHANDLE(
000246 5840 4004 000764 | L r4,_addrSLISTADDR
00024A 5840 4000 000764 | L r4,_shadow6(,r4,0
00024E 4100 D1C4 000764 | LA r0,_temp12(,r13,4
000252 4150 10D8 000764 | LA r5,LDIAGAREA(,r1,
000256 5050 D208 000764 | ST r5,#wtemp_50(,r13
00025A 5040 D20C 000764 | ST r4,#wtemp_51(,r13
00025E 5020 D210 000764 | ST r2,#wtemp_52(,r13
000262 4110 10BC 000764 | LA r1,LRC(,r1,188)
000266 5010 D214 000764 | ST r1,#wtemp_53(,r13
00026A 5000 D1C8 000764 | ST r0,456(,r13)
00026E C009 0001 0000 000764 | IILF r0,F'65536'
000274 5000 D1CC 000764 | ST r0,_temp13(,r13,4
000278 4100 D1C8 000764 | LA r0,_temp13(,r13,4
00027C 5820 D208 000764 | L r2,#wtemp_50(,r13
000280 4140 D1C0 000764 | LA r4,LSTRINGLEN(,r1
000284 4180 D1BC 000764 | LA r8,LSTRINGADDR(,r
000288 5890 D20C 000764 | L r9,#wtemp_51(,r13
00028C 41A0 D0B8 000764 | LA r10,LFUNCTION(,r1
000290 58B0 D210 000764 | L r11,#wtemp_52(,r1
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
000294 58E0 D214 000764 | L r14,#wtemp_53(,r1
000298 5850 D1D0 000764 | L r5,#ENV:BUILDSLIS
00029C 5810 D218 000764 | L r1,#CEECAACRENT_1
0002A0 5010 C1F4 000764 | ST r1,_CEECAA_(,r12,
0002A4 58F0 3004 000764 | L r15,=A(HTTP_SLIST
0002A8 4110 D098 000764 | LA r1,#MX_TEMP10(,r1
0002AC 50E0 D098 000764 | ST r14,#MX_TEMP10(,r
0002B0 50B0 D09C 000764 | ST r11,#MX_TEMP10(,r
0002B4 50A0 D0A0 000764 | ST r10,#MX_TEMP10(,r
0002B8 5090 D0A4 000764 | ST r9,#MX_TEMP10(,r1
0002BC 5080 D0A8 000764 | ST r8,#MX_TEMP10(,r1
0002C0 5040 D0AC 000764 | ST r4,#MX_TEMP10(,r1
0002C4 5020 D0B0 000764 | ST r2,#MX_TEMP10(,r1
0002C8 5000 D0B4 000764 | ST r0,#MX_TEMP10(,r1
0002CC 0DEF 000764 | BASR r14,r15
0002CE E300 D1C4 0094 000764 | LLC r0,_temp12(,r13,4
0002D4 C00B 0000 0080 000764 | NILF r0,F'128'
0002DA C20F 0000 0000 000764 | CLFI r0,F'0'
0002E0 A774 000C 000764 | JNE @10L148
0002E4 000764 | @10L150 DS 0H
0002E4 5810 D1F4 000766 | L r1,#SR_PARM_10(,r
0002E8 5810 1008 000766 | L r1,_addrReturns_V
0002EC 5810 1000 000766 | L r1,_shadow6(,r1,0
0002F0 9200 1000 000766 | MVI _shadow2(r1,0),0
0002F4 A7F4 000C 000766 | J @10L421
0002F8 000766 | @10L148 DS 0H
0002F8 000766 | @10L149 DS 0H
0002F8 5810 D1F4 000768 | L r1,#SR_PARM_10(,r
0002FC 5810 1008 000768 | L r1,_addrReturns_V
000300 5810 1000 000768 | L r1,_shadow6(,r1,0
000304 9280 1000 000768 | MVI _shadow2(r1,0),12
000308 A7F4 0002 000768 | J @10L421
00030C 000769 | @10L144 DS 0H
00030C 000769 | @10L421 DS 0H
00030C 5800 D218 000000 | L r0,#CEECAACRENT_1
000310 5000 C1F4 000000 | ST r0,_CEECAA_(,r12,
000314 Start of Epilog
000314 58D0 D004 000769 | L r13,4(,r13)
000318 58E0 D00C 000769 | L r14,12(,r13)
00031C 982B D01C 000769 | LM r2,r11,28(r13)
000320 051E 000769 | BALR r1,r14
000322 0707 000769 | NOPR 7
000324 Start of Literals
000324 00000000 =Q(@STATIC)
000328 00002238 =A(HTTP_SLIST)
00032C End of Literals
*** General purpose registers used: 111111111111111
*** Floating point registers used: 111111110000000
*** Size of register spill area: 512(max) 0(used)
*** Size of dynamic storage: 544
*** Size of executable code: 804
*** CSECT Offset: 9232 : 0x2410
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
HTTP_SETUPREQUEST
000000 000540 | DS 0D
000000 47F0 F024 000540 | B 36(,r15)
000004 01C3C5C5 CEE eyecatcher
000008 000001F8 DSA size
00000C 00004D58 =A(PPA1-HTTP_SETU
000010 47F0 F001 000540 | B 1(,r15)
000014 58F0 C31C 000540 | L r15,796(,r12)
000018 184E 000540 | LR r4,r14
00001A 05EF 000540 | BALR r14,r15
00001C 00000000 =F'0'
000020 A7F4 000C 000540 | J *+24
000024 90EB D00C 000540 | STM r14,r11,12(r13)
000028 58E0 D04C 000540 | L r14,76(,r13)
00002C 4100 E1F8 000540 | LA r0,504(,r14)
000030 5500 C314 000540 | CL r0,788(,r12)
000034 A724 FFF0 000540 | JH *-32
000038 58F0 C280 000540 | L r15,640(,r12)
00003C 90F0 E048 000540 | STM r15,r0,72(r14)
000040 9210 E000 000540 | MVI 0(r14),16
000044 50D0 E004 000540 | ST r13,4(,r14)
000048 18DE 000540 | LR r13,r14
00004A C030 0000 0506 000540 | LARL r3,F'1286'
000050 End of Prolog
000050 5800 C1F4 000000 | L r0,_CEECAA_(,r12,
000054 5000 D164 000000 | ST r0,#CEECAACRENT_1
000058 5800 D164 000000 | L r0,#CEECAACRENT_1
00005C 5820 3002 000000 | L r2,=Q(@STATIC)(,r
000060 1E02 000000 | ALR r0,r2
000062 1870 000000 | LR r7,r0
000064 C060 0000 1E1A 000000 | LARL r6,F'7706'
00006A 5010 D168 000540 | ST r1,#SR_PARM_11(,r
00006E 5050 D160 000540 | ST r5,#ENV:HTTP_SETU
000072 5810 D164 000556 | L r1,#CEECAACRENT_1
000076 5800 3006 000556 | L r0,=Q(RESPHDREXIT
00007A 1E01 000556 | ALR r0,r1
00007C 5000 D138 000556 | ST r0,RESPHDREXITADD
000080 5810 D164 000557 | L r1,#CEECAACRENT_1
000084 5800 300A 000557 | L r0,=Q(RESPBDYEXIT
000088 1E01 000557 | ALR r0,r1
00008A 5000 D13C 000557 | ST r0,RESPBDYEXITADD
00008E 9280 D0B8 000559 | MVI SUCCESS(r13,184),
000092 E54C D0BC 0048 000565 | MVHI LOPTION(r13,188),
000098 E54C D0C8 0002 000566 | MVHI LOPTIONDECVALUE(r
00009E E54C D130 0004 000567 | MVHI LOPTIONVALUELEN(r
0000A4 4100 D0C8 000568 | LA r0,LOPTIONDECVALU
0000A8 5000 D134 000568 | ST r0,LOPTIONVALUEAD
0000AC 5810 7000 000570 | L r1,=A(IBMQJDSB)(,
0000B0 4120 6018 000570 | LA r2,_Dsc_000004(,r
0000B4 4140 60E8 000570 | LA r4,_Dsc_000030(,r
0000B8 58F0 1008 000570 | L r15,&EPA_&WSA(,r1
0000BC 5800 100C 000570 | L r0,&EPA_&WSA(,r1,
0000C0 5000 C1F4 000570 | ST r0,_CEECAA_(,r12,
0000C4 4150 6AFA 000570 | LA r5,+CONSTANT_AREA
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
0000C8 4110 D098 000570 | LA r1,#MX_TEMP11(,r1
0000CC 5050 D098 000570 | ST r5,#MX_TEMP11(,r1
0000D0 5040 D09C 000570 | ST r4,#MX_TEMP11(,r1
0000D4 E54C D0A0 0000 000570 | MVHI #MX_TEMP11(r13,16
0000DA 5020 D0A4 000570 | ST r2,#MX_TEMP11(,r1
0000DE E54C D0A8 0000 000570 | MVHI #MX_TEMP11(r13,16
0000E4 0DEF 000570 | BASR r14,r15
0000E6 5810 D160 000572 | L r1,#ENV:HTTP_SETU
0000EA 5820 D168 000572 | L r2,#SR_PARM_11(,r
0000EE 5820 2000 000572 | L r2,_addrINHANDLE(
0000F2 4100 D140 000572 | LA r0,_temp9(,r13,32
0000F6 4140 10D8 000572 | LA r4,LDIAGAREA(,r1,
0000FA 5040 D16C 000572 | ST r4,#wtemp_17(,r13
0000FE 5020 D170 000572 | ST r2,#wtemp_18(,r13
000102 4110 10BC 000572 | LA r1,LRC(,r1,188)
000106 5010 D174 000572 | ST r1,#wtemp_19(,r13
00010A 5000 D158 000572 | ST r0,344(,r13)
00010E C009 0001 0000 000572 | IILF r0,F'65536'
000114 5000 D15C 000572 | ST r0,_temp11(,r13,3
000118 4100 D158 000572 | LA r0,_temp11(,r13,3
00011C 5820 D16C 000572 | L r2,#wtemp_17(,r13
000120 4140 D130 000572 | LA r4,LOPTIONVALUELE
000124 4180 D134 000572 | LA r8,LOPTIONVALUEAD
000128 4190 D0BC 000572 | LA r9,LOPTION(,r13,1
00012C 58A0 D170 000572 | L r10,#wtemp_18(,r1
000130 58B0 D174 000572 | L r11,#wtemp_19(,r1
000134 5850 D160 000572 | L r5,#ENV:HTTP_SETU
000138 5810 D164 000572 | L r1,#CEECAACRENT_1
00013C 5010 C1F4 000572 | ST r1,_CEECAA_(,r12,
000140 58F0 300E 000572 | L r15,=A(HTTP_SET)(
000144 4110 D098 000572 | LA r1,#MX_TEMP11(,r1
000148 50B0 D098 000572 | ST r11,#MX_TEMP11(,r
00014C 50A0 D09C 000572 | ST r10,#MX_TEMP11(,r
000150 5090 D0A0 000572 | ST r9,#MX_TEMP11(,r1
000154 5080 D0A4 000572 | ST r8,#MX_TEMP11(,r1
000158 5040 D0A8 000572 | ST r4,#MX_TEMP11(,r1
00015C 5020 D0AC 000572 | ST r2,#MX_TEMP11(,r1
000160 5000 D0B0 000572 | ST r0,#MX_TEMP11(,r1
000164 0DEF 000572 | BASR r14,r15
000166 E300 D140 0094 000572 | LLC r0,_temp9(,r13,32
00016C C00B 0000 0080 000572 | NILF r0,F'128'
000172 C20F 0000 0000 000572 | CLFI r0,F'0'
000178 A774 000C 000572 | JNE @11L155
00017C 000572 | @11L157 DS 0H
00017C 5810 D168 000574 | L r1,#SR_PARM_11(,r
000180 5810 1004 000574 | L r1,_addrReturns_V
000184 5810 1000 000574 | L r1,_shadow6(,r1,0
000188 9200 1000 000574 | MVI _shadow2(r1,0),0
00018C A7F4 0459 000574 | J @11L420
000190 000574 | @11L155 DS 0H
000190 000574 | @11L156 DS 0H
000190 E54C D0BC 0001 000581 | MVHI LOPTION(r13,188),
000196 4110 D0CC 000582 | LA r1,LOPTIONVALUE(,
00019A 5010 D180 000582 | ST r1,#STRTEMP11(,r1
00019E 9240 1000 000582 | MVI LOPTIONVALUE(r1,0
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
0001A2 D262 1001 1000 000582 | MVC LOPTIONVALUE(99,r
0001A8 D20F D144 61C0 000583 | MVC _temp10(16,r13,32
0001AE 5810 D160 000583 | L r1,#ENV:HTTP_SETU
0001B2 5810 10B0 000583 | L r1,JCLPARMSADDRPT
0001B6 5810 1000 000583 | L r1,_shadow6(,r1,0
0001BA D202 D154 1002 000583 | MVC _temp10(3,r13,340
0001C0 D212 D0CC D144 000583 | MVC LOPTIONVALUE(19,r
0001C6 4110 D0DF 000583 | LA r1,LOPTIONVALUE(,
0001CA 5010 D180 000583 | ST r1,#STRTEMP11(,r1
0001CE 9240 1000 000583 | MVI LOPTIONVALUE(r1,0
0001D2 D24F 1001 1000 000583 | MVC LOPTIONVALUE(80,r
0001D8 E54C D130 0013 000584 | MVHI LOPTIONVALUELEN(r
0001DE 4100 D0CC 000585 | LA r0,LOPTIONVALUE(,
0001E2 5000 D134 000585 | ST r0,LOPTIONVALUEAD
0001E6 5810 7000 000587 | L r1,=A(IBMQJDSB)(,
0001EA 4120 6018 000587 | LA r2,_Dsc_000004(,r
0001EE 4140 60D8 000587 | LA r4,_Dsc_000028(,r
0001F2 58F0 1008 000587 | L r15,&EPA_&WSA(,r1
0001F6 5800 100C 000587 | L r0,&EPA_&WSA(,r1,
0001FA 5000 C1F4 000587 | ST r0,_CEECAA_(,r12,
0001FE 4150 6B26 000587 | LA r5,+CONSTANT_AREA
000202 4110 D098 000587 | LA r1,#MX_TEMP11(,r1
000206 5050 D098 000587 | ST r5,#MX_TEMP11(,r1
00020A 5040 D09C 000587 | ST r4,#MX_TEMP11(,r1
00020E E54C D0A0 0000 000587 | MVHI #MX_TEMP11(r13,16
000214 5020 D0A4 000587 | ST r2,#MX_TEMP11(,r1
000218 E54C D0A8 0000 000587 | MVHI #MX_TEMP11(r13,16
00021E 0DEF 000587 | BASR r14,r15
000220 5810 D160 000589 | L r1,#ENV:HTTP_SETU
000224 5820 D168 000589 | L r2,#SR_PARM_11(,r
000228 5820 2000 000589 | L r2,_addrINHANDLE(
00022C 4100 D140 000589 | LA r0,_temp9(,r13,32
000230 4140 10D8 000589 | LA r4,LDIAGAREA(,r1,
000234 5040 D198 000589 | ST r4,#wtemp_21(,r13
000238 5020 D19C 000589 | ST r2,#wtemp_22(,r13
00023C 4110 10BC 000589 | LA r1,LRC(,r1,188)
000240 5010 D1A0 000589 | ST r1,#wtemp_23(,r13
000244 5000 D158 000589 | ST r0,344(,r13)
000248 C009 0001 0000 000589 | IILF r0,F'65536'
00024E 5000 D15C 000589 | ST r0,_temp11(,r13,3
000252 4100 D158 000589 | LA r0,_temp11(,r13,3
000256 5820 D198 000589 | L r2,#wtemp_21(,r13
00025A 4140 D130 000589 | LA r4,LOPTIONVALUELE
00025E 4180 D134 000589 | LA r8,LOPTIONVALUEAD
000262 4190 D0BC 000589 | LA r9,LOPTION(,r13,1
000266 58A0 D19C 000589 | L r10,#wtemp_22(,r1
00026A 58B0 D1A0 000589 | L r11,#wtemp_23(,r1
00026E 5850 D160 000589 | L r5,#ENV:HTTP_SETU
000272 5810 D164 000589 | L r1,#CEECAACRENT_1
000276 5010 C1F4 000589 | ST r1,_CEECAA_(,r12,
00027A 58F0 300E 000589 | L r15,=A(HTTP_SET)(
00027E 4110 D098 000589 | LA r1,#MX_TEMP11(,r1
000282 50B0 D098 000589 | ST r11,#MX_TEMP11(,r
000286 50A0 D09C 000589 | ST r10,#MX_TEMP11(,r
00028A 5090 D0A0 000589 | ST r9,#MX_TEMP11(,r1
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
00028E 5080 D0A4 000589 | ST r8,#MX_TEMP11(,r1
000292 5040 D0A8 000589 | ST r4,#MX_TEMP11(,r1
000296 5020 D0AC 000589 | ST r2,#MX_TEMP11(,r1
00029A 5000 D0B0 000589 | ST r0,#MX_TEMP11(,r1
00029E 0DEF 000589 | BASR r14,r15
0002A0 E300 D140 0094 000589 | LLC r0,_temp9(,r13,32
0002A6 C00B 0000 0080 000589 | NILF r0,F'128'
0002AC C20F 0000 0000 000589 | CLFI r0,F'0'
0002B2 A774 000C 000589 | JNE @11L158
0002B6 000589 | @11L160 DS 0H
0002B6 5810 D168 000591 | L r1,#SR_PARM_11(,r
0002BA 5810 1004 000591 | L r1,_addrReturns_V
0002BE 5810 1000 000591 | L r1,_shadow6(,r1,0
0002C2 9200 1000 000591 | MVI _shadow2(r1,0),0
0002C6 A7F4 03BC 000591 | J @11L420
0002CA 000591 | @11L158 DS 0H
0002CA 000591 | @11L159 DS 0H
0002CA E54C D0BC 004C 000598 | MVHI LOPTION(r13,188),
0002D0 4110 D0CC 000599 | LA r1,LOPTIONVALUE(,
0002D4 5010 D180 000599 | ST r1,#STRTEMP11(,r1
0002D8 9240 1000 000599 | MVI LOPTIONVALUE(r1,0
0002DC D262 1001 1000 000599 | MVC LOPTIONVALUE(99,r
0002E2 E54C D130 0004 000600 | MVHI LOPTIONVALUELEN(r
0002E8 5800 D138 000601 | L r0,RESPHDREXITADD
0002EC 5000 D134 000601 | ST r0,LOPTIONVALUEAD
0002F0 5810 7000 000603 | L r1,=A(IBMQJDSB)(,
0002F4 4120 6018 000603 | LA r2,_Dsc_000004(,r
0002F8 4140 60E0 000603 | LA r4,_Dsc_000029(,r
0002FC 58F0 1008 000603 | L r15,&EPA_&WSA(,r1
000300 5800 100C 000603 | L r0,&EPA_&WSA(,r1,
000304 5000 C1F4 000603 | ST r0,_CEECAA_(,r12,
000308 4150 6B50 000603 | LA r5,+CONSTANT_AREA
00030C 4110 D098 000603 | LA r1,#MX_TEMP11(,r1
000310 5050 D098 000603 | ST r5,#MX_TEMP11(,r1
000314 5040 D09C 000603 | ST r4,#MX_TEMP11(,r1
000318 E54C D0A0 0000 000603 | MVHI #MX_TEMP11(r13,16
00031E 5020 D0A4 000603 | ST r2,#MX_TEMP11(,r1
000322 E54C D0A8 0000 000603 | MVHI #MX_TEMP11(r13,16
000328 0DEF 000603 | BASR r14,r15
00032A 5810 D160 000605 | L r1,#ENV:HTTP_SETU
00032E 5820 D168 000605 | L r2,#SR_PARM_11(,r
000332 5820 2000 000605 | L r2,_addrINHANDLE(
000336 4100 D140 000605 | LA r0,_temp9(,r13,32
00033A 4140 10D8 000605 | LA r4,LDIAGAREA(,r1,
00033E 5040 D1A4 000605 | ST r4,#wtemp_24(,r13
000342 5020 D1A8 000605 | ST r2,#wtemp_25(,r13
000346 4110 10BC 000605 | LA r1,LRC(,r1,188)
00034A 5010 D1AC 000605 | ST r1,#wtemp_26(,r13
00034E 5000 D158 000605 | ST r0,344(,r13)
000352 C009 0001 0000 000605 | IILF r0,F'65536'
000358 5000 D15C 000605 | ST r0,_temp11(,r13,3
00035C 4100 D158 000605 | LA r0,_temp11(,r13,3
000360 5820 D1A4 000605 | L r2,#wtemp_24(,r13
000364 4140 D130 000605 | LA r4,LOPTIONVALUELE
000368 4180 D134 000605 | LA r8,LOPTIONVALUEAD
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
00036C 4190 D0BC 000605 | LA r9,LOPTION(,r13,1
000370 58A0 D1A8 000605 | L r10,#wtemp_25(,r1
000374 58B0 D1AC 000605 | L r11,#wtemp_26(,r1
000378 5850 D160 000605 | L r5,#ENV:HTTP_SETU
00037C 5810 D164 000605 | L r1,#CEECAACRENT_1
000380 5010 C1F4 000605 | ST r1,_CEECAA_(,r12,
000384 58F0 300E 000605 | L r15,=A(HTTP_SET)(
000388 4110 D098 000605 | LA r1,#MX_TEMP11(,r1
00038C 50B0 D098 000605 | ST r11,#MX_TEMP11(,r
000390 50A0 D09C 000605 | ST r10,#MX_TEMP11(,r
000394 5090 D0A0 000605 | ST r9,#MX_TEMP11(,r1
000398 5080 D0A4 000605 | ST r8,#MX_TEMP11(,r1
00039C 5040 D0A8 000605 | ST r4,#MX_TEMP11(,r1
0003A0 5020 D0AC 000605 | ST r2,#MX_TEMP11(,r1
0003A4 5000 D0B0 000605 | ST r0,#MX_TEMP11(,r1
0003A8 0DEF 000605 | BASR r14,r15
0003AA E300 D140 0094 000605 | LLC r0,_temp9(,r13,32
0003B0 C00B 0000 0080 000605 | NILF r0,F'128'
0003B6 C20F 0000 0000 000605 | CLFI r0,F'0'
0003BC A774 000C 000605 | JNE @11L161
0003C0 000605 | @11L163 DS 0H
0003C0 5810 D168 000607 | L r1,#SR_PARM_11(,r
0003C4 5810 1004 000607 | L r1,_addrReturns_V
0003C8 5810 1000 000607 | L r1,_shadow6(,r1,0
0003CC 9200 1000 000607 | MVI _shadow2(r1,0),0
0003D0 A7F4 0337 000607 | J @11L420
0003D4 000607 | @11L161 DS 0H
0003D4 000607 | @11L162 DS 0H
0003D4 5810 D160 000615 | L r1,#ENV:HTTP_SETU
0003D8 4110 1168 000615 | LA r1,MYRESPHEADERUS
0003DC 5010 D180 000615 | ST r1,#STRTEMP11(,r1
0003E0 D713 1000 1000 000615 | XC MYRESPHEADERUSERD
0003E6 5810 D160 000615 | L r1,#ENV:HTTP_SETU
0003EA 4110 1168 000615 | LA r1,MYRESPHEADERUS
0003EE 5010 D180 000615 | ST r1,#STRTEMP11(,r1
0003F2 9240 1000 000615 | MVI MYRESPHEADERUSERD
0003F6 D206 1001 1000 000615 | MVC MYRESPHEADERUSERD
0003FC 5810 D160 000615 | L r1,#ENV:HTTP_SETU
000400 C009 FF00 0000 000615 | IILF r0,F'-16777216'
000406 5000 1170 000615 | ST r0,RESPSTATUSCODE
00040A 5810 D160 000615 | L r1,#ENV:HTTP_SETU
00040E E54C 1174 0000 000615 | MVHI RESPHEADERCOUNT(r
000414 5810 D160 000615 | L r1,#ENV:HTTP_SETU
000418 5000 1178 000615 | ST r0,MAINLINEHDRFLA
00041C 5810 D160 000616 | L r1,#ENV:HTTP_SETU
000420 D207 1168 61D0 000616 | MVC MYRESPHEADERUSERD
000426 5810 D160 000617 | L r1,#ENV:HTTP_SETU
00042A 4100 1168 000617 | LA r0,MYRESPHEADERUS
00042E 5000 117C 000617 | ST r0,MYRESPHEADERUS
000432 5810 D160 000618 | L r1,#ENV:HTTP_SETU
000436 4100 1180 000618 | LA r0,RESPSTATUSCODE
00043A 5000 1170 000618 | ST r0,RESPSTATUSCODE
00043E 5810 D160 000619 | L r1,#ENV:HTTP_SETU
000442 4100 1184 000619 | LA r0,MAINLINEHDRFLA
000446 5000 1178 000619 | ST r0,MAINLINEHDRFLA
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
00044A E54C D0BC 004D 000621 | MVHI LOPTION(r13,188),
000450 5810 D160 000622 | L r1,#ENV:HTTP_SETU
000454 4100 1168 000622 | LA r0,MYRESPHEADERUS
000458 5000 D134 000622 | ST r0,LOPTIONVALUEAD
00045C E54C D130 0014 000623 | MVHI LOPTIONVALUELEN(r
000462 5810 7000 000625 | L r1,=A(IBMQJDSB)(,
000466 4120 6018 000625 | LA r2,_Dsc_000004(,r
00046A 4140 6008 000625 | LA r4,_Dsc_000002(,r
00046E 58F0 1008 000625 | L r15,&EPA_&WSA(,r1
000472 5800 100C 000625 | L r0,&EPA_&WSA(,r1,
000476 5000 C1F4 000625 | ST r0,_CEECAA_(,r12,
00047A 4150 6B7C 000625 | LA r5,+CONSTANT_AREA
00047E 4110 D098 000625 | LA r1,#MX_TEMP11(,r1
000482 5050 D098 000625 | ST r5,#MX_TEMP11(,r1
000486 5040 D09C 000625 | ST r4,#MX_TEMP11(,r1
00048A E54C D0A0 0000 000625 | MVHI #MX_TEMP11(r13,16
000490 5020 D0A4 000625 | ST r2,#MX_TEMP11(,r1
000494 E54C D0A8 0000 000625 | MVHI #MX_TEMP11(r13,16
00049A 0DEF 000625 | BASR r14,r15
00049C 5810 D160 000627 | L r1,#ENV:HTTP_SETU
0004A0 5820 D168 000627 | L r2,#SR_PARM_11(,r
0004A4 5820 2000 000627 | L r2,_addrINHANDLE(
0004A8 4100 D140 000627 | LA r0,_temp9(,r13,32
0004AC 4140 10D8 000627 | LA r4,LDIAGAREA(,r1,
0004B0 5040 D1B4 000627 | ST r4,#wtemp_28(,r13
0004B4 5020 D1B8 000627 | ST r2,#wtemp_29(,r13
0004B8 4110 10BC 000627 | LA r1,LRC(,r1,188)
0004BC 5010 D1BC 000627 | ST r1,#wtemp_30(,r13
0004C0 5000 D158 000627 | ST r0,344(,r13)
0004C4 C009 0001 0000 000627 | IILF r0,F'65536'
0004CA 5000 D15C 000627 | ST r0,_temp11(,r13,3
0004CE 4100 D158 000627 | LA r0,_temp11(,r13,3
0004D2 5820 D1B4 000627 | L r2,#wtemp_28(,r13
0004D6 4140 D130 000627 | LA r4,LOPTIONVALUELE
0004DA 4180 D134 000627 | LA r8,LOPTIONVALUEAD
0004DE 4190 D0BC 000627 | LA r9,LOPTION(,r13,1
0004E2 58A0 D1B8 000627 | L r10,#wtemp_29(,r1
0004E6 58B0 D1BC 000627 | L r11,#wtemp_30(,r1
0004EA 5850 D160 000627 | L r5,#ENV:HTTP_SETU
0004EE 5810 D164 000627 | L r1,#CEECAACRENT_1
0004F2 5010 C1F4 000627 | ST r1,_CEECAA_(,r12,
0004F6 58F0 300E 000627 | L r15,=A(HTTP_SET)(
0004FA 4110 D098 000627 | LA r1,#MX_TEMP11(,r1
0004FE 50B0 D098 000627 | ST r11,#MX_TEMP11(,r
000502 50A0 D09C 000627 | ST r10,#MX_TEMP11(,r
000506 5090 D0A0 000627 | ST r9,#MX_TEMP11(,r1
00050A 5080 D0A4 000627 | ST r8,#MX_TEMP11(,r1
00050E 5040 D0A8 000627 | ST r4,#MX_TEMP11(,r1
000512 5020 D0AC 000627 | ST r2,#MX_TEMP11(,r1
000516 5000 D0B0 000627 | ST r0,#MX_TEMP11(,r1
00051A 0DEF 000627 | BASR r14,r15
00051C E300 D140 0094 000627 | LLC r0,_temp9(,r13,32
000522 C00B 0000 0080 000627 | NILF r0,F'128'
000528 C20F 0000 0000 000627 | CLFI r0,F'0'
00052E A774 000C 000627 | JNE @11L164
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
000532 000627 | @11L166 DS 0H
000532 5810 D168 000629 | L r1,#SR_PARM_11(,r
000536 5810 1004 000629 | L r1,_addrReturns_V
00053A 5810 1000 000629 | L r1,_shadow6(,r1,0
00053E 9200 1000 000629 | MVI _shadow2(r1,0),0
000542 A7F4 027E 000629 | J @11L420
000546 000629 | @11L164 DS 0H
000546 000629 | @11L165 DS 0H
000546 E54C D0BC 004E 000637 | MVHI LOPTION(r13,188),
00054C 4110 D0CC 000638 | LA r1,LOPTIONVALUE(,
000550 5010 D180 000638 | ST r1,#STRTEMP11(,r1
000554 9240 1000 000638 | MVI LOPTIONVALUE(r1,0
000558 D262 1001 1000 000638 | MVC LOPTIONVALUE(99,r
00055E E54C D130 0004 000639 | MVHI LOPTIONVALUELEN(r
000564 5800 D13C 000640 | L r0,RESPBDYEXITADD
000568 5000 D134 000640 | ST r0,LOPTIONVALUEAD
00056C 5810 7000 000642 | L r1,=A(IBMQJDSB)(,
000570 4120 6018 000642 | LA r2,_Dsc_000004(,r
000574 1846 000642 | LR r4,r6
000576 58F0 1008 000642 | L r15,&EPA_&WSA(,r1
00057A 5800 100C 000642 | L r0,&EPA_&WSA(,r1,
00057E 5000 C1F4 000642 | ST r0,_CEECAA_(,r12,
000582 4150 6BB0 000642 | LA r5,+CONSTANT_AREA
000586 4110 D098 000642 | LA r1,#MX_TEMP11(,r1
00058A 5050 D098 000642 | ST r5,#MX_TEMP11(,r1
00058E 5040 D09C 000642 | ST r4,#MX_TEMP11(,r1
000592 E54C D0A0 0000 000642 | MVHI #MX_TEMP11(r13,16
000598 5020 D0A4 000642 | ST r2,#MX_TEMP11(,r1
00059C E54C D0A8 0000 000642 | MVHI #MX_TEMP11(r13,16
0005A2 0DEF 000642 | BASR r14,r15
0005A4 5810 D160 000644 | L r1,#ENV:HTTP_SETU
0005A8 5820 D168 000644 | L r2,#SR_PARM_11(,r
0005AC 5820 2000 000644 | L r2,_addrINHANDLE(
0005B0 4100 D140 000644 | LA r0,_temp9(,r13,32
0005B4 4140 10D8 000644 | LA r4,LDIAGAREA(,r1,
0005B8 5040 D1C0 000644 | ST r4,#wtemp_31(,r13
0005BC 5020 D1C4 000644 | ST r2,#wtemp_32(,r13
0005C0 4110 10BC 000644 | LA r1,LRC(,r1,188)
0005C4 5010 D1C8 000644 | ST r1,#wtemp_33(,r13
0005C8 5000 D158 000644 | ST r0,344(,r13)
0005CC C009 0001 0000 000644 | IILF r0,F'65536'
0005D2 5000 D15C 000644 | ST r0,_temp11(,r13,3
0005D6 4100 D158 000644 | LA r0,_temp11(,r13,3
0005DA 5820 D1C0 000644 | L r2,#wtemp_31(,r13
0005DE 4140 D130 000644 | LA r4,LOPTIONVALUELE
0005E2 4180 D134 000644 | LA r8,LOPTIONVALUEAD
0005E6 4190 D0BC 000644 | LA r9,LOPTION(,r13,1
0005EA 58A0 D1C4 000644 | L r10,#wtemp_32(,r1
0005EE 58B0 D1C8 000644 | L r11,#wtemp_33(,r1
0005F2 5850 D160 000644 | L r5,#ENV:HTTP_SETU
0005F6 5810 D164 000644 | L r1,#CEECAACRENT_1
0005FA 5010 C1F4 000644 | ST r1,_CEECAA_(,r12,
0005FE 58F0 300E 000644 | L r15,=A(HTTP_SET)(
000602 4110 D098 000644 | LA r1,#MX_TEMP11(,r1
000606 50B0 D098 000644 | ST r11,#MX_TEMP11(,r
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
00060A 50A0 D09C 000644 | ST r10,#MX_TEMP11(,r
00060E 5090 D0A0 000644 | ST r9,#MX_TEMP11(,r1
000612 5080 D0A4 000644 | ST r8,#MX_TEMP11(,r1
000616 5040 D0A8 000644 | ST r4,#MX_TEMP11(,r1
00061A 5020 D0AC 000644 | ST r2,#MX_TEMP11(,r1
00061E 5000 D0B0 000644 | ST r0,#MX_TEMP11(,r1
000622 0DEF 000644 | BASR r14,r15
000624 E300 D140 0094 000644 | LLC r0,_temp9(,r13,32
00062A C00B 0000 0080 000644 | NILF r0,F'128'
000630 C20F 0000 0000 000644 | CLFI r0,F'0'
000636 A774 000C 000644 | JNE @11L167
00063A 000644 | @11L169 DS 0H
00063A 5810 D168 000646 | L r1,#SR_PARM_11(,r
00063E 5810 1004 000646 | L r1,_addrReturns_V
000642 5810 1000 000646 | L r1,_shadow6(,r1,0
000646 9200 1000 000646 | MVI _shadow2(r1,0),0
00064A A7F4 01FA 000646 | J @11L420
00064E 000646 | @11L167 DS 0H
00064E 000646 | @11L168 DS 0H
00064E 5810 D160 000655 | L r1,#ENV:HTTP_SETU
000652 4110 1188 000655 | LA r1,MYRESPBODYUSER
000656 5010 D180 000655 | ST r1,#STRTEMP11(,r1
00065A D70F 1000 1000 000655 | XC MYRESPBODYUSERDAT
000660 5810 D160 000655 | L r1,#ENV:HTTP_SETU
000664 4110 1188 000655 | LA r1,MYRESPBODYUSER
000668 5010 D180 000655 | ST r1,#STRTEMP11(,r1
00066C 9240 1000 000655 | MVI MYRESPBODYUSERDAT
000670 D206 1001 1000 000655 | MVC MYRESPBODYUSERDAT
000676 5810 D160 000655 | L r1,#ENV:HTTP_SETU
00067A C009 FF00 0000 000655 | IILF r0,F'-16777216'
000680 5000 1190 000655 | ST r0,MAINLINEHDRFLA
000684 5810 D160 000655 | L r1,#ENV:HTTP_SETU
000688 5000 1194 000655 | ST r0,RESPONSEBODYDA
00068C 5810 D160 000656 | L r1,#ENV:HTTP_SETU
000690 D207 1188 61D8 000656 | MVC MYRESPBODYUSERDAT
000696 5810 D160 000657 | L r1,#ENV:HTTP_SETU
00069A 4100 1184 000657 | LA r0,MAINLINEHDRFLA
00069E 5000 1190 000657 | ST r0,MAINLINEHDRFLA
0006A2 5810 D160 000658 | L r1,#ENV:HTTP_SETU
0006A6 4100 1198 000658 | LA r0,RESPONSEBODYDA
0006AA 5000 1194 000658 | ST r0,RESPONSEBODYDA
0006AE E54C D0BC 004F 000663 | MVHI LOPTION(r13,188),
0006B4 4110 D0CC 000664 | LA r1,LOPTIONVALUE(,
0006B8 5010 D180 000664 | ST r1,#STRTEMP11(,r1
0006BC 9240 1000 000664 | MVI LOPTIONVALUE(r1,0
0006C0 D262 1001 1000 000664 | MVC LOPTIONVALUE(99,r
0006C6 5810 D160 000665 | L r1,#ENV:HTTP_SETU
0006CA 4100 1188 000665 | LA r0,MYRESPBODYUSER
0006CE 5000 D134 000665 | ST r0,LOPTIONVALUEAD
0006D2 E54C D130 0010 000666 | MVHI LOPTIONVALUELEN(r
0006D8 5810 7000 000668 | L r1,=A(IBMQJDSB)(,
0006DC 4120 6018 000668 | LA r2,_Dsc_000004(,r
0006E0 4140 6010 000668 | LA r4,_Dsc_000003(,r
0006E4 58F0 1008 000668 | L r15,&EPA_&WSA(,r1
0006E8 5800 100C 000668 | L r0,&EPA_&WSA(,r1,
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
0006EC 5000 C1F4 000668 | ST r0,_CEECAA_(,r12,
0006F0 4150 6BE2 000668 | LA r5,+CONSTANT_AREA
0006F4 4110 D098 000668 | LA r1,#MX_TEMP11(,r1
0006F8 5050 D098 000668 | ST r5,#MX_TEMP11(,r1
0006FC 5040 D09C 000668 | ST r4,#MX_TEMP11(,r1
000700 E54C D0A0 0000 000668 | MVHI #MX_TEMP11(r13,16
000706 5020 D0A4 000668 | ST r2,#MX_TEMP11(,r1
00070A E54C D0A8 0000 000668 | MVHI #MX_TEMP11(r13,16
000710 0DEF 000668 | BASR r14,r15
000712 5810 D160 000670 | L r1,#ENV:HTTP_SETU
000716 5820 D168 000670 | L r2,#SR_PARM_11(,r
00071A 5820 2000 000670 | L r2,_addrINHANDLE(
00071E 4100 D140 000670 | LA r0,_temp9(,r13,32
000722 4140 10D8 000670 | LA r4,LDIAGAREA(,r1,
000726 5040 D1D0 000670 | ST r4,#wtemp_35(,r13
00072A 5020 D1D4 000670 | ST r2,#wtemp_36(,r13
00072E 4110 10BC 000670 | LA r1,LRC(,r1,188)
000732 5010 D1D8 000670 | ST r1,#wtemp_37(,r13
000736 5000 D158 000670 | ST r0,344(,r13)
00073A C009 0001 0000 000670 | IILF r0,F'65536'
000740 5000 D15C 000670 | ST r0,_temp11(,r13,3
000744 4100 D158 000670 | LA r0,_temp11(,r13,3
000748 5820 D1D0 000670 | L r2,#wtemp_35(,r13
00074C 4140 D130 000670 | LA r4,LOPTIONVALUELE
000750 4180 D134 000670 | LA r8,LOPTIONVALUEAD
000754 4190 D0BC 000670 | LA r9,LOPTION(,r13,1
000758 58A0 D1D4 000670 | L r10,#wtemp_36(,r1
00075C 58B0 D1D8 000670 | L r11,#wtemp_37(,r1
000760 5850 D160 000670 | L r5,#ENV:HTTP_SETU
000764 5810 D164 000670 | L r1,#CEECAACRENT_1
000768 5010 C1F4 000670 | ST r1,_CEECAA_(,r12,
00076C 58F0 300E 000670 | L r15,=A(HTTP_SET)(
000770 4110 D098 000670 | LA r1,#MX_TEMP11(,r1
000774 50B0 D098 000670 | ST r11,#MX_TEMP11(,r
000778 50A0 D09C 000670 | ST r10,#MX_TEMP11(,r
00077C 5090 D0A0 000670 | ST r9,#MX_TEMP11(,r1
000780 5080 D0A4 000670 | ST r8,#MX_TEMP11(,r1
000784 5040 D0A8 000670 | ST r4,#MX_TEMP11(,r1
000788 5020 D0AC 000670 | ST r2,#MX_TEMP11(,r1
00078C 5000 D0B0 000670 | ST r0,#MX_TEMP11(,r1
000790 0DEF 000670 | BASR r14,r15
000792 E300 D140 0094 000670 | LLC r0,_temp9(,r13,32
000798 C00B 0000 0080 000670 | NILF r0,F'128'
00079E C20F 0000 0000 000670 | CLFI r0,F'0'
0007A4 A774 000C 000670 | JNE @11L170
0007A8 000670 | @11L172 DS 0H
0007A8 5810 D168 000672 | L r1,#SR_PARM_11(,r
0007AC 5810 1004 000672 | L r1,_addrReturns_V
0007B0 5810 1000 000672 | L r1,_shadow6(,r1,0
0007B4 9200 1000 000672 | MVI _shadow2(r1,0),0
0007B8 A7F4 0143 000672 | J @11L420
0007BC 000672 | @11L170 DS 0H
0007BC 000672 | @11L171 DS 0H
0007BC E54C D0BC 0050 000678 | MVHI LOPTION(r13,188),
0007C2 E54C D0C8 0001 000679 | MVHI LOPTIONDECVALUE(r
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
0007C8 E54C D130 0004 000680 | MVHI LOPTIONVALUELEN(r
0007CE 4100 D0C8 000681 | LA r0,LOPTIONDECVALU
0007D2 5000 D134 000681 | ST r0,LOPTIONVALUEAD
0007D6 5810 7000 000683 | L r1,=A(IBMQJDSB)(,
0007DA 4120 6018 000683 | LA r2,_Dsc_000004(,r
0007DE 1846 000683 | LR r4,r6
0007E0 58F0 1008 000683 | L r15,&EPA_&WSA(,r1
0007E4 5800 100C 000683 | L r0,&EPA_&WSA(,r1,
0007E8 5000 C1F4 000683 | ST r0,_CEECAA_(,r12,
0007EC 4150 6C16 000683 | LA r5,+CONSTANT_AREA
0007F0 4110 D098 000683 | LA r1,#MX_TEMP11(,r1
0007F4 5050 D098 000683 | ST r5,#MX_TEMP11(,r1
0007F8 5040 D09C 000683 | ST r4,#MX_TEMP11(,r1
0007FC E54C D0A0 0000 000683 | MVHI #MX_TEMP11(r13,16
000802 5020 D0A4 000683 | ST r2,#MX_TEMP11(,r1
000806 E54C D0A8 0000 000683 | MVHI #MX_TEMP11(r13,16
00080C 0DEF 000683 | BASR r14,r15
00080E 5810 D160 000685 | L r1,#ENV:HTTP_SETU
000812 5820 D168 000685 | L r2,#SR_PARM_11(,r
000816 5820 2000 000685 | L r2,_addrINHANDLE(
00081A 4100 D140 000685 | LA r0,_temp9(,r13,32
00081E 4140 10D8 000685 | LA r4,LDIAGAREA(,r1,
000822 5040 D1DC 000685 | ST r4,#wtemp_38(,r13
000826 5020 D1E0 000685 | ST r2,#wtemp_39(,r13
00082A 4110 10BC 000685 | LA r1,LRC(,r1,188)
00082E 5010 D1E4 000685 | ST r1,#wtemp_40(,r13
000832 5000 D158 000685 | ST r0,344(,r13)
000836 C009 0001 0000 000685 | IILF r0,F'65536'
00083C 5000 D15C 000685 | ST r0,_temp11(,r13,3
000840 4100 D158 000685 | LA r0,_temp11(,r13,3
000844 5820 D1DC 000685 | L r2,#wtemp_38(,r13
000848 4140 D130 000685 | LA r4,LOPTIONVALUELE
00084C 4180 D134 000685 | LA r8,LOPTIONVALUEAD
000850 4190 D0BC 000685 | LA r9,LOPTION(,r13,1
000854 58A0 D1E0 000685 | L r10,#wtemp_39(,r1
000858 58B0 D1E4 000685 | L r11,#wtemp_40(,r1
00085C 5850 D160 000685 | L r5,#ENV:HTTP_SETU
000860 5810 D164 000685 | L r1,#CEECAACRENT_1
000864 5010 C1F4 000685 | ST r1,_CEECAA_(,r12,
000868 58F0 300E 000685 | L r15,=A(HTTP_SET)(
00086C 4110 D098 000685 | LA r1,#MX_TEMP11(,r1
000870 50B0 D098 000685 | ST r11,#MX_TEMP11(,r
000874 50A0 D09C 000685 | ST r10,#MX_TEMP11(,r
000878 5090 D0A0 000685 | ST r9,#MX_TEMP11(,r1
00087C 5080 D0A4 000685 | ST r8,#MX_TEMP11(,r1
000880 5040 D0A8 000685 | ST r4,#MX_TEMP11(,r1
000884 5020 D0AC 000685 | ST r2,#MX_TEMP11(,r1
000888 5000 D0B0 000685 | ST r0,#MX_TEMP11(,r1
00088C 0DEF 000685 | BASR r14,r15
00088E E300 D140 0094 000685 | LLC r0,_temp9(,r13,32
000894 C00B 0000 0080 000685 | NILF r0,F'128'
00089A C20F 0000 0000 000685 | CLFI r0,F'0'
0008A0 A774 000C 000685 | JNE @11L173
0008A4 000685 | @11L175 DS 0H
0008A4 5810 D168 000687 | L r1,#SR_PARM_11(,r
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
0008A8 5810 1004 000687 | L r1,_addrReturns_V
0008AC 5810 1000 000687 | L r1,_shadow6(,r1,0
0008B0 9200 1000 000687 | MVI _shadow2(r1,0),0
0008B4 A7F4 00C5 000687 | J @11L420
0008B8 000687 | @11L173 DS 0H
0008B8 000687 | @11L174 DS 0H
0008B8 4100 D0C0 000695 | LA r0,LOPTIONSLIST(,
0008BC 5000 D0C4 000695 | ST r0,LOPTIONSLISTAD
0008C0 5810 D168 000697 | L r1,#SR_PARM_11(,r
0008C4 5810 1000 000697 | L r1,_addrINHANDLE(
0008C8 4100 D140 000697 | LA r0,_temp9(,r13,32
0008CC 5010 D1E8 000697 | ST r1,#wtemp_41(,r13
0008D0 5000 D158 000697 | ST r0,344(,r13)
0008D4 C009 0001 0000 000697 | IILF r0,F'65536'
0008DA 5000 D15C 000697 | ST r0,_temp11(,r13,3
0008DE 4100 D158 000697 | LA r0,_temp11(,r13,3
0008E2 4120 D0C4 000697 | LA r2,LOPTIONSLISTAD
0008E6 5840 D1E8 000697 | L r4,#wtemp_41(,r13
0008EA 5850 D160 000697 | L r5,#ENV:HTTP_SETU
0008EE 5810 D164 000697 | L r1,#CEECAACRENT_1
0008F2 5010 C1F4 000697 | ST r1,_CEECAA_(,r12,
0008F6 58F0 3012 000697 | L r15,=A(BUILDSLIST
0008FA 4110 D098 000697 | LA r1,#MX_TEMP11(,r1
0008FE 5040 D098 000697 | ST r4,#MX_TEMP11(,r1
000902 5020 D09C 000697 | ST r2,#MX_TEMP11(,r1
000906 5000 D0A0 000697 | ST r0,#MX_TEMP11(,r1
00090A 0DEF 000697 | BASR r14,r15
00090C E300 D140 0094 000697 | LLC r0,_temp9(,r13,32
000912 C00B 0000 0080 000697 | NILF r0,F'128'
000918 C20F 0000 0000 000697 | CLFI r0,F'0'
00091E A784 007C 000697 | JE @11L176
000922 000697 | @11L178 DS 0H
000922 000698 | @11L153 DS 0H
000922 E54C D0BC 0049 000699 | MVHI LOPTION(r13,188),
000928 E54C D130 0004 000700 | MVHI LOPTIONVALUELEN(r
00092E 5810 7000 000702 | L r1,=A(IBMQJDSB)(,
000932 4120 6018 000702 | LA r2,_Dsc_000004(,r
000936 4140 60D8 000702 | LA r4,_Dsc_000028(,r
00093A 58F0 1008 000702 | L r15,&EPA_&WSA(,r1
00093E 5800 100C 000702 | L r0,&EPA_&WSA(,r1,
000942 5000 C1F4 000702 | ST r0,_CEECAA_(,r12,
000946 4150 6C48 000702 | LA r5,+CONSTANT_AREA
00094A 4110 D098 000702 | LA r1,#MX_TEMP11(,r1
00094E 5050 D098 000702 | ST r5,#MX_TEMP11(,r1
000952 5040 D09C 000702 | ST r4,#MX_TEMP11(,r1
000956 E54C D0A0 0000 000702 | MVHI #MX_TEMP11(r13,16
00095C 5020 D0A4 000702 | ST r2,#MX_TEMP11(,r1
000960 E54C D0A8 0000 000702 | MVHI #MX_TEMP11(r13,16
000966 0DEF 000702 | BASR r14,r15
000968 5810 D160 000704 | L r1,#ENV:HTTP_SETU
00096C 5820 D168 000704 | L r2,#SR_PARM_11(,r
000970 5820 2000 000704 | L r2,_addrINHANDLE(
000974 4100 D140 000704 | LA r0,_temp9(,r13,32
000978 4140 10D8 000704 | LA r4,LDIAGAREA(,r1,
00097C 5040 D1EC 000704 | ST r4,#wtemp_42(,r13
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
000980 5020 D1F0 000704 | ST r2,#wtemp_43(,r13
000984 4110 10BC 000704 | LA r1,LRC(,r1,188)
000988 5010 D1F4 000704 | ST r1,#wtemp_44(,r13
00098C 5000 D158 000704 | ST r0,344(,r13)
000990 C009 0001 0000 000704 | IILF r0,F'65536'
000996 5000 D15C 000704 | ST r0,_temp11(,r13,3
00099A 4100 D158 000704 | LA r0,_temp11(,r13,3
00099E 5820 D1EC 000704 | L r2,#wtemp_42(,r13
0009A2 4140 D130 000704 | LA r4,LOPTIONVALUELE
0009A6 4180 D0C4 000704 | LA r8,LOPTIONSLISTAD
0009AA 4190 D0BC 000704 | LA r9,LOPTION(,r13,1
0009AE 58A0 D1F0 000704 | L r10,#wtemp_43(,r1
0009B2 58B0 D1F4 000704 | L r11,#wtemp_44(,r1
0009B6 5850 D160 000704 | L r5,#ENV:HTTP_SETU
0009BA 5810 D164 000704 | L r1,#CEECAACRENT_1
0009BE 5010 C1F4 000704 | ST r1,_CEECAA_(,r12,
0009C2 58F0 300E 000704 | L r15,=A(HTTP_SET)(
0009C6 4110 D098 000704 | LA r1,#MX_TEMP11(,r1
0009CA 50B0 D098 000704 | ST r11,#MX_TEMP11(,r
0009CE 50A0 D09C 000704 | ST r10,#MX_TEMP11(,r
0009D2 5090 D0A0 000704 | ST r9,#MX_TEMP11(,r1
0009D6 5080 D0A4 000704 | ST r8,#MX_TEMP11(,r1
0009DA 5040 D0A8 000704 | ST r4,#MX_TEMP11(,r1
0009DE 5020 D0AC 000704 | ST r2,#MX_TEMP11(,r1
0009E2 5000 D0B0 000704 | ST r0,#MX_TEMP11(,r1
0009E6 0DEF 000704 | BASR r14,r15
0009E8 E300 D140 0094 000704 | LLC r0,_temp9(,r13,32
0009EE C00B 0000 0080 000704 | NILF r0,F'128'
0009F4 C20F 0000 0000 000704 | CLFI r0,F'0'
0009FA A774 000C 000704 | JNE @11L179
0009FE 000704 | @11L181 DS 0H
0009FE 5810 D168 000706 | L r1,#SR_PARM_11(,r
000A02 5810 1004 000706 | L r1,_addrReturns_V
000A06 5810 1000 000706 | L r1,_shadow6(,r1,0
000A0A 9200 1000 000706 | MVI _shadow2(r1,0),0
000A0E A7F4 0018 000706 | J @11L420
000A12 000706 | @11L179 DS 0H
000A12 000706 | @11L180 DS 0H
000A12 000707 | @11L154 DS 0H
000A12 A7F4 000C 000707 | J @11L177
000A16 000707 | @11L176 DS 0H
000A16 5810 D168 000709 | L r1,#SR_PARM_11(,r
000A1A 5810 1004 000709 | L r1,_addrReturns_V
000A1E 5810 1000 000709 | L r1,_shadow6(,r1,0
000A22 9200 1000 000709 | MVI _shadow2(r1,0),0
000A26 A7F4 000C 000709 | J @11L420
000A2A 000709 | @11L177 DS 0H
000A2A 5810 D168 000711 | L r1,#SR_PARM_11(,r
000A2E 5810 1004 000711 | L r1,_addrReturns_V
000A32 5810 1000 000711 | L r1,_shadow6(,r1,0
000A36 9280 1000 000711 | MVI _shadow2(r1,0),12
000A3A A7F4 0002 000711 | J @11L420
000A3E 000712 | @11L152 DS 0H
000A3E 000712 | @11L420 DS 0H
000A3E 5800 D164 000000 | L r0,#CEECAACRENT_1
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
000A42 5000 C1F4 000000 | ST r0,_CEECAA_(,r12,
000A46 Start of Epilog
000A46 58D0 D004 000712 | L r13,4(,r13)
000A4A 58E0 D00C 000712 | L r14,12(,r13)
000A4E 982B D01C 000712 | LM r2,r11,28(r13)
000A52 051E 000712 | BALR r1,r14
000A54 0707 000712 | NOPR 7
000A56 0000
000A58 Start of Literals
000A58 00000000 =Q(@STATIC)
000A5C 00000000 =Q(RESPHDREXITADD
000A60 00000000 =Q(RESPBDYEXITADD
000A64 00003368 =A(HTTP_SET)
000A68 00002410 =A(BUILDSLIST)
000A6C End of Literals
*** General purpose registers used: 111111111111111
*** Floating point registers used: 111111110000000
*** Size of register spill area: 512(max) 0(used)
*** Size of dynamic storage: 504
*** Size of executable code: 2646
*** CSECT Offset: 10048 : 0x2740
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
HTTP_CONNECT
000000 000512 | DS 0D
000000 47F0 F024 000512 | B 36(,r15)
000004 01C3C5C5 CEE eyecatcher
000008 00000120 DSA size
00000C 00004338 =A(PPA1-HTTP_CONN
000010 47F0 F001 000512 | B 1(,r15)
000014 58F0 C31C 000512 | L r15,796(,r12)
000018 184E 000512 | LR r4,r14
00001A 05EF 000512 | BALR r14,r15
00001C 00000000 =F'0'
000020 A7F4 000C 000512 | J *+24
000024 90E7 D00C 000512 | STM r14,r7,12(r13)
000028 58E0 D04C 000512 | L r14,76(,r13)
00002C 4100 E120 000512 | LA r0,288(,r14)
000030 5500 C314 000512 | CL r0,788(,r12)
000034 A724 FFF0 000512 | JH *-32
000038 58F0 C280 000512 | L r15,640(,r12)
00003C 90F0 E048 000512 | STM r15,r0,72(r14)
000040 9210 E000 000512 | MVI 0(r14),16
000044 50D0 E004 000512 | ST r13,4(,r14)
000048 18DE 000512 | LR r13,r14
00004A C030 0000 00AF 000512 | LARL r3,F'175'
000050 End of Prolog
000050 5800 C1F4 000000 | L r0,_CEECAA_(,r12,
000054 5000 D0F4 000000 | ST r0,#CEECAACRENT_1
000058 5800 D0F4 000000 | L r0,#CEECAACRENT_1
00005C 5820 3000 000000 | L r2,=Q(@STATIC)(,r
000060 1E02 000000 | ALR r0,r2
000062 1860 000000 | LR r6,r0
000064 C070 0000 18E2 000000 | LARL r7,F'6370'
00006A 5010 D0F0 000512 | ST r1,#SR_PARM_12(,r
00006E 5050 D0EC 000512 | ST r5,#ENV:HTTP_CONN
000072 5810 D0F0 000519 | L r1,#SR_PARM_12(,r
000076 5850 1000 000519 | L r5,_addrCONNRC(,r
00007A 5840 1004 000519 | L r4,_addrINHANDLE(
00007E 5820 1008 000519 | L r2,_addrINDIAGARE
000082 5810 6010 000519 | L r1,=A(HWTHCONN)(,
000086 A52A 8000 000519 | OILH r2,H'-32768'
00008A 58F0 1008 000519 | L r15,&EPA_&WSA(,r1
00008E 5800 100C 000519 | L r0,&EPA_&WSA(,r1,
000092 5000 C1F4 000519 | ST r0,_CEECAA_(,r12,
000096 4110 D098 000519 | LA r1,#MX_TEMP12(,r1
00009A 5050 D098 000519 | ST r5,#MX_TEMP12(,r1
00009E 5040 D09C 000519 | ST r4,#MX_TEMP12(,r1
0000A2 5020 D0A0 000519 | ST r2,#MX_TEMP12(,r1
0000A6 0DEF 000519 | BASR r14,r15
0000A8 5810 D0F0 000521 | L r1,#SR_PARM_12(,r
0000AC 5810 1000 000521 | L r1,_addrCONNRC(,r
0000B0 5800 1000 000521 | L r0,_shadow4(,r1,0
0000B4 1200 000521 | LTR r0,r0
0000B6 A774 0021 000521 | JNE @12L186
0000BA 000521 | @12L188 DS 0H
0000BA 5810 6000 000522 | L r1,=A(IBMQJDSB)(,
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
0000BE 4120 7018 000522 | LA r2,_Dsc_000004(,r
0000C2 4140 70C0 000522 | LA r4,_Dsc_000025(,r
0000C6 58F0 1008 000522 | L r15,&EPA_&WSA(,r1
0000CA 5800 100C 000522 | L r0,&EPA_&WSA(,r1,
0000CE 5000 C1F4 000522 | ST r0,_CEECAA_(,r12,
0000D2 4150 7C72 000522 | LA r5,+CONSTANT_AREA
0000D6 4110 D098 000522 | LA r1,#MX_TEMP12(,r1
0000DA 5050 D098 000522 | ST r5,#MX_TEMP12(,r1
0000DE 5040 D09C 000522 | ST r4,#MX_TEMP12(,r1
0000E2 E54C D0A0 0000 000522 | MVHI #MX_TEMP12(r13,16
0000E8 5020 D0A4 000522 | ST r2,#MX_TEMP12(,r1
0000EC E54C D0A8 0000 000522 | MVHI #MX_TEMP12(r13,16
0000F2 0DEF 000522 | BASR r14,r15
0000F4 A7F4 0044 000522 | J @12L187
0000F8 000522 | @12L186 DS 0H
0000F8 000524 | @12L184 DS 0H
0000F8 5810 D0F4 000525 | L r1,#CEECAACRENT_1
0000FC 5800 3004 000525 | L r0,=Q(ERRORMESSAG
000100 B9FA 1010 000525 | ALRK r1,r0,r1
000104 D22C D0B0 7190 000525 | MVC _temp8(45,r13,176
00010A 5820 D0F0 000525 | L r2,#SR_PARM_12(,r
00010E 5820 2004 000525 | L r2,_addrINHANDLE(
000112 D20B D0DD 2000 000525 | MVC _temp8(12,r13,221
000118 D238 1000 D0B0 000525 | MVC ERRORMESSAGE(57,r
00011E 5810 D0F4 000525 | L r1,#CEECAACRENT_1
000122 B9FA 1010 000525 | ALRK r1,r0,r1
000126 4110 1039 000525 | LA r1,ERRORMESSAGE(,
00012A 5010 D108 000525 | ST r1,#STRTEMP12(,r1
00012E 9240 1000 000525 | MVI ERRORMESSAGE(r1,0
000132 D28D 1001 1000 000525 | MVC ERRORMESSAGE(142,
000138 5810 D0F0 000527 | L r1,#SR_PARM_12(,r
00013C 5840 1000 000527 | L r4,_addrCONNRC(,r
000140 5820 1008 000527 | L r2,_addrINDIAGARE
000144 5810 D0F4 000527 | L r1,#CEECAACRENT_1
000148 1E01 000527 | ALR r0,r1
00014A 5850 D0EC 000527 | L r5,#ENV:HTTP_CONN
00014E 5010 C1F4 000527 | ST r1,_CEECAA_(,r12,
000152 58F0 3008 000527 | L r15,=A(DISPLAY_ER
000156 4110 D098 000527 | LA r1,#MX_TEMP12(,r1
00015A 5040 D098 000527 | ST r4,#MX_TEMP12(,r1
00015E 5020 D09C 000527 | ST r2,#MX_TEMP12(,r1
000162 5000 D0A0 000527 | ST r0,#MX_TEMP12(,r1
000166 0DEF 000527 | BASR r14,r15
000168 5810 D0F0 000528 | L r1,#SR_PARM_12(,r
00016C 5810 100C 000528 | L r1,_addrReturns_V
000170 5810 1000 000528 | L r1,_shadow6(,r1,0
000174 9200 1000 000528 | MVI _shadow2(r1,0),0
000178 A7F4 000C 000528 | J @12L419
00017C 000529 | @12L185 DS 0H
00017C 000529 | @12L187 DS 0H
00017C 5810 D0F0 000531 | L r1,#SR_PARM_12(,r
000180 5810 100C 000531 | L r1,_addrReturns_V
000184 5810 1000 000531 | L r1,_shadow6(,r1,0
000188 9280 1000 000531 | MVI _shadow2(r1,0),12
00018C A7F4 0002 000531 | J @12L419
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
000190 000532 | @12L183 DS 0H
000190 000532 | @12L419 DS 0H
000190 5800 D0F4 000000 | L r0,#CEECAACRENT_1
000194 5000 C1F4 000000 | ST r0,_CEECAA_(,r12,
000198 Start of Epilog
000198 58D0 D004 000532 | L r13,4(,r13)
00019C 58E0 D00C 000532 | L r14,12(,r13)
0001A0 9827 D01C 000532 | LM r2,r7,28(r13)
0001A4 051E 000532 | BALR r1,r14
0001A6 0707 000532 | NOPR 7
0001A8 Start of Literals
0001A8 00000000 =Q(@STATIC)
0001AC 00000000 =Q(ERRORMESSAGE)
0001B0 000013F0 =A(DISPLAY_ERROR)
0001B4 End of Literals
*** General purpose registers used: 111111110000111
*** Floating point registers used: 111111110000000
*** Size of register spill area: 512(max) 0(used)
*** Size of dynamic storage: 288
*** Size of executable code: 424
*** CSECT Offset: 12720 : 0x31B0
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
000000 000479 | HTTP_SET DS 0D
000000 47F0 F024 000479 | B 36(,r15)
000004 01C3C5C5 CEE eyecatcher
000008 00000110 DSA size
00000C 000041C8 =A(PPA1-HTTP_SET)
000010 47F0 F001 000479 | B 1(,r15)
000014 58F0 C31C 000479 | L r15,796(,r12)
000018 184E 000479 | LR r4,r14
00001A 05EF 000479 | BALR r14,r15
00001C 00000000 =F'0'
000020 A7F4 000C 000479 | J *+24
000024 90EA D00C 000479 | STM r14,r10,12(r13)
000028 58E0 D04C 000479 | L r14,76(,r13)
00002C 4100 E110 000479 | LA r0,272(,r14)
000030 5500 C314 000479 | CL r0,788(,r12)
000034 A724 FFF0 000479 | JH *-32
000038 58F0 C280 000479 | L r15,640(,r12)
00003C 90F0 E048 000479 | STM r15,r0,72(r14)
000040 9210 E000 000479 | MVI 0(r14),16
000044 50D0 E004 000479 | ST r13,4(,r14)
000048 18DE 000479 | LR r13,r14
00004A C030 0000 00BB 000479 | LARL r3,F'187'
000050 End of Prolog
000050 5800 C1F4 000000 | L r0,_CEECAA_(,r12,
000054 5000 D0E4 000000 | ST r0,#CEECAACRENT_1
000058 5800 D0E4 000000 | L r0,#CEECAACRENT_1
00005C 5820 3000 000000 | L r2,=Q(@STATIC)(,r
000060 1E02 000000 | ALR r0,r2
000062 1860 000000 | LR r6,r0
000064 C070 0000 1806 000000 | LARL r7,F'6150'
00006A 5010 D0E0 000479 | ST r1,#SR_PARM_13(,r
00006E 5050 D0DC 000479 | ST r5,#ENV:HTTP_SET(
000072 5810 D0E0 000490 | L r1,#SR_PARM_13(,r
000076 58A0 1000 000490 | L r10,_addrSETRC(,r
00007A 5890 1004 000490 | L r9,_addrINHANDLE(
00007E 5880 1008 000490 | L r8,_addrINOPTION(
000082 5850 100C 000490 | L r5,_addrINOPTIONV
000086 5840 1010 000490 | L r4,_addrINOPTIONV
00008A 5820 1014 000490 | L r2,_addrINDIAGARE
00008E 5810 600C 000490 | L r1,=A(HWTHSET)(,r
000092 A52A 8000 000490 | OILH r2,H'-32768'
000096 58F0 1008 000490 | L r15,&EPA_&WSA(,r1
00009A 5800 100C 000490 | L r0,&EPA_&WSA(,r1,
00009E 5000 C1F4 000490 | ST r0,_CEECAA_(,r12,
0000A2 4110 D098 000490 | LA r1,#MX_TEMP13(,r1
0000A6 50A0 D098 000490 | ST r10,#MX_TEMP13(,r
0000AA 5090 D09C 000490 | ST r9,#MX_TEMP13(,r1
0000AE 5080 D0A0 000490 | ST r8,#MX_TEMP13(,r1
0000B2 5050 D0A4 000490 | ST r5,#MX_TEMP13(,r1
0000B6 5040 D0A8 000490 | ST r4,#MX_TEMP13(,r1
0000BA 5020 D0AC 000490 | ST r2,#MX_TEMP13(,r1
0000BE 0DEF 000490 | BASR r14,r15
0000C0 5810 D0E0 000493 | L r1,#SR_PARM_13(,r
0000C4 5810 1000 000493 | L r1,_addrSETRC(,r1
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
0000C8 5800 1000 000493 | L r0,_shadow4(,r1,0
0000CC 1200 000493 | LTR r0,r0
0000CE A774 0021 000493 | JNE @13L193
0000D2 000493 | @13L195 DS 0H
0000D2 5810 6000 000494 | L r1,=A(IBMQJDSB)(,
0000D6 4120 7018 000494 | LA r2,_Dsc_000004(,r
0000DA 4140 7090 000494 | LA r4,_Dsc_000019(,r
0000DE 58F0 1008 000494 | L r15,&EPA_&WSA(,r1
0000E2 5800 100C 000494 | L r0,&EPA_&WSA(,r1,
0000E6 5000 C1F4 000494 | ST r0,_CEECAA_(,r12,
0000EA 4150 7C98 000494 | LA r5,+CONSTANT_AREA
0000EE 4110 D098 000494 | LA r1,#MX_TEMP13(,r1
0000F2 5050 D098 000494 | ST r5,#MX_TEMP13(,r1
0000F6 5040 D09C 000494 | ST r4,#MX_TEMP13(,r1
0000FA E54C D0A0 0000 000494 | MVHI #MX_TEMP13(r13,16
000100 5020 D0A4 000494 | ST r2,#MX_TEMP13(,r1
000104 E54C D0A8 0000 000494 | MVHI #MX_TEMP13(r13,16
00010A 0DEF 000494 | BASR r14,r15
00010C A7F4 0044 000494 | J @13L194
000110 000494 | @13L193 DS 0H
000110 000496 | @13L191 DS 0H
000110 5810 D0E4 000497 | L r1,#CEECAACRENT_1
000114 5800 3004 000497 | L r0,=Q(ERRORMESSAG
000118 B9FA 1010 000497 | ALRK r1,r0,r1
00011C D21D D0B0 7170 000497 | MVC _temp7(30,r13,176
000122 5820 D0E0 000497 | L r2,#SR_PARM_13(,r
000126 5820 2004 000497 | L r2,_addrINHANDLE(
00012A D20B D0CE 2000 000497 | MVC _temp7(12,r13,206
000130 D229 1000 D0B0 000497 | MVC ERRORMESSAGE(42,r
000136 5810 D0E4 000497 | L r1,#CEECAACRENT_1
00013A B9FA 1010 000497 | ALRK r1,r0,r1
00013E 4110 102A 000497 | LA r1,ERRORMESSAGE(,
000142 5010 D0F8 000497 | ST r1,#STRTEMP13(,r1
000146 9240 1000 000497 | MVI ERRORMESSAGE(r1,0
00014A D29C 1001 1000 000497 | MVC ERRORMESSAGE(157,
000150 5810 D0E0 000499 | L r1,#SR_PARM_13(,r
000154 5840 1000 000499 | L r4,_addrSETRC(,r1
000158 5820 1014 000499 | L r2,_addrINDIAGARE
00015C 5810 D0E4 000499 | L r1,#CEECAACRENT_1
000160 1E01 000499 | ALR r0,r1
000162 5850 D0DC 000499 | L r5,#ENV:HTTP_SET(
000166 5010 C1F4 000499 | ST r1,_CEECAA_(,r12,
00016A 58F0 3008 000499 | L r15,=A(DISPLAY_ER
00016E 4110 D098 000499 | LA r1,#MX_TEMP13(,r1
000172 5040 D098 000499 | ST r4,#MX_TEMP13(,r1
000176 5020 D09C 000499 | ST r2,#MX_TEMP13(,r1
00017A 5000 D0A0 000499 | ST r0,#MX_TEMP13(,r1
00017E 0DEF 000499 | BASR r14,r15
000180 5810 D0E0 000500 | L r1,#SR_PARM_13(,r
000184 5810 1018 000500 | L r1,_addrReturns_V
000188 5810 1000 000500 | L r1,_shadow6(,r1,0
00018C 9200 1000 000500 | MVI _shadow2(r1,0),0
000190 A7F4 000C 000500 | J @13L418
000194 000501 | @13L192 DS 0H
000194 000501 | @13L194 DS 0H
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
000194 5810 D0E0 000503 | L r1,#SR_PARM_13(,r
000198 5810 1018 000503 | L r1,_addrReturns_V
00019C 5810 1000 000503 | L r1,_shadow6(,r1,0
0001A0 9280 1000 000503 | MVI _shadow2(r1,0),12
0001A4 A7F4 0002 000503 | J @13L418
0001A8 000504 | @13L190 DS 0H
0001A8 000504 | @13L418 DS 0H
0001A8 5800 D0E4 000000 | L r0,#CEECAACRENT_1
0001AC 5000 C1F4 000000 | ST r0,_CEECAA_(,r12,
0001B0 Start of Epilog
0001B0 58D0 D004 000504 | L r13,4(,r13)
0001B4 58E0 D00C 000504 | L r14,12(,r13)
0001B8 982A D01C 000504 | LM r2,r10,28(r13)
0001BC 051E 000504 | BALR r1,r14
0001BE 0707 000504 | NOPR 7
0001C0 Start of Literals
0001C0 00000000 =Q(@STATIC)
0001C4 00000000 =Q(ERRORMESSAGE)
0001C8 000013F0 =A(DISPLAY_ERROR)
0001CC End of Literals
*** General purpose registers used: 111111111110111
*** Floating point registers used: 111111110000000
*** Size of register spill area: 512(max) 0(used)
*** Size of dynamic storage: 272
*** Size of executable code: 448
*** CSECT Offset: 13160 : 0x3368
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
HTTP_SETUPCONNECTION
000000 000400 | DS 0D
000000 47F0 F024 000400 | B 36(,r15)
000004 01C3C5C5 CEE eyecatcher
000008 00000140 DSA size
00000C 00004040 =A(PPA1-HTTP_SETU
000010 47F0 F001 000400 | B 1(,r15)
000014 58F0 C31C 000400 | L r15,796(,r12)
000018 184E 000400 | LR r4,r14
00001A 05EF 000400 | BALR r14,r15
00001C 00000000 =F'0'
000020 A7F4 000C 000400 | J *+24
000024 90EB D00C 000400 | STM r14,r11,12(r13)
000028 58E0 D04C 000400 | L r14,76(,r13)
00002C 4100 E140 000400 | LA r0,320(,r14)
000030 5500 C314 000400 | CL r0,788(,r12)
000034 A724 FFF0 000400 | JH *-32
000038 58F0 C280 000400 | L r15,640(,r12)
00003C 90F0 E048 000400 | STM r15,r0,72(r14)
000040 9210 E000 000400 | MVI 0(r14),16
000044 50D0 E004 000400 | ST r13,4(,r14)
000048 18DE 000400 | LR r13,r14
00004A C030 0000 01B0 000400 | LARL r3,F'432'
000050 End of Prolog
000050 5800 C1F4 000000 | L r0,_CEECAA_(,r12,
000054 5000 D138 000000 | ST r0,#CEECAACRENT_1
000058 5800 D138 000000 | L r0,#CEECAACRENT_1
00005C 5820 3002 000000 | L r2,=Q(@STATIC)(,r
000060 1E02 000000 | ALR r0,r2
000062 1870 000000 | LR r7,r0
000064 C060 0000 171E 000000 | LARL r6,F'5918'
00006A 5010 D0F4 000400 | ST r1,#SR_PARM_14(,r
00006E 5050 D0F0 000400 | ST r5,#ENV:HTTP_SETU
000072 E54C D0B8 0029 000420 | MVHI LOPTION(r13,184),
000078 E54C D0BC 0001 000421 | MVHI LOPTIONDECVALUE(r
00007E 4100 D0BC 000422 | LA r0,LOPTIONDECVALU
000082 5000 D0DC 000422 | ST r0,LOPTIONVALUEAD
000086 E54C D0D8 0004 000423 | MVHI LOPTIONVALUELEN(r
00008C 5810 7000 000425 | L r1,=A(IBMQJDSB)(,
000090 4120 6018 000425 | LA r2,_Dsc_000004(,r
000094 4140 60F0 000425 | LA r4,_Dsc_000031(,r
000098 58F0 1008 000425 | L r15,&EPA_&WSA(,r1
00009C 5800 100C 000425 | L r0,&EPA_&WSA(,r1,
0000A0 5000 C1F4 000425 | ST r0,_CEECAA_(,r12,
0000A4 4150 6CBA 000425 | LA r5,+CONSTANT_AREA
0000A8 4110 D098 000425 | LA r1,#MX_TEMP14(,r1
0000AC 5050 D098 000425 | ST r5,#MX_TEMP14(,r1
0000B0 5040 D09C 000425 | ST r4,#MX_TEMP14(,r1
0000B4 E54C D0A0 0000 000425 | MVHI #MX_TEMP14(r13,16
0000BA 5020 D0A4 000425 | ST r2,#MX_TEMP14(,r1
0000BE E54C D0A8 0000 000425 | MVHI #MX_TEMP14(r13,16
0000C4 0DEF 000425 | BASR r14,r15
0000C6 5810 D0F0 000427 | L r1,#ENV:HTTP_SETU
0000CA 5820 D0F4 000427 | L r2,#SR_PARM_14(,r
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
0000CE 5820 2000 000427 | L r2,_addrINHANDLE(
0000D2 4100 D0E0 000427 | LA r0,_temp5(,r13,22
0000D6 4140 10D8 000427 | LA r4,LDIAGAREA(,r1,
0000DA 5040 D0F8 000427 | ST r4,#wtemp_4(,r13,
0000DE 5020 D0FC 000427 | ST r2,#wtemp_5(,r13,
0000E2 4110 10BC 000427 | LA r1,LRC(,r1,188)
0000E6 5010 D100 000427 | ST r1,#wtemp_6(,r13,
0000EA 5000 D0E8 000427 | ST r0,232(,r13)
0000EE C009 0001 0000 000427 | IILF r0,F'65536'
0000F4 5000 D0EC 000427 | ST r0,_temp6(,r13,23
0000F8 4100 D0E8 000427 | LA r0,_temp6(,r13,23
0000FC 5820 D0F8 000427 | L r2,#wtemp_4(,r13,
000100 4140 D0D8 000427 | LA r4,LOPTIONVALUELE
000104 4180 D0DC 000427 | LA r8,LOPTIONVALUEAD
000108 4190 D0B8 000427 | LA r9,LOPTION(,r13,1
00010C 58A0 D0FC 000427 | L r10,#wtemp_5(,r13
000110 58B0 D100 000427 | L r11,#wtemp_6(,r13
000114 5850 D0F0 000427 | L r5,#ENV:HTTP_SETU
000118 5810 D138 000427 | L r1,#CEECAACRENT_1
00011C 5010 C1F4 000427 | ST r1,_CEECAA_(,r12,
000120 58F0 3006 000427 | L r15,=A(HTTP_SET)(
000124 4110 D098 000427 | LA r1,#MX_TEMP14(,r1
000128 50B0 D098 000427 | ST r11,#MX_TEMP14(,r
00012C 50A0 D09C 000427 | ST r10,#MX_TEMP14(,r
000130 5090 D0A0 000427 | ST r9,#MX_TEMP14(,r1
000134 5080 D0A4 000427 | ST r8,#MX_TEMP14(,r1
000138 5040 D0A8 000427 | ST r4,#MX_TEMP14(,r1
00013C 5020 D0AC 000427 | ST r2,#MX_TEMP14(,r1
000140 5000 D0B0 000427 | ST r0,#MX_TEMP14(,r1
000144 0DEF 000427 | BASR r14,r15
000146 E300 D0E0 0094 000427 | LLC r0,_temp5(,r13,22
00014C C00B 0000 0080 000427 | NILF r0,F'128'
000152 C20F 0000 0000 000427 | CLFI r0,F'0'
000158 A774 000C 000427 | JNE @14L198
00015C 000427 | @14L200 DS 0H
00015C 5810 D0F4 000429 | L r1,#SR_PARM_14(,r
000160 5810 1004 000429 | L r1,_addrReturns_V
000164 5810 1000 000429 | L r1,_shadow6(,r1,0
000168 9200 1000 000429 | MVI _shadow2(r1,0),0
00016C A7F4 0113 000429 | J @14L417
000170 000429 | @14L198 DS 0H
000170 000429 | @14L199 DS 0H
000170 E54C D0B8 0001 000435 | MVHI LOPTION(r13,184),
000176 4110 D0C0 000436 | LA r1,LOPTIONVALUE(,
00017A 5010 D10C 000436 | ST r1,#STRTEMP14(,r1
00017E 9240 1000 000436 | MVI LOPTIONVALUE(r1,0
000182 D215 1001 1000 000436 | MVC LOPTIONVALUE(22,r
000188 D216 D0C0 6158 000437 | MVC LOPTIONVALUE(23,r
00018E 4100 D0C0 000438 | LA r0,LOPTIONVALUE(,
000192 5000 D0DC 000438 | ST r0,LOPTIONVALUEAD
000196 E54C D0D8 0017 000445 | MVHI LOPTIONVALUELEN(r
00019C 5810 7000 000447 | L r1,=A(IBMQJDSB)(,
0001A0 4120 6018 000447 | LA r2,_Dsc_000004(,r
0001A4 4140 6100 000447 | LA r4,_Dsc_000033(,r
0001A8 58F0 1008 000447 | L r15,&EPA_&WSA(,r1
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
0001AC 5800 100C 000447 | L r0,&EPA_&WSA(,r1,
0001B0 5000 C1F4 000447 | ST r0,_CEECAA_(,r12,
0001B4 4150 6CE8 000447 | LA r5,+CONSTANT_AREA
0001B8 4110 D098 000447 | LA r1,#MX_TEMP14(,r1
0001BC 5050 D098 000447 | ST r5,#MX_TEMP14(,r1
0001C0 5040 D09C 000447 | ST r4,#MX_TEMP14(,r1
0001C4 E54C D0A0 0000 000447 | MVHI #MX_TEMP14(r13,16
0001CA 5020 D0A4 000447 | ST r2,#MX_TEMP14(,r1
0001CE E54C D0A8 0000 000447 | MVHI #MX_TEMP14(r13,16
0001D4 0DEF 000447 | BASR r14,r15
0001D6 5810 D0F0 000449 | L r1,#ENV:HTTP_SETU
0001DA 5820 D0F4 000449 | L r2,#SR_PARM_14(,r
0001DE 5820 2000 000449 | L r2,_addrINHANDLE(
0001E2 4100 D0E0 000449 | LA r0,_temp5(,r13,22
0001E6 4140 10D8 000449 | LA r4,LDIAGAREA(,r1,
0001EA 5040 D120 000449 | ST r4,#wtemp_7(,r13,
0001EE 5020 D124 000449 | ST r2,#wtemp_8(,r13,
0001F2 4110 10BC 000449 | LA r1,LRC(,r1,188)
0001F6 5010 D128 000449 | ST r1,#wtemp_9(,r13,
0001FA 5000 D0E8 000449 | ST r0,232(,r13)
0001FE C009 0001 0000 000449 | IILF r0,F'65536'
000204 5000 D0EC 000449 | ST r0,_temp6(,r13,23
000208 4100 D0E8 000449 | LA r0,_temp6(,r13,23
00020C 5820 D120 000449 | L r2,#wtemp_7(,r13,
000210 4140 D0D8 000449 | LA r4,LOPTIONVALUELE
000214 4180 D0DC 000449 | LA r8,LOPTIONVALUEAD
000218 4190 D0B8 000449 | LA r9,LOPTION(,r13,1
00021C 58A0 D124 000449 | L r10,#wtemp_8(,r13
000220 58B0 D128 000449 | L r11,#wtemp_9(,r13
000224 5850 D0F0 000449 | L r5,#ENV:HTTP_SETU
000228 5810 D138 000449 | L r1,#CEECAACRENT_1
00022C 5010 C1F4 000449 | ST r1,_CEECAA_(,r12,
000230 58F0 3006 000449 | L r15,=A(HTTP_SET)(
000234 4110 D098 000449 | LA r1,#MX_TEMP14(,r1
000238 50B0 D098 000449 | ST r11,#MX_TEMP14(,r
00023C 50A0 D09C 000449 | ST r10,#MX_TEMP14(,r
000240 5090 D0A0 000449 | ST r9,#MX_TEMP14(,r1
000244 5080 D0A4 000449 | ST r8,#MX_TEMP14(,r1
000248 5040 D0A8 000449 | ST r4,#MX_TEMP14(,r1
00024C 5020 D0AC 000449 | ST r2,#MX_TEMP14(,r1
000250 5000 D0B0 000449 | ST r0,#MX_TEMP14(,r1
000254 0DEF 000449 | BASR r14,r15
000256 E300 D0E0 0094 000449 | LLC r0,_temp5(,r13,22
00025C C00B 0000 0080 000449 | NILF r0,F'128'
000262 C20F 0000 0000 000449 | CLFI r0,F'0'
000268 A774 000C 000449 | JNE @14L201
00026C 000449 | @14L203 DS 0H
00026C 5810 D0F4 000451 | L r1,#SR_PARM_14(,r
000270 5810 1004 000451 | L r1,_addrReturns_V
000274 5810 1000 000451 | L r1,_shadow6(,r1,0
000278 9200 1000 000451 | MVI _shadow2(r1,0),0
00027C A7F4 008B 000451 | J @14L417
000280 000451 | @14L201 DS 0H
000280 000451 | @14L202 DS 0H
000280 E54C D0B8 0026 000459 | MVHI LOPTION(r13,184),
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
000286 E54C D0BC 0001 000460 | MVHI LOPTIONDECVALUE(r
00028C 4100 D0BC 000461 | LA r0,LOPTIONDECVALU
000290 5000 D0DC 000461 | ST r0,LOPTIONVALUEAD
000294 E54C D0D8 0004 000462 | MVHI LOPTIONVALUELEN(r
00029A 5810 7000 000464 | L r1,=A(IBMQJDSB)(,
00029E 4120 6018 000464 | LA r2,_Dsc_000004(,r
0002A2 4140 60F0 000464 | LA r4,_Dsc_000031(,r
0002A6 58F0 1008 000464 | L r15,&EPA_&WSA(,r1
0002AA 5800 100C 000464 | L r0,&EPA_&WSA(,r1,
0002AE 5000 C1F4 000464 | ST r0,_CEECAA_(,r12,
0002B2 4150 6D18 000464 | LA r5,+CONSTANT_AREA
0002B6 4110 D098 000464 | LA r1,#MX_TEMP14(,r1
0002BA 5050 D098 000464 | ST r5,#MX_TEMP14(,r1
0002BE 5040 D09C 000464 | ST r4,#MX_TEMP14(,r1
0002C2 E54C D0A0 0000 000464 | MVHI #MX_TEMP14(r13,16
0002C8 5020 D0A4 000464 | ST r2,#MX_TEMP14(,r1
0002CC E54C D0A8 0000 000464 | MVHI #MX_TEMP14(r13,16
0002D2 0DEF 000464 | BASR r14,r15
0002D4 5810 D0F0 000466 | L r1,#ENV:HTTP_SETU
0002D8 5820 D0F4 000466 | L r2,#SR_PARM_14(,r
0002DC 5820 2000 000466 | L r2,_addrINHANDLE(
0002E0 4100 D0E0 000466 | LA r0,_temp5(,r13,22
0002E4 4140 10D8 000466 | LA r4,LDIAGAREA(,r1,
0002E8 5040 D12C 000466 | ST r4,#wtemp_10(,r13
0002EC 5020 D130 000466 | ST r2,#wtemp_11(,r13
0002F0 4110 10BC 000466 | LA r1,LRC(,r1,188)
0002F4 5010 D134 000466 | ST r1,#wtemp_12(,r13
0002F8 5000 D0E8 000466 | ST r0,232(,r13)
0002FC C009 0001 0000 000466 | IILF r0,F'65536'
000302 5000 D0EC 000466 | ST r0,_temp6(,r13,23
000306 4100 D0E8 000466 | LA r0,_temp6(,r13,23
00030A 5820 D12C 000466 | L r2,#wtemp_10(,r13
00030E 4140 D0D8 000466 | LA r4,LOPTIONVALUELE
000312 4180 D0DC 000466 | LA r8,LOPTIONVALUEAD
000316 4190 D0B8 000466 | LA r9,LOPTION(,r13,1
00031A 58A0 D130 000466 | L r10,#wtemp_11(,r1
00031E 58B0 D134 000466 | L r11,#wtemp_12(,r1
000322 5850 D0F0 000466 | L r5,#ENV:HTTP_SETU
000326 5810 D138 000466 | L r1,#CEECAACRENT_1
00032A 5010 C1F4 000466 | ST r1,_CEECAA_(,r12,
00032E 58F0 3006 000466 | L r15,=A(HTTP_SET)(
000332 4110 D098 000466 | LA r1,#MX_TEMP14(,r1
000336 50B0 D098 000466 | ST r11,#MX_TEMP14(,r
00033A 50A0 D09C 000466 | ST r10,#MX_TEMP14(,r
00033E 5090 D0A0 000466 | ST r9,#MX_TEMP14(,r1
000342 5080 D0A4 000466 | ST r8,#MX_TEMP14(,r1
000346 5040 D0A8 000466 | ST r4,#MX_TEMP14(,r1
00034A 5020 D0AC 000466 | ST r2,#MX_TEMP14(,r1
00034E 5000 D0B0 000466 | ST r0,#MX_TEMP14(,r1
000352 0DEF 000466 | BASR r14,r15
000354 E300 D0E0 0094 000466 | LLC r0,_temp5(,r13,22
00035A C00B 0000 0080 000466 | NILF r0,F'128'
000360 C20F 0000 0000 000466 | CLFI r0,F'0'
000366 A774 000C 000466 | JNE @14L204
00036A 000466 | @14L206 DS 0H
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
00036A 5810 D0F4 000468 | L r1,#SR_PARM_14(,r
00036E 5810 1004 000468 | L r1,_addrReturns_V
000372 5810 1000 000468 | L r1,_shadow6(,r1,0
000376 9200 1000 000468 | MVI _shadow2(r1,0),0
00037A A7F4 000C 000468 | J @14L417
00037E 000468 | @14L204 DS 0H
00037E 000468 | @14L205 DS 0H
00037E 5810 D0F4 000470 | L r1,#SR_PARM_14(,r
000382 5810 1004 000470 | L r1,_addrReturns_V
000386 5810 1000 000470 | L r1,_shadow6(,r1,0
00038A 9280 1000 000470 | MVI _shadow2(r1,0),12
00038E A7F4 0002 000470 | J @14L417
000392 000472 | @14L197 DS 0H
000392 000472 | @14L417 DS 0H
000392 5800 D138 000000 | L r0,#CEECAACRENT_1
000396 5000 C1F4 000000 | ST r0,_CEECAA_(,r12,
00039A Start of Epilog
00039A 58D0 D004 000472 | L r13,4(,r13)
00039E 58E0 D00C 000472 | L r14,12(,r13)
0003A2 982B D01C 000472 | LM r2,r11,28(r13)
0003A6 051E 000472 | BALR r1,r14
0003A8 0707 000472 | NOPR 7
0003AA 0000
0003AC Start of Literals
0003AC 00000000 =Q(@STATIC)
0003B0 00003368 =A(HTTP_SET)
0003B4 End of Literals
*** General purpose registers used: 111111111111111
*** Floating point registers used: 111111110000000
*** Size of register spill area: 512(max) 0(used)
*** Size of dynamic storage: 320
*** Size of executable code: 938
*** CSECT Offset: 13624 : 0x3538
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
HTTP_INIT
000000 000362 | DS 0D
000000 47F0 F024 000362 | B 36(,r15)
000004 01C3C5C5 CEE eyecatcher
000008 00000120 DSA size
00000C 00003CD8 =A(PPA1-HTTP_INIT
000010 47F0 F001 000362 | B 1(,r15)
000014 58F0 C31C 000362 | L r15,796(,r12)
000018 184E 000362 | LR r4,r14
00001A 05EF 000362 | BALR r14,r15
00001C 00000000 =F'0'
000020 A7F4 000C 000362 | J *+24
000024 90E8 D00C 000362 | STM r14,r8,12(r13)
000028 58E0 D04C 000362 | L r14,76(,r13)
00002C 4100 E120 000362 | LA r0,288(,r14)
000030 5500 C314 000362 | CL r0,788(,r12)
000034 A724 FFF0 000362 | JH *-32
000038 58F0 C280 000362 | L r15,640(,r12)
00003C 90F0 E048 000362 | STM r15,r0,72(r14)
000040 9210 E000 000362 | MVI 0(r14),16
000044 50D0 E004 000362 | ST r13,4(,r14)
000048 18DE 000362 | LR r13,r14
00004A C030 0000 00CE 000362 | LARL r3,F'206'
000050 End of Prolog
000050 5800 C1F4 000000 | L r0,_CEECAA_(,r12,
000054 5000 D0FC 000000 | ST r0,#CEECAACRENT_1
000058 5800 D0FC 000000 | L r0,#CEECAACRENT_1
00005C 5820 3002 000000 | L r2,=Q(@STATIC)(,r
000060 1E02 000000 | ALR r0,r2
000062 1870 000000 | LR r7,r0
000064 C060 0000 1542 000000 | LARL r6,F'5442'
00006A 5010 D0F0 000362 | ST r1,#SR_PARM_15(,r
00006E 5050 D0EC 000362 | ST r5,#ENV:HTTP_INIT
000072 5810 D0F0 000371 | L r1,#SR_PARM_15(,r
000076 5810 1004 000371 | L r1,_addrINITHANDL
00007A 5800 1000 000371 | L r0,_shadow3(,r1,0
00007E C20F 0000 0001 000371 | CLFI r0,F'1'
000084 A774 0007 000371 | JNE @15L213
000088 000371 | @15L215 DS 0H
000088 D209 D0B0 6108 000372 | MVC CHARHANDLETYPE(10
00008E A7F4 0005 000372 | J @15L214
000092 000372 | @15L213 DS 0H
000092 D209 D0B0 6114 000374 | MVC CHARHANDLETYPE(10
000098 000374 | @15L214 DS 0H
000098 5810 D0F0 000376 | L r1,#SR_PARM_15(,r
00009C 5880 1000 000376 | L r8,_addrINITRC(,r
0000A0 5850 1004 000376 | L r5,_addrINITHANDL
0000A4 5840 1008 000376 | L r4,_addrINITHANDL
0000A8 5820 100C 000376 | L r2,_addrINITDIAGA
0000AC 5810 7008 000376 | L r1,=A(HWTHINIT)(,
0000B0 A52A 8000 000376 | OILH r2,H'-32768'
0000B4 58F0 1008 000376 | L r15,&EPA_&WSA(,r1
0000B8 5800 100C 000376 | L r0,&EPA_&WSA(,r1,
0000BC 5000 C1F4 000376 | ST r0,_CEECAA_(,r12,
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
0000C0 4110 D098 000376 | LA r1,#MX_TEMP15(,r1
0000C4 5080 D098 000376 | ST r8,#MX_TEMP15(,r1
0000C8 5050 D09C 000376 | ST r5,#MX_TEMP15(,r1
0000CC 5040 D0A0 000376 | ST r4,#MX_TEMP15(,r1
0000D0 5020 D0A4 000376 | ST r2,#MX_TEMP15(,r1
0000D4 0DEF 000376 | BASR r14,r15
0000D6 5810 D0F0 000378 | L r1,#SR_PARM_15(,r
0000DA 5810 1000 000378 | L r1,_addrINITRC(,r
0000DE 5800 1000 000378 | L r0,_shadow4(,r1,0
0000E2 1200 000378 | LTR r0,r0
0000E4 A774 002A 000378 | JNE @15L216
0000E8 000378 | @15L218 DS 0H
0000E8 000379 | @15L209 DS 0H
0000E8 D219 D0BC 6120 000380 | MVC _temp4(26,r13,188
0000EE D209 D0D6 D0B0 000380 | MVC _temp4(10,r13,214
0000F4 D209 D0E0 613C 000380 | MVC _temp4(10,r13,224
0000FA 5810 7000 000380 | L r1,=A(IBMQJDSB)(,
0000FE 4120 6018 000380 | LA r2,_Dsc_000004(,r
000102 4140 60F8 000380 | LA r4,_Dsc_000032(,r
000106 4150 D0BC 000380 | LA r5,_temp4(,r13,18
00010A 58F0 1008 000380 | L r15,&EPA_&WSA(,r1
00010E 5800 100C 000380 | L r0,&EPA_&WSA(,r1,
000112 5000 C1F4 000380 | ST r0,_CEECAA_(,r12,
000116 4110 D098 000380 | LA r1,#MX_TEMP15(,r1
00011A 5050 D098 000380 | ST r5,#MX_TEMP15(,r1
00011E 5040 D09C 000380 | ST r4,#MX_TEMP15(,r1
000122 E54C D0A0 0000 000380 | MVHI #MX_TEMP15(r13,16
000128 5020 D0A4 000380 | ST r2,#MX_TEMP15(,r1
00012C E54C D0A8 0000 000380 | MVHI #MX_TEMP15(r13,16
000132 0DEF 000380 | BASR r14,r15
000134 000382 | @15L210 DS 0H
000134 A7F4 0043 000382 | J @15L217
000138 000382 | @15L216 DS 0H
000138 000384 | @15L211 DS 0H
000138 5810 D0FC 000385 | L r1,#CEECAACRENT_1
00013C 5800 3006 000385 | L r0,=Q(ERRORMESSAG
000140 1E10 000385 | ALR r1,r0
000142 5010 D108 000385 | ST r1,#STRTEMP15(,r1
000146 9240 1000 000385 | MVI ERRORMESSAGE(r1,0
00014A D2C6 1001 1000 000385 | MVC ERRORMESSAGE(199,
000150 5810 D0FC 000386 | L r1,#CEECAACRENT_1
000154 1E10 000386 | ALR r1,r0
000156 D20F 1000 6148 000386 | MVC ERRORMESSAGE(16,r
00015C 5810 D0FC 000386 | L r1,#CEECAACRENT_1
000160 1E10 000386 | ALR r1,r0
000162 4110 1010 000386 | LA r1,ERRORMESSAGE(,
000166 5010 D108 000386 | ST r1,#STRTEMP15(,r1
00016A 9240 1000 000386 | MVI ERRORMESSAGE(r1,0
00016E D2B6 1001 1000 000386 | MVC ERRORMESSAGE(183,
000174 5810 D0F0 000387 | L r1,#SR_PARM_15(,r
000178 5840 1000 000387 | L r4,_addrINITRC(,r
00017C 5820 100C 000387 | L r2,_addrINITDIAGA
000180 5810 D0FC 000387 | L r1,#CEECAACRENT_1
000184 B9FA 0001 000387 | ALRK r0,r1,r0
000188 5850 D0EC 000387 | L r5,#ENV:HTTP_INIT
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
00018C 5010 C1F4 000387 | ST r1,_CEECAA_(,r12,
000190 58F0 300A 000387 | L r15,=A(DISPLAY_ER
000194 4110 D098 000387 | LA r1,#MX_TEMP15(,r1
000198 5040 D098 000387 | ST r4,#MX_TEMP15(,r1
00019C 5020 D09C 000387 | ST r2,#MX_TEMP15(,r1
0001A0 5000 D0A0 000387 | ST r0,#MX_TEMP15(,r1
0001A4 0DEF 000387 | BASR r14,r15
0001A6 5810 D0F0 000388 | L r1,#SR_PARM_15(,r
0001AA 5810 1010 000388 | L r1,_addrReturns_V
0001AE 5810 1000 000388 | L r1,_shadow6(,r1,0
0001B2 9200 1000 000388 | MVI _shadow2(r1,0),0
0001B6 A7F4 000C 000388 | J @15L416
0001BA 000389 | @15L212 DS 0H
0001BA 000389 | @15L217 DS 0H
0001BA 5810 D0F0 000391 | L r1,#SR_PARM_15(,r
0001BE 5810 1010 000391 | L r1,_addrReturns_V
0001C2 5810 1000 000391 | L r1,_shadow6(,r1,0
0001C6 9280 1000 000391 | MVI _shadow2(r1,0),12
0001CA A7F4 0002 000391 | J @15L416
0001CE 000392 | @15L208 DS 0H
0001CE 000392 | @15L416 DS 0H
0001CE 5800 D0FC 000000 | L r0,#CEECAACRENT_1
0001D2 5000 C1F4 000000 | ST r0,_CEECAA_(,r12,
0001D6 Start of Epilog
0001D6 58D0 D004 000392 | L r13,4(,r13)
0001DA 58E0 D00C 000392 | L r14,12(,r13)
0001DE 9828 D01C 000392 | LM r2,r8,28(r13)
0001E2 051E 000392 | BALR r1,r14
0001E4 0707 000392 | NOPR 7
0001E6 0000
0001E8 Start of Literals
0001E8 00000000 =Q(@STATIC)
0001EC 00000000 =Q(ERRORMESSAGE)
0001F0 000013F0 =A(DISPLAY_ERROR)
0001F4 End of Literals
*** General purpose registers used: 111111111000111
*** Floating point registers used: 111111110000000
*** Size of register spill area: 512(max) 0(used)
*** Size of dynamic storage: 288
*** Size of executable code: 486
*** CSECT Offset: 14576 : 0x38F0
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
DISPLAY_PARSE_ERR
000000 002114 | DS 0D
000000 47F0 F024 002114 | B 36(,r15)
000004 01C3C5C5 CEE eyecatcher
000008 00000180 DSA size
00000C 00003B28 =A(PPA1-DISPLAY_P
000010 47F0 F001 002114 | B 1(,r15)
000014 58F0 C31C 002114 | L r15,796(,r12)
000018 184E 002114 | LR r4,r14
00001A 05EF 002114 | BALR r14,r15
00001C 00000000 =F'0'
000020 A7F4 000C 002114 | J *+24
000024 90E7 D00C 002114 | STM r14,r7,12(r13)
000028 58E0 D04C 002114 | L r14,76(,r13)
00002C 4100 E180 002114 | LA r0,384(,r14)
000030 5500 C314 002114 | CL r0,788(,r12)
000034 A724 FFF0 002114 | JH *-32
000038 58F0 C280 002114 | L r15,640(,r12)
00003C 90F0 E048 002114 | STM r15,r0,72(r14)
000040 9210 E000 002114 | MVI 0(r14),16
000044 50D0 E004 002114 | ST r13,4(,r14)
000048 18DE 002114 | LR r13,r14
00004A C030 0000 01AE 002114 | LARL r3,F'430'
000050 End of Prolog
000050 5800 C1F4 000000 | L r0,_CEECAA_(,r12,
000054 5000 D16C 000000 | ST r0,#CEECAACRENT_1
000058 5800 D16C 000000 | L r0,#CEECAACRENT_1
00005C 5820 3002 000000 | L r2,=Q(@STATIC)(,r
000060 1E02 000000 | ALR r0,r2
000062 1870 000000 | LR r7,r0
000064 C060 0000 1446 000000 | LARL r6,F'5190'
00006A 5010 D168 002114 | ST r1,#SR_PARM_16(,r
00006E 5050 D164 002114 | ST r5,#ENV:DISPLAY_P
000072 5810 7000 002118 | L r1,=A(IBMQJDSB)(,
000076 4120 6018 002118 | LA r2,_Dsc_000004(,r
00007A 4140 6028 002118 | LA r4,_Dsc_000006(,r
00007E 58F0 1008 002118 | L r15,&EPA_&WSA(,r1
000082 5800 100C 002118 | L r0,&EPA_&WSA(,r1,
000086 5000 C1F4 002118 | ST r0,_CEECAA_(,r12,
00008A 4150 67DC 002118 | LA r5,+CONSTANT_AREA
00008E 4110 D098 002118 | LA r1,#MX_TEMP16(,r1
000092 5050 D098 002118 | ST r5,#MX_TEMP16(,r1
000096 5040 D09C 002118 | ST r4,#MX_TEMP16(,r1
00009A E54C D0A0 0000 002118 | MVHI #MX_TEMP16(r13,16
0000A0 5020 D0A4 002118 | ST r2,#MX_TEMP16(,r1
0000A4 E54C D0A8 0000 002118 | MVHI #MX_TEMP16(r13,16
0000AA 0DEF 002118 | BASR r14,r15
0000AC 5810 D168 002122 | L r1,#SR_PARM_16(,r
0000B0 5850 1000 002122 | L r5,_addrIN_ERRORM
0000B4 5810 7000 002122 | L r1,=A(IBMQJDSB)(,
0000B8 4120 6018 002122 | LA r2,_Dsc_000004(,r
0000BC 4140 6040 002122 | LA r4,_Dsc_000009(,r
0000C0 58F0 1008 002122 | L r15,&EPA_&WSA(,r1
0000C4 5800 100C 002122 | L r0,&EPA_&WSA(,r1,
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
0000C8 5000 C1F4 002122 | ST r0,_CEECAA_(,r12,
0000CC 4110 D098 002122 | LA r1,#MX_TEMP16(,r1
0000D0 5050 D098 002122 | ST r5,#MX_TEMP16(,r1
0000D4 5040 D09C 002122 | ST r4,#MX_TEMP16(,r1
0000D8 E54C D0A0 0000 002122 | MVHI #MX_TEMP16(r13,16
0000DE 5020 D0A4 002122 | ST r2,#MX_TEMP16(,r1
0000E2 E54C D0A8 0000 002122 | MVHI #MX_TEMP16(r13,16
0000E8 0DEF 002122 | BASR r14,r15
0000EA 5810 7000 002124 | L r1,=A(IBMQJDSB)(,
0000EE 4120 6018 002124 | LA r2,_Dsc_000004(,r
0000F2 4140 6028 002124 | LA r4,_Dsc_000006(,r
0000F6 58F0 1008 002124 | L r15,&EPA_&WSA(,r1
0000FA 5800 100C 002124 | L r0,&EPA_&WSA(,r1,
0000FE 5000 C1F4 002124 | ST r0,_CEECAA_(,r12,
000102 4150 67DC 002124 | LA r5,+CONSTANT_AREA
000106 4110 D098 002124 | LA r1,#MX_TEMP16(,r1
00010A 5050 D098 002124 | ST r5,#MX_TEMP16(,r1
00010E 5040 D09C 002124 | ST r4,#MX_TEMP16(,r1
000112 E54C D0A0 0000 002124 | MVHI #MX_TEMP16(r13,16
000118 5020 D0A4 002124 | ST r2,#MX_TEMP16(,r1
00011C E54C D0A8 0000 002124 | MVHI #MX_TEMP16(r13,16
000122 0DEF 002124 | BASR r14,r15
000124 D20D D148 6358 002128 | MVC _temp69(14,r13,32
00012A 5810 D16C 002128 | L r1,#CEECAACRENT_1
00012E 5800 3006 002128 | L r0,=Q(RETURNCODE)
000132 B9FA 1010 002128 | ALRK r1,r0,r1
000136 5800 1000 002128 | L r0,RETURNCODE(,r1
00013A 4E00 D130 002128 | CVD r0,_temp67(,r13,3
00013E D20D D138 63C0 002128 | MVC _temp68(14,r13,31
000144 4100 D145 002128 | LA r0,_temp68(,r13,3
000148 5000 D12C 002128 | ST r0,_temp66(,r13,3
00014C 4120 D12C 002128 | LA r2,_temp66(,r13,3
000150 4140 D138 002128 | LA r4,_temp68(,r13,3
000154 4150 D132 002128 | LA r5,_temp67(,r13,3
000158 5810 2000 002128 | L r1,_temp66(,r2,0)
00015C DF0D 4000 5000 002128 | EDMK _temp68(14,r4,0),
000162 5010 2000 002128 | ST r1,_temp66(,r2,0)
000166 B222 0000 002128 | IPM r0
00016A 8800 001C 002128 | SRL r0,28
00016E A70E 0001 002128 | CHI r0,H'1'
000172 A774 0007 002128 | JNE @16L221
000176 5810 D12C 002128 | L r1,_temp66(,r13,3
00017A EB60 1FFF FF52 002128 | MVIY _shadow2(r1,-1),9
000180 002128 | @16L221 DS 0H
000180 D20D D156 D138 002128 | MVC _temp69(14,r13,34
000186 5810 7000 002128 | L r1,=A(IBMQJDSB)(,
00018A 4120 6018 002128 | LA r2,_Dsc_000004(,r
00018E 4140 6070 002128 | LA r4,_Dsc_000015(,r
000192 4150 D148 002128 | LA r5,_temp69(,r13,3
000196 58F0 1008 002128 | L r15,&EPA_&WSA(,r1
00019A 5800 100C 002128 | L r0,&EPA_&WSA(,r1,
00019E 5000 C1F4 002128 | ST r0,_CEECAA_(,r12,
0001A2 4110 D098 002128 | LA r1,#MX_TEMP16(,r1
0001A6 5050 D098 002128 | ST r5,#MX_TEMP16(,r1
0001AA 5040 D09C 002128 | ST r4,#MX_TEMP16(,r1
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
0001AE E54C D0A0 0000 002128 | MVHI #MX_TEMP16(r13,16
0001B4 5020 D0A4 002128 | ST r2,#MX_TEMP16(,r1
0001B8 E54C D0A8 0000 002128 | MVHI #MX_TEMP16(r13,16
0001BE 0DEF 002128 | BASR r14,r15
0001C0 5810 7000 002130 | L r1,=A(IBMQJDSB)(,
0001C4 4120 6018 002130 | LA r2,_Dsc_000004(,r
0001C8 4140 6028 002130 | LA r4,_Dsc_000006(,r
0001CC 58F0 1008 002130 | L r15,&EPA_&WSA(,r1
0001D0 5800 100C 002130 | L r0,&EPA_&WSA(,r1,
0001D4 5000 C1F4 002130 | ST r0,_CEECAA_(,r12,
0001D8 4150 67DC 002130 | LA r5,+CONSTANT_AREA
0001DC 4110 D098 002130 | LA r1,#MX_TEMP16(,r1
0001E0 5050 D098 002130 | ST r5,#MX_TEMP16(,r1
0001E4 5040 D09C 002130 | ST r4,#MX_TEMP16(,r1
0001E8 E54C D0A0 0000 002130 | MVHI #MX_TEMP16(r13,16
0001EE 5020 D0A4 002130 | ST r2,#MX_TEMP16(,r1
0001F2 E54C D0A8 0000 002130 | MVHI #MX_TEMP16(r13,16
0001F8 0DEF 002130 | BASR r14,r15
0001FA D20D D148 6388 002134 | MVC _temp69(14,r13,32
000200 5810 D164 002134 | L r1,#ENV:DISPLAY_P
000204 4110 10B0 002134 | LA r1,DIAG_AREA(,r1,
000208 5800 1000 002134 | L r0,_shadow4(,r1,0
00020C 4E00 D130 002134 | CVD r0,_temp67(,r13,3
000210 D20D D138 63C0 002134 | MVC _temp68(14,r13,31
000216 4100 D145 002134 | LA r0,_temp68(,r13,3
00021A 5000 D12C 002134 | ST r0,_temp66(,r13,3
00021E 4120 D12C 002134 | LA r2,_temp66(,r13,3
000222 4140 D138 002134 | LA r4,_temp68(,r13,3
000226 4150 D132 002134 | LA r5,_temp67(,r13,3
00022A 5810 2000 002134 | L r1,_temp66(,r2,0)
00022E DF0D 4000 5000 002134 | EDMK _temp68(14,r4,0),
000234 5010 2000 002134 | ST r1,_temp66(,r2,0)
000238 B222 0000 002134 | IPM r0
00023C 8800 001C 002134 | SRL r0,28
000240 A70E 0001 002134 | CHI r0,H'1'
000244 A774 0007 002134 | JNE @16L222
000248 5810 D12C 002134 | L r1,_temp66(,r13,3
00024C EB60 1FFF FF52 002134 | MVIY _shadow2(r1,-1),9
000252 002134 | @16L222 DS 0H
000252 D20D D156 D138 002134 | MVC _temp69(14,r13,34
000258 5810 7000 002134 | L r1,=A(IBMQJDSB)(,
00025C 4120 6018 002134 | LA r2,_Dsc_000004(,r
000260 4140 6070 002134 | LA r4,_Dsc_000015(,r
000264 4150 D148 002134 | LA r5,_temp69(,r13,3
000268 58F0 1008 002134 | L r15,&EPA_&WSA(,r1
00026C 5800 100C 002134 | L r0,&EPA_&WSA(,r1,
000270 5000 C1F4 002134 | ST r0,_CEECAA_(,r12,
000274 4110 D098 002134 | LA r1,#MX_TEMP16(,r1
000278 5050 D098 002134 | ST r5,#MX_TEMP16(,r1
00027C 5040 D09C 002134 | ST r4,#MX_TEMP16(,r1
000280 E54C D0A0 0000 002134 | MVHI #MX_TEMP16(r13,16
000286 5020 D0A4 002134 | ST r2,#MX_TEMP16(,r1
00028A E54C D0A8 0000 002134 | MVHI #MX_TEMP16(r13,16
000290 0DEF 002134 | BASR r14,r15
000292 5810 7000 002141 | L r1,=A(IBMQJDSB)(,
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
000296 4120 6018 002141 | LA r2,_Dsc_000004(,r
00029A 4140 6028 002141 | LA r4,_Dsc_000006(,r
00029E 58F0 1008 002141 | L r15,&EPA_&WSA(,r1
0002A2 5800 100C 002141 | L r0,&EPA_&WSA(,r1,
0002A6 5000 C1F4 002141 | ST r0,_CEECAA_(,r12,
0002AA 4150 67DC 002141 | LA r5,+CONSTANT_AREA
0002AE 4110 D098 002141 | LA r1,#MX_TEMP16(,r1
0002B2 5050 D098 002141 | ST r5,#MX_TEMP16(,r1
0002B6 5040 D09C 002141 | ST r4,#MX_TEMP16(,r1
0002BA E54C D0A0 0000 002141 | MVHI #MX_TEMP16(r13,16
0002C0 5020 D0A4 002141 | ST r2,#MX_TEMP16(,r1
0002C4 E54C D0A8 0000 002141 | MVHI #MX_TEMP16(r13,16
0002CA 0DEF 002141 | BASR r14,r15
0002CC D20D D0B0 6398 002142 | MVC _temp65(14,r13,17
0002D2 5810 D164 002142 | L r1,#ENV:DISPLAY_P
0002D6 D26D D0BE 10B4 002142 | MVC _temp65(110,r13,1
0002DC 5810 7000 002142 | L r1,=A(IBMQJDSB)(,
0002E0 4120 6018 002142 | LA r2,_Dsc_000004(,r
0002E4 4140 6020 002142 | LA r4,_Dsc_000005(,r
0002E8 4150 D0B0 002142 | LA r5,_temp65(,r13,1
0002EC 58F0 1008 002142 | L r15,&EPA_&WSA(,r1
0002F0 5800 100C 002142 | L r0,&EPA_&WSA(,r1,
0002F4 5000 C1F4 002142 | ST r0,_CEECAA_(,r12,
0002F8 4110 D098 002142 | LA r1,#MX_TEMP16(,r1
0002FC 5050 D098 002142 | ST r5,#MX_TEMP16(,r1
000300 5040 D09C 002142 | ST r4,#MX_TEMP16(,r1
000304 E54C D0A0 0000 002142 | MVHI #MX_TEMP16(r13,16
00030A 5020 D0A4 002142 | ST r2,#MX_TEMP16(,r1
00030E E54C D0A8 0000 002142 | MVHI #MX_TEMP16(r13,16
000314 0DEF 002142 | BASR r14,r15
000316 5850 D164 002143 | L r5,#ENV:DISPLAY_P
00031A 5810 7000 002143 | L r1,=A(IBMQJDSB)(,
00031E 4120 6018 002143 | LA r2,_Dsc_000004(,r
000322 4140 6048 002143 | LA r4,_Dsc_000010(,r
000326 4150 5122 002143 | LA r5,DIAG_AREA(,r5,
00032A 58F0 1008 002143 | L r15,&EPA_&WSA(,r1
00032E 5800 100C 002143 | L r0,&EPA_&WSA(,r1,
000332 5000 C1F4 002143 | ST r0,_CEECAA_(,r12,
000336 4110 D098 002143 | LA r1,#MX_TEMP16(,r1
00033A 5050 D098 002143 | ST r5,#MX_TEMP16(,r1
00033E 5040 D09C 002143 | ST r4,#MX_TEMP16(,r1
000342 E54C D0A0 0000 002143 | MVHI #MX_TEMP16(r13,16
000348 5020 D0A4 002143 | ST r2,#MX_TEMP16(,r1
00034C E54C D0A8 0000 002143 | MVHI #MX_TEMP16(r13,16
000352 0DEF 002143 | BASR r14,r15
000354 5810 7000 002145 | L r1,=A(IBMQJDSB)(,
000358 4120 6018 002145 | LA r2,_Dsc_000004(,r
00035C 4140 6028 002145 | LA r4,_Dsc_000006(,r
000360 58F0 1008 002145 | L r15,&EPA_&WSA(,r1
000364 5800 100C 002145 | L r0,&EPA_&WSA(,r1,
000368 5000 C1F4 002145 | ST r0,_CEECAA_(,r12,
00036C 4150 67DC 002145 | LA r5,+CONSTANT_AREA
000370 4110 D098 002145 | LA r1,#MX_TEMP16(,r1
000374 5050 D098 002145 | ST r5,#MX_TEMP16(,r1
000378 5040 D09C 002145 | ST r4,#MX_TEMP16(,r1
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
00037C E54C D0A0 0000 002145 | MVHI #MX_TEMP16(r13,16
000382 5020 D0A4 002145 | ST r2,#MX_TEMP16(,r1
000386 E54C D0A8 0000 002145 | MVHI #MX_TEMP16(r13,16
00038C 0DEF 002145 | BASR r14,r15
00038E 002147 | @16L220 DS 0H
00038E 002147 | @16L439 DS 0H
00038E 5800 D16C 000000 | L r0,#CEECAACRENT_1
000392 5000 C1F4 000000 | ST r0,_CEECAA_(,r12,
000396 Start of Epilog
000396 58D0 D004 002147 | L r13,4(,r13)
00039A 58E0 D00C 002147 | L r14,12(,r13)
00039E 9827 D01C 002147 | LM r2,r7,28(r13)
0003A2 051E 002147 | BALR r1,r14
0003A4 0707 002147 | NOPR 7
0003A6 0000
0003A8 Start of Literals
0003A8 00000000 =Q(@STATIC)
0003AC 00000000 =Q(RETURNCODE)
0003B0 End of Literals
*** General purpose registers used: 111111110000111
*** Floating point registers used: 111111110000000
*** Size of register spill area: 512(max) 0(used)
*** Size of dynamic storage: 384
*** Size of executable code: 934
*** CSECT Offset: 15080 : 0x3AE8
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
DO_GET_VALUE
000000 001987 | DS 0D
000000 47F0 F024 001987 | B 36(,r15)
000004 01C3C5C5 CEE eyecatcher
000008 00008220 DSA size
00000C 000037C8 =A(PPA1-DO_GET_VA
000010 47F0 F001 001987 | B 1(,r15)
000014 58F0 C31C 001987 | L r15,796(,r12)
000018 184E 001987 | LR r4,r14
00001A 05EF 001987 | BALR r14,r15
00001C 00000000 =F'0'
000020 A7F4 000D 001987 | J *+26
000024 90EB D00C 001987 | STM r14,r11,12(r13)
000028 58E0 D04C 001987 | L r14,76(,r13)
00002C 5800 F008 001987 | L r0,8(,r15)
000030 1E0E 001987 | ALR r0,r14
000032 5500 C314 001987 | CL r0,788(,r12)
000036 A724 FFEF 001987 | JH *-34
00003A 58F0 C280 001987 | L r15,640(,r12)
00003E 90F0 E048 001987 | STM r15,r0,72(r14)
000042 9210 E000 001987 | MVI 0(r14),16
000046 50D0 E004 001987 | ST r13,4(,r14)
00004A 18DE 001987 | LR r13,r14
00004C C040 0000 025E 001987 | LARL r4,F'606'
000052 End of Prolog
000052 5800 C1F4 000000 | L r0,_CEECAA_(,r12,
000056 E300 D1E4 0850 000000 | STY r0,#CEECAACRENT_1
00005C E300 D1E4 0858 000000 | LY r0,#CEECAACRENT_1
000062 5820 4000 000000 | L r2,=Q(@STATIC)(,r
000066 1E02 000000 | ALR r0,r2
000068 1860 000000 | LR r6,r0
00006A C070 0000 126B 000000 | LARL r7,F'4715'
000070 E310 D1E0 0850 001987 | STY r1,#SR_PARM_17(,r
000076 E350 D1DC 0850 001987 | STY r5,#ENV:DO_GET_VA
00007C E54C D0B0 0000 001987 | MVHI VALUE_ADDR(r13,17
000082 E54C D0B4 0000 001987 | MVHI STRING_VALUE_ADDR
000088 E310 D1E0 0858 002008 | LY r1,#SR_PARM_17(,r
00008E 5810 1008 002008 | L r1,_addrVALUE_LEN
000092 E54C 1000 0000 002008 | MVHI _shadow4(r1,0),H'
000098 E310 D1E0 0858 002024 | LY r1,#SR_PARM_17(,r
00009E 5810 1004 002024 | L r1,_addrENTRY_TYP
0000A2 5800 1000 002024 | L r0,_shadow3(,r1,0
0000A6 5000 D1BC 002024 | ST r0,_temp56(,r13,4
0000AA C20F 0000 0003 002025 | CLFI r0,F'3'
0000B0 A784 0009 002025 | JE @17L244
0000B4 002025 | @17L246 DS 0H
0000B4 5800 D1BC 002025 | L r0,_temp56(,r13,4
0000B8 C20F 0000 0004 002025 | CLFI r0,F'4'
0000BE A774 0163 002025 | JNE @17L245
0000C2 002025 | @17L244 DS 0H
0000C2 002027 | @17L225 DS 0H
0000C2 E310 D1E4 0858 002030 | LY r1,#CEECAACRENT_1
0000C8 5820 4004 002030 | L r2,=Q(RETURNCODE)
0000CC B9FA 10B2 002030 | ALRK r11,r2,r1
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
0000D0 5800 4008 002030 | L r0,=Q(PARSER_INST
0000D4 B9FA 10A0 002030 | ALRK r10,r0,r1
0000D8 E310 D1E0 0858 002030 | LY r1,#SR_PARM_17(,r
0000DE 5890 1000 002030 | L r9,_addrVALUE_HAN
0000E2 5850 1008 002030 | L r5,_addrVALUE_LEN
0000E6 E330 D1DC 0858 002030 | LY r3,#ENV:DO_GET_VA
0000EC 5810 6038 002030 | L r1,=A(HWTJGVAL)(,
0000F0 4130 30B0 002030 | LA r3,DIAG_AREA(,r3,
0000F4 4180 D0B4 002030 | LA r8,STRING_VALUE_A
0000F8 A53A 8000 002030 | OILH r3,H'-32768'
0000FC 58F0 1008 002030 | L r15,&EPA_&WSA(,r1
000100 5800 100C 002030 | L r0,&EPA_&WSA(,r1,
000104 5000 C1F4 002030 | ST r0,_CEECAA_(,r12,
000108 4110 D098 002030 | LA r1,#MX_TEMP17(,r1
00010C 50B0 D098 002030 | ST r11,#MX_TEMP17(,r
000110 50A0 D09C 002030 | ST r10,#MX_TEMP17(,r
000114 5090 D0A0 002030 | ST r9,#MX_TEMP17(,r1
000118 5080 D0A4 002030 | ST r8,#MX_TEMP17(,r1
00011C 5050 D0A8 002030 | ST r5,#MX_TEMP17(,r1
000120 5030 D0AC 002030 | ST r3,#MX_TEMP17(,r1
000124 0DEF 002030 | BASR r14,r15
000126 1802 002030 | LR r0,r2
000128 E310 D1E4 0858 002037 | LY r1,#CEECAACRENT_1
00012E B9FA 1010 002037 | ALRK r1,r0,r1
000132 5800 1000 002037 | L r0,RETURNCODE(,r1
000136 1200 002037 | LTR r0,r0
000138 A774 00FB 002037 | JNE @17L247
00013C 002037 | @17L249 DS 0H
00013C 002038 | @17L227 DS 0H
00013C 4100 D0B8 002039 | LA r0,LOCAL_VALUE(,r
000140 5000 D0B0 002039 | ST r0,VALUE_ADDR(,r1
000144 E310 D1E0 0858 002040 | LY r1,#SR_PARM_17(,r
00014A 5810 1008 002040 | L r1,_addrVALUE_LEN
00014E 5800 1000 002040 | L r0,_shadow4(,r1,0
000152 A70E 0100 002040 | CHI r0,H'256'
000156 A724 00C1 002040 | JH @17L250
00015A 002040 | @17L252 DS 0H
00015A 002041 | @17L229 DS 0H
00015A 4100 D0B8 002042 | LA r0,LOCAL_VALUE(,r
00015E E300 D1D8 0850 002042 | STY r0,_temp64(,r13,3
000164 5800 D0B4 002042 | L r0,STRING_VALUE_A
000168 E300 D1D4 0850 002042 | STY r0,_temp63(,r13,3
00016E E310 D1E0 0858 002042 | LY r1,#SR_PARM_17(,r
000174 5810 1008 002042 | L r1,_addrVALUE_LEN
000178 5810 1000 002042 | L r1,_shadow4(,r1,0
00017C E300 D1E8 0850 002042 | STY r0,#wtemp_158(,r1
000182 E310 D1D0 0850 002042 | STY r1,_temp62(,r13,3
000188 E320 D1E0 0858 002042 | LY r2,#SR_PARM_17(,r
00018E 5820 2008 002042 | L r2,_addrVALUE_LEN
000192 5800 2000 002042 | L r0,_shadow4(,r2,0
000196 EB20 001F 00DC 002042 | SRAK r2,r0,31
00019C C027 FFFF FFFF 002042 | XILF r2,F'-1'
0001A2 1402 002042 | NR r0,r2
0001A4 E310 D1EC 0850 002042 | STY r1,#wtemp_159(,r1
0001AA E300 D1CC 0850 002042 | STY r0,_temp61(,r13,3
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
0001B0 E310 D1D0 0858 002042 | LY r1,_temp62(,r13,3
0001B6 A71E 0001 002042 | CHI r1,H'1'
0001BA 4120 0001 002042 | LA r2,1
0001BE B9F2 4012 002042 | LOCRL r1,r2
0001C2 A728 7FFF 002042 | LHI r2,H'32767'
0001C6 8E20 0020 002042 | SRDA r2,32
0001CA 1D21 002042 | DR r2,r1
0001CC 1813 002042 | LR r1,r3
0001CE 1901 002042 | CR r0,r1
0001D0 B9F2 4010 002042 | LOCRL r1,r0
0001D4 E310 D1CC 0850 002042 | STY r1,_temp61(,r13,3
0001DA E300 D1D0 0858 002042 | LY r0,_temp62(,r13,3
0001E0 B252 0001 002042 | MSR r0,r1
0001E4 E300 D1C8 0850 002042 | STY r0,_temp60(,r13,3
0001EA E330 D1CC 0858 002042 | LY r3,_temp61(,r13,3
0001F0 4180 D1C0 002042 | LA r8,_temp57(,r13,4
0001F4 E320 D1EC 0858 002042 | LY r2,#wtemp_159(,r1
0001FA E310 D1E8 0858 002042 | LY r1,#wtemp_158(,r1
000200 E300 D1E4 0858 002042 | LY r0,#CEECAACRENT_1
000206 58F0 400C 002042 | L r15,=A(_CsCopy)(,
00020A 5850 D04C 002042 | L r5,#MX_NAB17(,r13
00020E 5080 50C8 002042 | ST r8,#MX_TEMP17(,r5
000212 4DE0 F010 002042 | BAS r14,16(,r15)
000216 4700 0010 002042 | NOP 16
00021A 4100 D1C0 002042 | LA r0,_temp57(,r13,4
00021E E300 D1C4 0850 002042 | STY r0,_temp59(,r13,3
000224 E300 D1C8 0858 002042 | LY r0,_temp60(,r13,3
00022A A70E 0100 002042 | CHI r0,H'256'
00022E A7B4 004A 002042 | JNL @17L262
000232 E300 D1C8 0858 002042 | LY r0,_temp60(,r13,3
000238 A70A FFFF 002042 | AHI r0,H'-1'
00023C E300 D1C0 0850 002042 | STY r0,_temp58(,r13,3
000242 1200 002042 | LTR r0,r0
000244 A744 001E 002042 | JL @17L263
000248 E3E0 D1D8 0858 002042 | LY r14,_temp64(,r13,
00024E E3F0 D1C4 0858 002042 | LY r15,_temp59(,r13,
000254 E310 D1C0 0858 002042 | LY r1,_temp58(,r13,3
00025A C01B 0000 00FF 002042 | NILF r1,F'255'
000260 C610 0000 1813 002042 | EXRL r1,F'6163'
000266 E310 D1D8 0858 002042 | LY r1,_temp64(,r13,3
00026C E300 D1C0 0858 002042 | LY r0,_temp58(,r13,3
000272 B9FA 1010 002042 | ALRK r1,r0,r1
000276 4100 1001 002042 | LA r0,#AddressShadow
00027A E300 D1D8 0850 002042 | STY r0,_temp64(,r13,3
000280 002042 | @17L263 DS 0H
000280 E310 D1D8 0858 002042 | LY r1,_temp64(,r13,3
000286 9240 1000 002042 | MVI _shadow2(r1,0),64
00028A E310 D1C0 0858 002042 | LY r1,_temp58(,r13,3
000290 4100 00FD 002042 | LA r0,253
000294 1F01 002042 | SLR r0,r1
000296 E300 D1C0 0850 002042 | STY r0,_temp58(,r13,3
00029C 1200 002042 | LTR r0,r0
00029E A744 001B 002042 | JL @17L261
0002A2 E3F0 D1D8 0858 002042 | LY r15,_temp64(,r13,
0002A8 E310 D1C0 0858 002042 | LY r1,_temp58(,r13,3
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
0002AE C01B 0000 00FF 002042 | NILF r1,F'255'
0002B4 41E0 F001 002042 | LA r14,#AddressShado
0002B8 C610 0000 17E7 002042 | EXRL r1,F'6119'
0002BE A7F4 000B 002042 | J @17L261
0002C2 002042 | @17L262 DS 0H
0002C2 E310 D1D8 0858 002042 | LY r1,_temp64(,r13,3
0002C8 E320 D1C4 0858 002042 | LY r2,_temp59(,r13,3
0002CE D2FF 1000 2000 002042 | MVC #AddressShadow(25
0002D4 002042 | @17L261 DS 0H
0002D4 002044 | @17L230 DS 0H
0002D4 A7F4 002B 002044 | J @17L251
0002D8 002044 | @17L250 DS 0H
0002D8 002046 | @17L231 DS 0H
0002D8 E310 D1E4 0858 002054 | LY r1,#CEECAACRENT_1
0002DE 5800 4010 002054 | L r0,=Q(ERRORMESSAG
0002E2 B9FA 1010 002054 | ALRK r1,r0,r1
0002E6 D218 1000 7604 002054 | MVC ERRORMESSAGE(25,r
0002EC E310 D1E4 0858 002054 | LY r1,#CEECAACRENT_1
0002F2 B9FA 1010 002054 | ALRK r1,r0,r1
0002F6 4110 1019 002054 | LA r1,ERRORMESSAGE(,
0002FA E310 D200 0850 002054 | STY r1,#STRTEMP17(,r1
000300 9240 1000 002054 | MVI ERRORMESSAGE(r1,0
000304 D2AD 1001 1000 002054 | MVC ERRORMESSAGE(174,
00030A E310 D1E4 0858 002055 | LY r1,#CEECAACRENT_1
000310 1E01 002055 | ALR r0,r1
000312 E350 D1DC 0858 002055 | LY r5,#ENV:DO_GET_VA
000318 5010 C1F4 002055 | ST r1,_CEECAA_(,r12,
00031C 58F0 4014 002055 | L r15,=A(DISPLAY_PA
000320 4110 D098 002055 | LA r1,#MX_TEMP17(,r1
000324 5000 D098 002055 | ST r0,#MX_TEMP17(,r1
000328 0DEF 002055 | BASR r14,r15
00032A 002057 | @17L232 DS 0H
00032A 002057 | @17L251 DS 0H
00032A 002058 | @17L228 DS 0H
00032A A7F4 002B 002058 | J @17L248
00032E 002058 | @17L247 DS 0H
00032E 002060 | @17L233 DS 0H
00032E E310 D1E4 0858 002061 | LY r1,#CEECAACRENT_1
000334 5800 4010 002061 | L r0,=Q(ERRORMESSAG
000338 B9FA 1010 002061 | ALRK r1,r0,r1
00033C D22F 1000 7620 002061 | MVC ERRORMESSAGE(48,r
000342 E310 D1E4 0858 002061 | LY r1,#CEECAACRENT_1
000348 B9FA 1010 002061 | ALRK r1,r0,r1
00034C 4110 1030 002061 | LA r1,ERRORMESSAGE(,
000350 E310 D200 0850 002061 | STY r1,#STRTEMP17(,r1
000356 9240 1000 002061 | MVI ERRORMESSAGE(r1,0
00035A D296 1001 1000 002061 | MVC ERRORMESSAGE(151,
000360 E310 D1E4 0858 002063 | LY r1,#CEECAACRENT_1
000366 1E01 002063 | ALR r0,r1
000368 E350 D1DC 0858 002063 | LY r5,#ENV:DO_GET_VA
00036E 5010 C1F4 002063 | ST r1,_CEECAA_(,r12,
000372 58F0 4014 002063 | L r15,=A(DISPLAY_PA
000376 4110 D098 002063 | LA r1,#MX_TEMP17(,r1
00037A 5000 D098 002063 | ST r0,#MX_TEMP17(,r1
00037E 0DEF 002063 | BASR r14,r15
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
000380 002064 | @17L234 DS 0H
000380 002064 | @17L248 DS 0H
000380 002065 | @17L226 DS 0H
000380 A7F4 00B3 002065 | J @17L243
000384 002065 | @17L245 DS 0H
000384 5800 D1BC 002066 | L r0,_temp56(,r13,4
000388 C20F 0000 0005 002066 | CLFI r0,F'5'
00038E A774 006C 002066 | JNE @17L254
000392 002066 | @17L253 DS 0H
000392 002067 | @17L235 DS 0H
000392 E310 D1E4 0858 002070 | LY r1,#CEECAACRENT_1
000398 5820 4004 002070 | L r2,=Q(RETURNCODE)
00039C B9FA 10A2 002070 | ALRK r10,r2,r1
0003A0 5800 4008 002070 | L r0,=Q(PARSER_INST
0003A4 B9FA 1090 002070 | ALRK r9,r0,r1
0003A8 E310 D1E0 0858 002070 | LY r1,#SR_PARM_17(,r
0003AE 5880 1000 002070 | L r8,_addrVALUE_HAN
0003B2 E330 D1DC 0858 002070 | LY r3,#ENV:DO_GET_VA
0003B8 5810 603C 002070 | L r1,=A(HWTJGBOV)(,
0003BC 4130 30B0 002070 | LA r3,DIAG_AREA(,r3,
0003C0 4150 D1B8 002070 | LA r5,HWTJ_BOOLEAN(,
0003C4 A53A 8000 002070 | OILH r3,H'-32768'
0003C8 58F0 1008 002070 | L r15,&EPA_&WSA(,r1
0003CC 5800 100C 002070 | L r0,&EPA_&WSA(,r1,
0003D0 5000 C1F4 002070 | ST r0,_CEECAA_(,r12,
0003D4 4110 D098 002070 | LA r1,#MX_TEMP17(,r1
0003D8 50A0 D098 002070 | ST r10,#MX_TEMP17(,r
0003DC 5090 D09C 002070 | ST r9,#MX_TEMP17(,r1
0003E0 5080 D0A0 002070 | ST r8,#MX_TEMP17(,r1
0003E4 5050 D0A4 002070 | ST r5,#MX_TEMP17(,r1
0003E8 5030 D0A8 002070 | ST r3,#MX_TEMP17(,r1
0003EC 0DEF 002070 | BASR r14,r15
0003EE 1802 002070 | LR r0,r2
0003F0 E310 D1E4 0858 002076 | LY r1,#CEECAACRENT_1
0003F6 B9FA 1010 002076 | ALRK r1,r0,r1
0003FA 5800 1000 002076 | L r0,RETURNCODE(,r1
0003FE 1200 002076 | LTR r0,r0
000400 A774 0008 002076 | JNE @17L255
000404 002076 | @17L257 DS 0H
000404 4100 D1B8 002079 | LA r0,HWTJ_BOOLEAN(,
000408 5000 D0B0 002079 | ST r0,VALUE_ADDR(,r1
00040C A7F4 002B 002079 | J @17L256
000410 002079 | @17L255 DS 0H
000410 002081 | @17L237 DS 0H
000410 E310 D1E4 0858 002082 | LY r1,#CEECAACRENT_1
000416 5800 4010 002082 | L r0,=Q(ERRORMESSAG
00041A B9FA 1010 002082 | ALRK r1,r0,r1
00041E D22F 1000 7650 002082 | MVC ERRORMESSAGE(48,r
000424 E310 D1E4 0858 002082 | LY r1,#CEECAACRENT_1
00042A B9FA 1010 002082 | ALRK r1,r0,r1
00042E 4110 1030 002082 | LA r1,ERRORMESSAGE(,
000432 E310 D200 0850 002082 | STY r1,#STRTEMP17(,r1
000438 9240 1000 002082 | MVI ERRORMESSAGE(r1,0
00043C D296 1001 1000 002082 | MVC ERRORMESSAGE(151,
000442 E310 D1E4 0858 002084 | LY r1,#CEECAACRENT_1
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
000448 1E01 002084 | ALR r0,r1
00044A E350 D1DC 0858 002084 | LY r5,#ENV:DO_GET_VA
000450 5010 C1F4 002084 | ST r1,_CEECAA_(,r12,
000454 58F0 4014 002084 | L r15,=A(DISPLAY_PA
000458 4110 D098 002084 | LA r1,#MX_TEMP17(,r1
00045C 5000 D098 002084 | ST r0,#MX_TEMP17(,r1
000460 0DEF 002084 | BASR r14,r15
000462 002085 | @17L238 DS 0H
000462 002085 | @17L256 DS 0H
000462 002086 | @17L236 DS 0H
000462 A7F4 0042 002086 | J @17L243
000466 002086 | @17L254 DS 0H
000466 5800 D1BC 002087 | L r0,_temp56(,r13,4
00046A C20F 0000 0002 002087 | CLFI r0,F'2'
000470 A784 0009 002087 | JE @17L258
000474 002087 | @17L260 DS 0H
000474 5800 D1BC 002087 | L r0,_temp56(,r13,4
000478 C20F 0000 0001 002087 | CLFI r0,F'1'
00047E A774 000B 002087 | JNE @17L259
000482 002087 | @17L258 DS 0H
000482 002089 | @17L239 DS 0H
000482 E310 D1E0 0858 002092 | LY r1,#SR_PARM_17(,r
000488 5800 1000 002092 | L r0,_addrVALUE_HAN
00048C 5000 D0B0 002092 | ST r0,VALUE_ADDR(,r1
000490 002093 | @17L240 DS 0H
000490 A7F4 002B 002093 | J @17L243
000494 002093 | @17L259 DS 0H
000494 002095 | @17L241 DS 0H
000494 E310 D1E4 0858 002096 | LY r1,#CEECAACRENT_1
00049A 5800 4010 002096 | L r0,=Q(ERRORMESSAG
00049E B9FA 1010 002096 | ALRK r1,r0,r1
0004A2 D22E 1000 7680 002096 | MVC ERRORMESSAGE(47,r
0004A8 E310 D1E4 0858 002096 | LY r1,#CEECAACRENT_1
0004AE B9FA 1010 002096 | ALRK r1,r0,r1
0004B2 4110 102F 002096 | LA r1,ERRORMESSAGE(,
0004B6 E310 D200 0850 002096 | STY r1,#STRTEMP17(,r1
0004BC 9240 1000 002096 | MVI ERRORMESSAGE(r1,0
0004C0 D297 1001 1000 002096 | MVC ERRORMESSAGE(152,
0004C6 E310 D1E4 0858 002098 | LY r1,#CEECAACRENT_1
0004CC 1E01 002098 | ALR r0,r1
0004CE E350 D1DC 0858 002098 | LY r5,#ENV:DO_GET_VA
0004D4 5010 C1F4 002098 | ST r1,_CEECAA_(,r12,
0004D8 58F0 4014 002098 | L r15,=A(DISPLAY_PA
0004DC 4110 D098 002098 | LA r1,#MX_TEMP17(,r1
0004E0 5000 D098 002098 | ST r0,#MX_TEMP17(,r1
0004E4 0DEF 002098 | BASR r14,r15
0004E6 002099 | @17L242 DS 0H
0004E6 002099 | @17L243 DS 0H
0004E6 58F0 D0B0 002102 | L r15,VALUE_ADDR(,r
0004EA A7F4 0002 002102 | J @17L438
0004EE 002104 | @17L224 DS 0H
0004EE 002104 | @17L438 DS 0H
0004EE E300 D1E4 0858 000000 | LY r0,#CEECAACRENT_1
0004F4 5000 C1F4 000000 | ST r0,_CEECAA_(,r12,
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
0004F8 Start of Epilog
0004F8 58D0 D004 002104 | L r13,4(,r13)
0004FC 58E0 D00C 002104 | L r14,12(,r13)
000500 982B D01C 002104 | LM r2,r11,28(r13)
000504 051E 002104 | BALR r1,r14
000506 0707 002104 | NOPR 7
000508 Start of Literals
000508 00000000 =Q(@STATIC)
00050C 00000000 =Q(RETURNCODE)
000510 00000000 =Q(PARSER_INSTANC
000514 00006008 =A(_CsCopy)
000518 00000000 =Q(ERRORMESSAGE)
00051C 00003AE8 =A(DISPLAY_PARSE_
000520 End of Literals
*** General purpose registers used: 111111111111111
*** Floating point registers used: 111111110000000
*** Size of register spill area: 512(max) 0(used)
*** Size of dynamic storage: 33312
*** Size of executable code: 1288
*** CSECT Offset: 16024 : 0x3E98
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
FIND_VALUE
000000 001877 | DS 0D
000000 47F0 F024 001877 | B 36(,r15)
000004 01C3C5C5 CEE eyecatcher
000008 00000118 DSA size
00000C 000032F0 =A(PPA1-FIND_VALU
000010 47F0 F001 001877 | B 1(,r15)
000014 58F0 C31C 001877 | L r15,796(,r12)
000018 184E 001877 | LR r4,r14
00001A 05EF 001877 | BALR r14,r15
00001C 00000000 =F'0'
000020 A7F4 000C 001877 | J *+24
000024 90EB D00C 001877 | STM r14,r11,12(r13)
000028 58E0 D04C 001877 | L r14,76(,r13)
00002C 4100 E118 001877 | LA r0,280(,r14)
000030 5500 C314 001877 | CL r0,788(,r12)
000034 A724 FFF0 001877 | JH *-32
000038 58F0 C280 001877 | L r15,640(,r12)
00003C 90F0 E048 001877 | STM r15,r0,72(r14)
000040 9210 E000 001877 | MVI 0(r14),16
000044 50D0 E004 001877 | ST r13,4(,r14)
000048 18DE 001877 | LR r13,r14
00004A C030 0000 0158 001877 | LARL r3,F'344'
000050 End of Prolog
000050 5800 C1F4 000000 | L r0,_CEECAA_(,r12,
000054 5000 D0DC 000000 | ST r0,#CEECAACRENT_1
000058 5800 D0DC 000000 | L r0,#CEECAACRENT_1
00005C 5820 3002 000000 | L r2,=Q(@STATIC)(,r
000060 1E02 000000 | ALR r0,r2
000062 1860 000000 | LR r6,r0
000064 C070 0000 0FDE 000000 | LARL r7,F'4062'
00006A 5010 D0D8 001877 | ST r1,#SR_PARM_18(,r
00006E 5050 D0D4 001877 | ST r5,#ENV:FIND_VALU
000072 E54C D0C8 0000 001877 | MVHI ENTRY_TYPE(r13,20
000078 E54C D0C0 0000 001877 | MVHI VALUE_HANDLE(r13,
00007E E54C D0C4 0000 001877 | MVHI VALUE_ADDR(r13,19
000084 5810 D0D8 001903 | L r1,#SR_PARM_18(,r
000088 5810 1010 001903 | L r1,_addrVALUE_LEN
00008C E54C 1000 0000 001903 | MVHI _shadow4(r1,0),H'
000092 5820 D0DC 001907 | L r2,#CEECAACRENT_1
000096 5800 3006 001907 | L r0,=Q(RETURNCODE)
00009A 5000 D110 001907 | ST r0,#grSPILL0(,r13
00009E B9FA 2010 001907 | ALRK r1,r0,r2
0000A2 5800 300A 001907 | L r0,=Q(PARSER_INST
0000A6 B9FA 2020 001907 | ALRK r2,r0,r2
0000AA 5840 D0D8 001907 | L r4,#SR_PARM_18(,r
0000AE 5800 4004 001907 | L r0,_addrENTRYNAME
0000B2 5020 D0E0 001907 | ST r2,#wtemp_154(,r1
0000B6 5010 D0E4 001907 | ST r1,#wtemp_155(,r1
0000BA 5000 D0D0 001907 | ST r0,_temp55(,r13,2
0000BE 5810 D0D8 001907 | L r1,#SR_PARM_18(,r
0000C2 58A0 1008 001907 | L r10,_addrNAME_LEN
0000C6 5890 1000 001907 | L r9,_addrOBJECT_TO
0000CA 5820 D0D4 001907 | L r2,#ENV:FIND_VALU
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
0000CE 5810 6030 001907 | L r1,=A(HWTJSRCH)(,
0000D2 4100 20B0 001907 | LA r0,DIAG_AREA(,r2,
0000D6 4150 D0C0 001907 | LA r5,VALUE_HANDLE(,
0000DA 4180 7450 001907 | LA r8,'....'(,r7,110
0000DE 41B0 D0D0 001907 | LA r11,_temp55(,r13,
0000E2 41E0 7554 001907 | LA r14,'....'(,r7,13
0000E6 5820 D0E0 001907 | L r2,#wtemp_154(,r1
0000EA 5840 D0E4 001907 | L r4,#wtemp_155(,r1
0000EE A50A 8000 001907 | OILH r0,H'-32768'
0000F2 5000 D114 001907 | ST r0,#grSPILL1(,r13
0000F6 58F0 1008 001907 | L r15,&EPA_&WSA(,r1
0000FA 5800 100C 001907 | L r0,&EPA_&WSA(,r1,
0000FE 5000 C1F4 001907 | ST r0,_CEECAA_(,r12,
000102 4110 D098 001907 | LA r1,#MX_TEMP18(,r1
000106 5040 D098 001907 | ST r4,#MX_TEMP18(,r1
00010A 5840 D114 001907 | L r4,#grSPILL1(,r13
00010E 5020 D09C 001907 | ST r2,#MX_TEMP18(,r1
000112 5820 D110 001907 | L r2,#grSPILL0(,r13
000116 50E0 D0A0 001907 | ST r14,#MX_TEMP18(,r
00011A 50B0 D0A4 001907 | ST r11,#MX_TEMP18(,r
00011E 50A0 D0A8 001907 | ST r10,#MX_TEMP18(,r
000122 5090 D0AC 001907 | ST r9,#MX_TEMP18(,r1
000126 5080 D0B0 001907 | ST r8,#MX_TEMP18(,r1
00012A 5050 D0B4 001907 | ST r5,#MX_TEMP18(,r1
00012E 5040 D0B8 001907 | ST r4,#MX_TEMP18(,r1
000132 0DEF 001907 | BASR r14,r15
000134 1802 001907 | LR r0,r2
000136 5810 D0DC 001919 | L r1,#CEECAACRENT_1
00013A B9FA 1010 001919 | ALRK r1,r0,r1
00013E 5800 1000 001919 | L r0,RETURNCODE(,r1
000142 1200 001919 | LTR r0,r0
000144 A774 00A7 001919 | JNE @18L274
000148 001919 | @18L276 DS 0H
000148 001920 | @18L266 DS 0H
000148 5810 D0DC 001923 | L r1,#CEECAACRENT_1
00014C 5800 3006 001923 | L r0,=Q(RETURNCODE)
000150 B9FA 1090 001923 | ALRK r9,r0,r1
000154 5800 300A 001923 | L r0,=Q(PARSER_INST
000158 B9FA 1080 001923 | ALRK r8,r0,r1
00015C 5820 D0D4 001923 | L r2,#ENV:FIND_VALU
000160 5810 6034 001923 | L r1,=A(HWTJGJST)(,
000164 4120 20B0 001923 | LA r2,DIAG_AREA(,r2,
000168 4140 D0C8 001923 | LA r4,ENTRY_TYPE(,r1
00016C 4150 D0C0 001923 | LA r5,VALUE_HANDLE(,
000170 A52A 8000 001923 | OILH r2,H'-32768'
000174 58F0 1008 001923 | L r15,&EPA_&WSA(,r1
000178 5800 100C 001923 | L r0,&EPA_&WSA(,r1,
00017C 5000 C1F4 001923 | ST r0,_CEECAA_(,r12,
000180 4110 D098 001923 | LA r1,#MX_TEMP18(,r1
000184 5090 D098 001923 | ST r9,#MX_TEMP18(,r1
000188 5080 D09C 001923 | ST r8,#MX_TEMP18(,r1
00018C 5050 D0A0 001923 | ST r5,#MX_TEMP18(,r1
000190 5040 D0A4 001923 | ST r4,#MX_TEMP18(,r1
000194 5020 D0A8 001923 | ST r2,#MX_TEMP18(,r1
000198 0DEF 001923 | BASR r14,r15
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
00019A 5800 D0C8 001932 | L r0,ENTRY_TYPE(,r1
00019E 5810 D0D8 001932 | L r1,#SR_PARM_18(,r
0001A2 5810 100C 001932 | L r1,_addrEXPECTED_
0001A6 5810 1000 001932 | L r1,_shadow3(,r1,0
0001AA 1501 001932 | CLR r0,r1
0001AC A774 004D 001932 | JNE @18L277
0001B0 001932 | @18L279 DS 0H
0001B0 001933 | @18L268 DS 0H
0001B0 5800 D0C8 001934 | L r0,ENTRY_TYPE(,r1
0001B4 C20F 0000 0003 001934 | CLFI r0,F'3'
0001BA A784 0009 001934 | JE @18L282
0001BE 5800 D0C8 001934 | L r0,ENTRY_TYPE(,r1
0001C2 C20F 0000 0004 001934 | CLFI r0,F'4'
0001C8 A774 0020 001934 | JNE @18L280
0001CC 001934 | @18L282 DS 0H
0001CC 5810 D0D8 001936 | L r1,#SR_PARM_18(,r
0001D0 5800 1010 001936 | L r0,_addrVALUE_LEN
0001D4 4120 D0C8 001936 | LA r2,ENTRY_TYPE(,r1
0001D8 4140 D0C0 001936 | LA r4,VALUE_HANDLE(,
0001DC 5850 D0D4 001936 | L r5,#ENV:FIND_VALU
0001E0 5810 D0DC 001936 | L r1,#CEECAACRENT_1
0001E4 5010 C1F4 001936 | ST r1,_CEECAA_(,r12,
0001E8 58F0 300E 001936 | L r15,=A(DO_GET_VAL
0001EC 4110 D098 001936 | LA r1,#MX_TEMP18(,r1
0001F0 5040 D098 001936 | ST r4,#MX_TEMP18(,r1
0001F4 5020 D09C 001936 | ST r2,#MX_TEMP18(,r1
0001F8 5000 D0A0 001936 | ST r0,#MX_TEMP18(,r1
0001FC 0DEF 001936 | BASR r14,r15
0001FE 180F 001936 | LR r0,r15
000200 5000 D0C4 001936 | ST r0,VALUE_ADDR(,r1
000204 A7F4 001F 001936 | J @18L281
000208 001936 | @18L280 DS 0H
000208 E54C D0CC 0000 001939 | MVHI _temp54(r13,204),
00020E 4100 D0CC 001939 | LA r0,_temp54(,r13,2
000212 4120 D0C8 001939 | LA r2,ENTRY_TYPE(,r1
000216 4140 D0C0 001939 | LA r4,VALUE_HANDLE(,
00021A 5850 D0D4 001939 | L r5,#ENV:FIND_VALU
00021E 5810 D0DC 001939 | L r1,#CEECAACRENT_1
000222 5010 C1F4 001939 | ST r1,_CEECAA_(,r12,
000226 58F0 300E 001939 | L r15,=A(DO_GET_VAL
00022A 4110 D098 001939 | LA r1,#MX_TEMP18(,r1
00022E 5040 D098 001939 | ST r4,#MX_TEMP18(,r1
000232 5020 D09C 001939 | ST r2,#MX_TEMP18(,r1
000236 5000 D0A0 001939 | ST r0,#MX_TEMP18(,r1
00023A 0DEF 001939 | BASR r14,r15
00023C 180F 001939 | LR r0,r15
00023E 5000 D0C4 001939 | ST r0,VALUE_ADDR(,r1
000242 001939 | @18L281 DS 0H
000242 001940 | @18L269 DS 0H
000242 A7F4 0026 001940 | J @18L278
000246 001940 | @18L277 DS 0H
000246 001942 | @18L270 DS 0H
000246 5810 D0DC 001943 | L r1,#CEECAACRENT_1
00024A 5800 3012 001943 | L r0,=Q(ERRORMESSAG
00024E B9FA 1010 001943 | ALRK r1,r0,r1
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
000252 D26C 1000 7558 001943 | MVC ER...(109,r1,0),'
000258 5810 D0DC 001943 | L r1,#CEECAACRENT_1
00025C B9FA 1010 001943 | ALRK r1,r0,r1
000260 4110 106D 001943 | LA r1,ERRORMESSAGE(,
000264 5010 D0F4 001943 | ST r1,#STRTEMP18(,r1
000268 9240 1000 001943 | MVI ERRORMESSAGE(r1,0
00026C D259 1001 1000 001943 | MVC ERRORMESSAGE(90,r
000272 5810 D0DC 001946 | L r1,#CEECAACRENT_1
000276 1E01 001946 | ALR r0,r1
000278 5850 D0D4 001946 | L r5,#ENV:FIND_VALU
00027C 5010 C1F4 001946 | ST r1,_CEECAA_(,r12,
000280 58F0 3016 001946 | L r15,=A(DISPLAY_PA
000284 4110 D098 001946 | LA r1,#MX_TEMP18(,r1
000288 5000 D098 001946 | ST r0,#MX_TEMP18(,r1
00028C 0DEF 001946 | BASR r14,r15
00028E 001947 | @18L271 DS 0H
00028E 001947 | @18L278 DS 0H
00028E 001949 | @18L267 DS 0H
00028E A7F4 0026 001949 | J @18L275
000292 001949 | @18L274 DS 0H
000292 001951 | @18L272 DS 0H
000292 5810 D0DC 001952 | L r1,#CEECAACRENT_1
000296 5800 3012 001952 | L r0,=Q(ERRORMESSAG
00029A B9FA 1010 001952 | ALRK r1,r0,r1
00029E D23A 1000 75C8 001952 | MVC ERRORMESSAGE(59,r
0002A4 5810 D0DC 001952 | L r1,#CEECAACRENT_1
0002A8 B9FA 1010 001952 | ALRK r1,r0,r1
0002AC 4110 103B 001952 | LA r1,ERRORMESSAGE(,
0002B0 5010 D0F4 001952 | ST r1,#STRTEMP18(,r1
0002B4 9240 1000 001952 | MVI ERRORMESSAGE(r1,0
0002B8 D28B 1001 1000 001952 | MVC ERRORMESSAGE(140,
0002BE 5810 D0DC 001954 | L r1,#CEECAACRENT_1
0002C2 1E01 001954 | ALR r0,r1
0002C4 5850 D0D4 001954 | L r5,#ENV:FIND_VALU
0002C8 5010 C1F4 001954 | ST r1,_CEECAA_(,r12,
0002CC 58F0 3016 001954 | L r15,=A(DISPLAY_PA
0002D0 4110 D098 001954 | LA r1,#MX_TEMP18(,r1
0002D4 5000 D098 001954 | ST r0,#MX_TEMP18(,r1
0002D8 0DEF 001954 | BASR r14,r15
0002DA 001955 | @18L273 DS 0H
0002DA 001955 | @18L275 DS 0H
0002DA 58F0 D0C4 001962 | L r15,VALUE_ADDR(,r
0002DE A7F4 0002 001962 | J @18L437
0002E2 001963 | @18L265 DS 0H
0002E2 001963 | @18L437 DS 0H
0002E2 5800 D0DC 000000 | L r0,#CEECAACRENT_1
0002E6 5000 C1F4 000000 | ST r0,_CEECAA_(,r12,
0002EA Start of Epilog
0002EA 58D0 D004 001963 | L r13,4(,r13)
0002EE 58E0 D00C 001963 | L r14,12(,r13)
0002F2 982B D01C 001963 | LM r2,r11,28(r13)
0002F6 051E 001963 | BALR r1,r14
0002F8 0707 001963 | NOPR 7
0002FA 0000
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
0002FC Start of Literals
0002FC 00000000 =Q(@STATIC)
000300 00000000 =Q(RETURNCODE)
000304 00000000 =Q(PARSER_INSTANC
000308 00003E98 =A(DO_GET_VALUE)
00030C 00000000 =Q(ERRORMESSAGE)
000310 00003AE8 =A(DISPLAY_PARSE_
000314 End of Literals
*** General purpose registers used: 111111111111111
*** Floating point registers used: 111111110000000
*** Size of register spill area: 512(max) 12(used)
*** Size of dynamic storage: 280
*** Size of executable code: 762
*** CSECT Offset: 17336 : 0x43B8
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
FIND_OBJECT
000000 001813 | DS 0D
000000 47F0 F024 001813 | B 36(,r15)
000004 01C3C5C5 CEE eyecatcher
000008 000000D8 DSA size
00000C 00003020 =A(PPA1-FIND_OBJE
000010 47F0 F001 001813 | B 1(,r15)
000014 58F0 C31C 001813 | L r15,796(,r12)
000018 184E 001813 | LR r4,r14
00001A 05EF 001813 | BALR r14,r15
00001C 00000000 =F'0'
000020 A7F4 000C 001813 | J *+24
000024 90E7 D00C 001813 | STM r14,r7,12(r13)
000028 58E0 D04C 001813 | L r14,76(,r13)
00002C 4100 E0D8 001813 | LA r0,216(,r14)
000030 5500 C314 001813 | CL r0,788(,r12)
000034 A724 FFF0 001813 | JH *-32
000038 58F0 C280 001813 | L r15,640(,r12)
00003C 90F0 E048 001813 | STM r15,r0,72(r14)
000040 9210 E000 001813 | MVI 0(r14),16
000044 50D0 E004 001813 | ST r13,4(,r14)
000048 18DE 001813 | LR r13,r14
00004A C030 0000 006C 001813 | LARL r3,F'108'
000050 End of Prolog
000050 5800 C1F4 000000 | L r0,_CEECAA_(,r12,
000054 5000 D0D4 000000 | ST r0,#CEECAACRENT_1
000058 5010 D0C4 001813 | ST r1,#SR_PARM_19(,r
00005C 5050 D0C0 001813 | ST r5,#ENV:FIND_OBJE
000060 E54C D0B4 0000 001813 | MVHI OUT_HANDLE(r13,18
000066 5820 D0C4 001830 | L r2,#SR_PARM_19(,r
00006A 5800 2000 001830 | L r0,_addrOBJECT(,r
00006E 5810 2004 001830 | L r1,_addrSEARCH_ST
000072 5820 2008 001830 | L r2,_addrSEARCH_ST
000076 5020 D0C8 001830 | ST r2,#wtemp_151(,r1
00007A 5010 D0CC 001830 | ST r1,#wtemp_152(,r1
00007E 5000 D0D0 001830 | ST r0,#wtemp_153(,r1
000082 E54C D0BC 0001 001830 | MVHI _temp53(r13,188),
000088 E54C D0B8 0000 001830 | MVHI _temp52(r13,184),
00008E 4100 D0B8 001830 | LA r0,_temp52(,r13,1
000092 4120 D0BC 001830 | LA r2,_temp53(,r13,1
000096 5840 D0C8 001830 | L r4,#wtemp_151(,r1
00009A 5860 D0CC 001830 | L r6,#wtemp_152(,r1
00009E 5870 D0D0 001830 | L r7,#wtemp_153(,r1
0000A2 5850 D0C0 001830 | L r5,#ENV:FIND_OBJE
0000A6 5810 D0D4 001830 | L r1,#CEECAACRENT_1
0000AA 5010 C1F4 001830 | ST r1,_CEECAA_(,r12,
0000AE 58F0 3002 001830 | L r15,=A(FIND_VALUE
0000B2 4110 D098 001830 | LA r1,#MX_TEMP19(,r1
0000B6 5070 D098 001830 | ST r7,#MX_TEMP19(,r1
0000BA 5060 D09C 001830 | ST r6,#MX_TEMP19(,r1
0000BE 5040 D0A0 001830 | ST r4,#MX_TEMP19(,r1
0000C2 5020 D0A4 001830 | ST r2,#MX_TEMP19(,r1
0000C6 5000 D0A8 001830 | ST r0,#MX_TEMP19(,r1
0000CA 0DEF 001830 | BASR r14,r15
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
0000CC 180F 001830 | LR r0,r15
0000CE 5000 D0B0 001830 | ST r0,OBJECT_HANDLE_
0000D2 5810 D0D4 001837 | L r1,#CEECAACRENT_1
0000D6 5800 3006 001837 | L r0,=Q(RETURNCODE)
0000DA B9FA 1010 001837 | ALRK r1,r0,r1
0000DE 5800 1000 001837 | L r0,RETURNCODE(,r1
0000E2 1200 001837 | LTR r0,r0
0000E4 A774 000F 001837 | JNE @19L285
0000E8 5800 D0B0 001837 | L r0,OBJECT_HANDLE_
0000EC 1200 001837 | LTR r0,r0
0000EE A784 000A 001837 | JE @19L285
0000F2 001837 | @19L287 DS 0H
0000F2 5810 D0B0 001838 | L r1,OBJECT_HANDLE_
0000F6 5800 1000 001838 | L r0,_shadow4(,r1,0
0000FA 5000 D0B4 001838 | ST r0,OUT_HANDLE(,r1
0000FE A7F4 0002 001838 | J @19L286
000102 001838 | @19L285 DS 0H
000102 001838 | @19L286 DS 0H
000102 58F0 D0B4 001840 | L r15,OUT_HANDLE(,r
000106 A7F4 0002 001840 | J @19L436
00010A 001842 | @19L284 DS 0H
00010A 001842 | @19L436 DS 0H
00010A 5800 D0D4 000000 | L r0,#CEECAACRENT_1
00010E 5000 C1F4 000000 | ST r0,_CEECAA_(,r12,
000112 Start of Epilog
000112 58D0 D004 001842 | L r13,4(,r13)
000116 58E0 D00C 001842 | L r14,12(,r13)
00011A 9827 D01C 001842 | LM r2,r7,28(r13)
00011E 051E 001842 | BALR r1,r14
000120 0707 001842 | NOPR 7
000122 0000
000124 Start of Literals
000124 000043B8 =A(FIND_VALUE)
000128 00000000 =Q(RETURNCODE)
00012C End of Literals
*** General purpose registers used: 111111110000111
*** Floating point registers used: 111111110000000
*** Size of register spill area: 512(max) 0(used)
*** Size of dynamic storage: 216
*** Size of executable code: 290
*** CSECT Offset: 18128 : 0x46D0
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
FIND_STRING
000000 001762 | DS 0D
000000 47F0 F024 001762 | B 36(,r15)
000004 01C3C5C5 CEE eyecatcher
000008 000000D8 DSA size
00000C 00002F38 =A(PPA1-FIND_STRI
000010 47F0 F001 001762 | B 1(,r15)
000014 58F0 C31C 001762 | L r15,796(,r12)
000018 184E 001762 | LR r4,r14
00001A 05EF 001762 | BALR r14,r15
00001C 00000000 =F'0'
000020 A7F4 000C 001762 | J *+24
000024 90E7 D00C 001762 | STM r14,r7,12(r13)
000028 58E0 D04C 001762 | L r14,76(,r13)
00002C 4100 E0D8 001762 | LA r0,216(,r14)
000030 5500 C314 001762 | CL r0,788(,r12)
000034 A724 FFF0 001762 | JH *-32
000038 58F0 C280 001762 | L r15,640(,r12)
00003C 90F0 E048 001762 | STM r15,r0,72(r14)
000040 9210 E000 001762 | MVI 0(r14),16
000044 50D0 E004 001762 | ST r13,4(,r14)
000048 18DE 001762 | LR r13,r14
00004A C030 0000 0070 001762 | LARL r3,F'112'
000050 End of Prolog
000050 5800 C1F4 000000 | L r0,_CEECAA_(,r12,
000054 5000 D0D0 000000 | ST r0,#CEECAACRENT_2
000058 5010 D0C0 001762 | ST r1,#SR_PARM_20(,r
00005C 5050 D0BC 001762 | ST r5,#ENV:FIND_STRI
000060 E54C D0B4 0000 001762 | MVHI OUT_HANDLE(r13,18
000066 5810 D0C0 001777 | L r1,#SR_PARM_20(,r
00006A 5810 100C 001777 | L r1,_addrVALUE_LEN
00006E E54C 1000 0000 001777 | MVHI _shadow4(r1,0),H'
000074 5820 D0C0 001779 | L r2,#SR_PARM_20(,r
000078 5800 2000 001779 | L r0,_addrOBJECT(,r
00007C 5810 2004 001779 | L r1,_addrSEARCH_ST
000080 5820 2008 001779 | L r2,_addrSEARCH_ST
000084 5020 D0C4 001779 | ST r2,#wtemp_148(,r1
000088 5010 D0C8 001779 | ST r1,#wtemp_149(,r1
00008C 5000 D0CC 001779 | ST r0,#wtemp_150(,r1
000090 E54C D0B8 0003 001779 | MVHI _temp51(r13,184),
000096 5810 D0C0 001779 | L r1,#SR_PARM_20(,r
00009A 5800 100C 001779 | L r0,_addrVALUE_LEN
00009E 4120 D0B8 001779 | LA r2,_temp51(,r13,1
0000A2 5840 D0C4 001779 | L r4,#wtemp_148(,r1
0000A6 5860 D0C8 001779 | L r6,#wtemp_149(,r1
0000AA 5870 D0CC 001779 | L r7,#wtemp_150(,r1
0000AE 5850 D0BC 001779 | L r5,#ENV:FIND_STRI
0000B2 5810 D0D0 001779 | L r1,#CEECAACRENT_2
0000B6 5010 C1F4 001779 | ST r1,_CEECAA_(,r12,
0000BA 58F0 3002 001779 | L r15,=A(FIND_VALUE
0000BE 4110 D098 001779 | LA r1,#MX_TEMP20(,r1
0000C2 5070 D098 001779 | ST r7,#MX_TEMP20(,r1
0000C6 5060 D09C 001779 | ST r6,#MX_TEMP20(,r1
0000CA 5040 D0A0 001779 | ST r4,#MX_TEMP20(,r1
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
0000CE 5020 D0A4 001779 | ST r2,#MX_TEMP20(,r1
0000D2 5000 D0A8 001779 | ST r0,#MX_TEMP20(,r1
0000D6 0DEF 001779 | BASR r14,r15
0000D8 180F 001779 | LR r0,r15
0000DA 5000 D0B0 001779 | ST r0,STRING_VALUE_A
0000DE 5810 D0D0 001786 | L r1,#CEECAACRENT_2
0000E2 5800 3006 001786 | L r0,=Q(RETURNCODE)
0000E6 B9FA 1010 001786 | ALRK r1,r0,r1
0000EA 5800 1000 001786 | L r0,RETURNCODE(,r1
0000EE 1200 001786 | LTR r0,r0
0000F0 A774 000D 001786 | JNE @20L290
0000F4 5800 D0B0 001786 | L r0,STRING_VALUE_A
0000F8 1200 001786 | LTR r0,r0
0000FA A784 0008 001786 | JE @20L290
0000FE 001786 | @20L292 DS 0H
0000FE 5800 D0B0 001787 | L r0,STRING_VALUE_A
000102 5000 D0B4 001787 | ST r0,OUT_HANDLE(,r1
000106 A7F4 0002 001787 | J @20L291
00010A 001787 | @20L290 DS 0H
00010A 001787 | @20L291 DS 0H
00010A 58F0 D0B4 001789 | L r15,OUT_HANDLE(,r
00010E A7F4 0002 001789 | J @20L435
000112 001791 | @20L289 DS 0H
000112 001791 | @20L435 DS 0H
000112 5800 D0D0 000000 | L r0,#CEECAACRENT_2
000116 5000 C1F4 000000 | ST r0,_CEECAA_(,r12,
00011A Start of Epilog
00011A 58D0 D004 001791 | L r13,4(,r13)
00011E 58E0 D00C 001791 | L r14,12(,r13)
000122 9827 D01C 001791 | LM r2,r7,28(r13)
000126 051E 001791 | BALR r1,r14
000128 0707 001791 | NOPR 7
00012A 0000
00012C Start of Literals
00012C 000043B8 =A(FIND_VALUE)
000130 00000000 =Q(RETURNCODE)
000134 End of Literals
*** General purpose registers used: 111111110000111
*** Floating point registers used: 111111110000000
*** Size of register spill area: 512(max) 0(used)
*** Size of dynamic storage: 216
*** Size of executable code: 298
*** CSECT Offset: 18432 : 0x4800
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
TERM_PARSER
000000 001678 | DS 0D
000000 47F0 F024 001678 | B 36(,r15)
000004 01C3C5C5 CEE eyecatcher
000008 000000E8 DSA size
00000C 00002E48 =A(PPA1-TERM_PARS
000010 47F0 F001 001678 | B 1(,r15)
000014 58F0 C31C 001678 | L r15,796(,r12)
000018 184E 001678 | LR r4,r14
00001A 05EF 001678 | BALR r14,r15
00001C 00000000 =F'0'
000020 A7F4 000C 001678 | J *+24
000024 90E9 D00C 001678 | STM r14,r9,12(r13)
000028 58E0 D04C 001678 | L r14,76(,r13)
00002C 4100 E0E8 001678 | LA r0,232(,r14)
000030 5500 C314 001678 | CL r0,788(,r12)
000034 A724 FFF0 001678 | JH *-32
000038 58F0 C280 001678 | L r15,640(,r12)
00003C 90F0 E048 001678 | STM r15,r0,72(r14)
000040 9210 E000 001678 | MVI 0(r14),16
000044 50D0 E004 001678 | ST r13,4(,r14)
000048 18DE 001678 | LR r13,r14
00004A C030 0000 0164 001678 | LARL r3,F'356'
000050 End of Prolog
000050 5800 C1F4 000000 | L r0,_CEECAA_(,r12,
000054 5000 D0B4 000000 | ST r0,#CEECAACRENT_2
000058 5800 D0B4 000000 | L r0,#CEECAACRENT_2
00005C 5820 3002 000000 | L r2,=Q(@STATIC)(,r
000060 1E02 000000 | ALR r0,r2
000062 1860 000000 | LR r6,r0
000064 C070 0000 0D1E 000000 | LARL r7,F'3358'
00006A 5010 D0B8 001678 | ST r1,#SR_PARM_21(,r
00006E 5050 D0B0 001678 | ST r5,#ENV:TERM_PARS
000072 5810 D0B4 001691 | L r1,#CEECAACRENT_2
000076 5800 3006 001691 | L r0,=Q(RETURNCODE)
00007A B9FA 1010 001691 | ALRK r1,r0,r1
00007E 5800 1000 001691 | L r0,RETURNCODE(,r1
000082 A70E 0102 001691 | CHI r0,H'258'
000086 A784 0029 001691 | JE @21L301
00008A 001691 | @21L303 DS 0H
00008A 5810 D0B4 001692 | L r1,#CEECAACRENT_2
00008E 5800 3006 001692 | L r0,=Q(RETURNCODE)
000092 B9FA 1080 001692 | ALRK r8,r0,r1
000096 5810 D0B8 001692 | L r1,#SR_PARM_21(,r
00009A 5850 1000 001692 | L r5,_addrPARSERINS
00009E 5820 D0B0 001692 | L r2,#ENV:TERM_PARS
0000A2 5810 602C 001692 | L r1,=A(HWTJTERM)(,
0000A6 4120 20B0 001692 | LA r2,DIAG_AREA(,r2,
0000AA 4140 7450 001692 | LA r4,'....'(,r7,110
0000AE A52A 8000 001692 | OILH r2,H'-32768'
0000B2 58F0 1008 001692 | L r15,&EPA_&WSA(,r1
0000B6 5800 100C 001692 | L r0,&EPA_&WSA(,r1,
0000BA 5000 C1F4 001692 | ST r0,_CEECAA_(,r12,
0000BE 4110 D098 001692 | LA r1,#MX_TEMP21(,r1
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
0000C2 5080 D098 001692 | ST r8,#MX_TEMP21(,r1
0000C6 5050 D09C 001692 | ST r5,#MX_TEMP21(,r1
0000CA 5040 D0A0 001692 | ST r4,#MX_TEMP21(,r1
0000CE 5020 D0A4 001692 | ST r2,#MX_TEMP21(,r1
0000D2 0DEF 001692 | BASR r14,r15
0000D4 A7F4 0002 001692 | J @21L302
0000D8 001692 | @21L301 DS 0H
0000D8 001692 | @21L302 DS 0H
0000D8 5810 D0B4 001699 | L r1,#CEECAACRENT_2
0000DC 5800 3006 001699 | L r0,=Q(RETURNCODE)
0000E0 B9FA 1010 001699 | ALRK r1,r0,r1
0000E4 5800 1000 001699 | L r0,RETURNCODE(,r1
0000E8 5000 D0E4 001699 | ST r0,#SW_WORK21(,r1
0000EC 1200 001699 | LTR r0,r0
0000EE A784 000A 001699 | JE @21L441
0000F2 5800 D0E4 001699 | L r0,#SW_WORK21(,r1
0000F6 A70E 0102 001699 | CHI r0,H'258'
0000FA A784 0023 001699 | JE @21L442
0000FE A7F4 00CF 001699 | J @21L443
000102 001699 | @21L441 DS 0H
000102 5810 6000 001702 | L r1,=A(IBMQJDSB)(,
000106 4120 7018 001702 | LA r2,_Dsc_000004(,r
00010A 4140 7088 001702 | LA r4,_Dsc_000018(,r
00010E 58F0 1008 001702 | L r15,&EPA_&WSA(,r1
000112 5800 100C 001702 | L r0,&EPA_&WSA(,r1,
000116 5000 C1F4 001702 | ST r0,_CEECAA_(,r12,
00011A 4150 7D4C 001702 | LA r5,+CONSTANT_AREA
00011E 4110 D098 001702 | LA r1,#MX_TEMP21(,r1
000122 5050 D098 001702 | ST r5,#MX_TEMP21(,r1
000126 5040 D09C 001702 | ST r4,#MX_TEMP21(,r1
00012A E54C D0A0 0000 001702 | MVHI #MX_TEMP21(r13,16
000130 5020 D0A4 001702 | ST r2,#MX_TEMP21(,r1
000134 E54C D0A8 0000 001702 | MVHI #MX_TEMP21(r13,16
00013A 0DEF 001702 | BASR r14,r15
00013C A7F4 00DF 001702 | J @21L433
000140 001699 | @21L442 DS 0H
000140 001705 | @21L295 DS 0H
000140 5810 D0B4 001706 | L r1,#CEECAACRENT_2
000144 5800 300A 001706 | L r0,=Q(ERRORMESSAG
000148 B9FA 1010 001706 | ALRK r1,r0,r1
00014C 5010 D0C4 001706 | ST r1,#STRTEMP21(,r1
000150 9240 1000 001706 | MVI ERRORMESSAGE(r1,0
000154 D2C6 1001 1000 001706 | MVC ERRORMESSAGE(199,
00015A 5810 D0B4 001707 | L r1,#CEECAACRENT_2
00015E B9FA 1010 001707 | ALRK r1,r0,r1
000162 D23C 1000 7490 001707 | MVC ERRORMESSAGE(61,r
000168 5810 D0B4 001707 | L r1,#CEECAACRENT_2
00016C B9FA 1010 001707 | ALRK r1,r0,r1
000170 4110 103D 001707 | LA r1,ERRORMESSAGE(,
000174 5010 D0C4 001707 | ST r1,#STRTEMP21(,r1
000178 9240 1000 001707 | MVI ERRORMESSAGE(r1,0
00017C D289 1001 1000 001707 | MVC ERRORMESSAGE(138,
000182 5810 D0B4 001709 | L r1,#CEECAACRENT_2
000186 1E01 001709 | ALR r0,r1
000188 5850 D0B0 001709 | L r5,#ENV:TERM_PARS
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
00018C 5010 C1F4 001709 | ST r1,_CEECAA_(,r12,
000190 58F0 300E 001709 | L r15,=A(DISPLAY_PA
000194 4110 D098 001709 | LA r1,#MX_TEMP21(,r1
000198 5000 D098 001709 | ST r0,#MX_TEMP21(,r1
00019C 0DEF 001709 | BASR r14,r15
00019E 5800 D0B4 001714 | L r0,#CEECAACRENT_2
0001A2 5820 3006 001714 | L r2,=Q(RETURNCODE)
0001A6 B9FA 0092 001714 | ALRK r9,r2,r0
0001AA 5810 D0B8 001714 | L r1,#SR_PARM_21(,r
0001AE 5880 1000 001714 | L r8,_addrPARSERINS
0001B2 5840 D0B0 001714 | L r4,#ENV:TERM_PARS
0001B6 5810 602C 001714 | L r1,=A(HWTJTERM)(,
0001BA 4140 40B0 001714 | LA r4,DIAG_AREA(,r4,
0001BE 4150 74D0 001714 | LA r5,'....'(,r7,123
0001C2 A54A 8000 001714 | OILH r4,H'-32768'
0001C6 58F0 1008 001714 | L r15,&EPA_&WSA(,r1
0001CA 5800 100C 001714 | L r0,&EPA_&WSA(,r1,
0001CE 5000 C1F4 001714 | ST r0,_CEECAA_(,r12,
0001D2 4110 D098 001714 | LA r1,#MX_TEMP21(,r1
0001D6 5090 D098 001714 | ST r9,#MX_TEMP21(,r1
0001DA 5080 D09C 001714 | ST r8,#MX_TEMP21(,r1
0001DE 5050 D0A0 001714 | ST r5,#MX_TEMP21(,r1
0001E2 5040 D0A4 001714 | ST r4,#MX_TEMP21(,r1
0001E6 0DEF 001714 | BASR r14,r15
0001E8 1802 001714 | LR r0,r2
0001EA 5810 D0B4 001721 | L r1,#CEECAACRENT_2
0001EE B9FA 1010 001721 | ALRK r1,r0,r1
0001F2 5800 1000 001721 | L r0,RETURNCODE(,r1
0001F6 1200 001721 | LTR r0,r0
0001F8 A774 0021 001721 | JNE @21L304
0001FC 001721 | @21L306 DS 0H
0001FC 5810 6000 001722 | L r1,=A(IBMQJDSB)(,
000200 4120 7018 001722 | LA r2,_Dsc_000004(,r
000204 4140 70E0 001722 | LA r4,_Dsc_000029(,r
000208 58F0 1008 001722 | L r15,&EPA_&WSA(,r1
00020C 5800 100C 001722 | L r0,&EPA_&WSA(,r1,
000210 5000 C1F4 001722 | ST r0,_CEECAA_(,r12,
000214 4150 7D6C 001722 | LA r5,+CONSTANT_AREA
000218 4110 D098 001722 | LA r1,#MX_TEMP21(,r1
00021C 5050 D098 001722 | ST r5,#MX_TEMP21(,r1
000220 5040 D09C 001722 | ST r4,#MX_TEMP21(,r1
000224 E54C D0A0 0000 001722 | MVHI #MX_TEMP21(r13,16
00022A 5020 D0A4 001722 | ST r2,#MX_TEMP21(,r1
00022E E54C D0A8 0000 001722 | MVHI #MX_TEMP21(r13,16
000234 0DEF 001722 | BASR r14,r15
000236 A7F4 0031 001722 | J @21L305
00023A 001722 | @21L304 DS 0H
00023A 001724 | @21L297 DS 0H
00023A 5810 D0B4 001725 | L r1,#CEECAACRENT_2
00023E 5800 300A 001725 | L r0,=Q(ERRORMESSAG
000242 B9FA 1010 001725 | ALRK r1,r0,r1
000246 5010 D0C4 001725 | ST r1,#STRTEMP21(,r1
00024A 9240 1000 001725 | MVI ERRORMESSAGE(r1,0
00024E D2C6 1001 1000 001725 | MVC ERRORMESSAGE(199,
000254 5810 D0B4 001726 | L r1,#CEECAACRENT_2
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
000258 B9FA 1010 001726 | ALRK r1,r0,r1
00025C D241 1000 74D4 001726 | MVC ERRORMESSAGE(66,r
000262 5810 D0B4 001726 | L r1,#CEECAACRENT_2
000266 B9FA 1010 001726 | ALRK r1,r0,r1
00026A 4110 1042 001726 | LA r1,ERRORMESSAGE(,
00026E 5010 D0C4 001726 | ST r1,#STRTEMP21(,r1
000272 9240 1000 001726 | MVI ERRORMESSAGE(r1,0
000276 D284 1001 1000 001726 | MVC ERRORMESSAGE(133,
00027C 5810 D0B4 001728 | L r1,#CEECAACRENT_2
000280 1E01 001728 | ALR r0,r1
000282 5850 D0B0 001728 | L r5,#ENV:TERM_PARS
000286 5010 C1F4 001728 | ST r1,_CEECAA_(,r12,
00028A 58F0 300E 001728 | L r15,=A(DISPLAY_PA
00028E 4110 D098 001728 | LA r1,#MX_TEMP21(,r1
000292 5000 D098 001728 | ST r0,#MX_TEMP21(,r1
000296 0DEF 001728 | BASR r14,r15
000298 001729 | @21L298 DS 0H
000298 001729 | @21L305 DS 0H
000298 001730 | @21L296 DS 0H
000298 A7F4 0031 001730 | J @21L433
00029C 000000 | @21L443 DS 0H
00029C 001732 | @21L299 DS 0H
00029C 5810 D0B4 001733 | L r1,#CEECAACRENT_2
0002A0 5800 300A 001733 | L r0,=Q(ERRORMESSAG
0002A4 B9FA 1010 001733 | ALRK r1,r0,r1
0002A8 5010 D0C4 001733 | ST r1,#STRTEMP21(,r1
0002AC 9240 1000 001733 | MVI ERRORMESSAGE(r1,0
0002B0 D2C6 1001 1000 001733 | MVC ERRORMESSAGE(199,
0002B6 5810 D0B4 001734 | L r1,#CEECAACRENT_2
0002BA B9FA 1010 001734 | ALRK r1,r0,r1
0002BE D239 1000 7518 001734 | MVC ERRORMESSAGE(58,r
0002C4 5810 D0B4 001734 | L r1,#CEECAACRENT_2
0002C8 B9FA 1010 001734 | ALRK r1,r0,r1
0002CC 4110 103A 001734 | LA r1,ERRORMESSAGE(,
0002D0 5010 D0C4 001734 | ST r1,#STRTEMP21(,r1
0002D4 9240 1000 001734 | MVI ERRORMESSAGE(r1,0
0002D8 D28C 1001 1000 001734 | MVC ERRORMESSAGE(141,
0002DE 5810 D0B4 001736 | L r1,#CEECAACRENT_2
0002E2 1E01 001736 | ALR r0,r1
0002E4 5850 D0B0 001736 | L r5,#ENV:TERM_PARS
0002E8 5010 C1F4 001736 | ST r1,_CEECAA_(,r12,
0002EC 58F0 300E 001736 | L r15,=A(DISPLAY_PA
0002F0 4110 D098 001736 | LA r1,#MX_TEMP21(,r1
0002F4 5000 D098 001736 | ST r0,#MX_TEMP21(,r1
0002F8 0DEF 001736 | BASR r14,r15
0002FA 001737 | @21L300 DS 0H
0002FA 001699 | @21L433 DS 0H
0002FA 001740 | @21L294 DS 0H
0002FA 001740 | @21L434 DS 0H
0002FA 5800 D0B4 000000 | L r0,#CEECAACRENT_2
0002FE 5000 C1F4 000000 | ST r0,_CEECAA_(,r12,
000302 Start of Epilog
000302 58D0 D004 001740 | L r13,4(,r13)
000306 58E0 D00C 001740 | L r14,12(,r13)
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
00030A 9829 D01C 001740 | LM r2,r9,28(r13)
00030E 051E 001740 | BALR r1,r14
000310 0707 001740 | NOPR 7
000312 0000
000314 Start of Literals
000314 00000000 =Q(@STATIC)
000318 00000000 =Q(RETURNCODE)
00031C 00000000 =Q(ERRORMESSAGE)
000320 00003AE8 =A(DISPLAY_PARSE_
000324 End of Literals
*** General purpose registers used: 111111111100111
*** Floating point registers used: 111111110000000
*** Size of register spill area: 512(max) 0(used)
*** Size of dynamic storage: 232
*** Size of executable code: 786
*** CSECT Offset: 18744 : 0x4938
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
PARSE_JSON_TEXT
000000 001616 | DS 0D
000000 47F0 F024 001616 | B 36(,r15)
000004 01C3C5C5 CEE eyecatcher
000008 000000E0 DSA size
00000C 00002B68 =A(PPA1-PARSE_JSO
000010 47F0 F001 001616 | B 1(,r15)
000014 58F0 C31C 001616 | L r15,796(,r12)
000018 184E 001616 | LR r4,r14
00001A 05EF 001616 | BALR r14,r15
00001C 00000000 =F'0'
000020 A7F4 000C 001616 | J *+24
000024 90EA D00C 001616 | STM r14,r10,12(r13)
000028 58E0 D04C 001616 | L r14,76(,r13)
00002C 4100 E0E0 001616 | LA r0,224(,r14)
000030 5500 C314 001616 | CL r0,788(,r12)
000034 A724 FFF0 001616 | JH *-32
000038 58F0 C280 001616 | L r15,640(,r12)
00003C 90F0 E048 001616 | STM r15,r0,72(r14)
000040 9210 E000 001616 | MVI 0(r14),16
000044 50D0 E004 001616 | ST r13,4(,r14)
000048 18DE 001616 | LR r13,r14
00004A C030 0000 00A9 001616 | LARL r3,F'169'
000050 End of Prolog
000050 5800 C1F4 000000 | L r0,_CEECAA_(,r12,
000054 5000 D0BC 000000 | ST r0,#CEECAACRENT_2
000058 5800 D0BC 000000 | L r0,#CEECAACRENT_2
00005C 5820 3000 000000 | L r2,=Q(@STATIC)(,r
000060 1E02 000000 | ALR r0,r2
000062 1860 000000 | LR r6,r0
000064 C070 0000 0B8A 000000 | LARL r7,F'2954'
00006A 5010 D0B8 001616 | ST r1,#SR_PARM_22(,r
00006E 5050 D0B4 001616 | ST r5,#ENV:PARSE_JSO
000072 5810 D0B8 001623 | L r1,#SR_PARM_22(,r
000076 5810 1008 001623 | L r1,_addrINBODYLEN
00007A 5800 1000 001623 | L r0,_shadow3(,r1,0
00007E 5000 D0B0 001623 | ST r0,RESPBODYLEN(,r
000082 5800 D0BC 001629 | L r0,#CEECAACRENT_2
000086 5820 3004 001629 | L r2,=Q(RETURNCODE)
00008A B9FA 00A2 001629 | ALRK r10,r2,r0
00008E 5810 D0B8 001629 | L r1,#SR_PARM_22(,r
000092 5890 1000 001629 | L r9,_addrPARSERINS
000096 5880 1004 001629 | L r8,_addrRESPBODY(
00009A 5840 D0B4 001629 | L r4,#ENV:PARSE_JSO
00009E 5810 6028 001629 | L r1,=A(HWTJPARS)(,
0000A2 4140 40B0 001629 | LA r4,DIAG_AREA(,r4,
0000A6 4150 D0B0 001629 | LA r5,RESPBODYLEN(,r
0000AA A54A 8000 001629 | OILH r4,H'-32768'
0000AE 58F0 1008 001629 | L r15,&EPA_&WSA(,r1
0000B2 5800 100C 001629 | L r0,&EPA_&WSA(,r1,
0000B6 5000 C1F4 001629 | ST r0,_CEECAA_(,r12,
0000BA 4110 D098 001629 | LA r1,#MX_TEMP22(,r1
0000BE 50A0 D098 001629 | ST r10,#MX_TEMP22(,r
0000C2 5090 D09C 001629 | ST r9,#MX_TEMP22(,r1
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
0000C6 5080 D0A0 001629 | ST r8,#MX_TEMP22(,r1
0000CA 5050 D0A4 001629 | ST r5,#MX_TEMP22(,r1
0000CE 5040 D0A8 001629 | ST r4,#MX_TEMP22(,r1
0000D2 0DEF 001629 | BASR r14,r15
0000D4 1802 001629 | LR r0,r2
0000D6 5810 D0BC 001635 | L r1,#CEECAACRENT_2
0000DA B9FA 1010 001635 | ALRK r1,r0,r1
0000DE 5800 1000 001635 | L r0,RETURNCODE(,r1
0000E2 1200 001635 | LTR r0,r0
0000E4 A774 0021 001635 | JNE @22L311
0000E8 001635 | @22L313 DS 0H
0000E8 5810 6000 001636 | L r1,=A(IBMQJDSB)(,
0000EC 4120 7018 001636 | LA r2,_Dsc_000004(,r
0000F0 4140 7068 001636 | LA r4,_Dsc_000014(,r
0000F4 58F0 1008 001636 | L r15,&EPA_&WSA(,r1
0000F8 5800 100C 001636 | L r0,&EPA_&WSA(,r1,
0000FC 5000 C1F4 001636 | ST r0,_CEECAA_(,r12,
000100 4150 7D98 001636 | LA r5,+CONSTANT_AREA
000104 4110 D098 001636 | LA r1,#MX_TEMP22(,r1
000108 5050 D098 001636 | ST r5,#MX_TEMP22(,r1
00010C 5040 D09C 001636 | ST r4,#MX_TEMP22(,r1
000110 E54C D0A0 0000 001636 | MVHI #MX_TEMP22(r13,16
000116 5020 D0A4 001636 | ST r2,#MX_TEMP22(,r1
00011A E54C D0A8 0000 001636 | MVHI #MX_TEMP22(r13,16
000120 0DEF 001636 | BASR r14,r15
000122 A7F4 0031 001636 | J @22L312
000126 001636 | @22L311 DS 0H
000126 001638 | @22L309 DS 0H
000126 5810 D0BC 001639 | L r1,#CEECAACRENT_2
00012A 5800 3008 001639 | L r0,=Q(ERRORMESSAG
00012E B9FA 1010 001639 | ALRK r1,r0,r1
000132 5010 D0C8 001639 | ST r1,#STRTEMP22(,r1
000136 9240 1000 001639 | MVI ERRORMESSAGE(r1,0
00013A D2C6 1001 1000 001639 | MVC ERRORMESSAGE(199,
000140 5810 D0BC 001640 | L r1,#CEECAACRENT_2
000144 B9FA 1010 001640 | ALRK r1,r0,r1
000148 D219 1000 7474 001640 | MVC ERRORMESSAGE(26,r
00014E 5810 D0BC 001640 | L r1,#CEECAACRENT_2
000152 B9FA 1010 001640 | ALRK r1,r0,r1
000156 4110 101A 001640 | LA r1,ERRORMESSAGE(,
00015A 5010 D0C8 001640 | ST r1,#STRTEMP22(,r1
00015E 9240 1000 001640 | MVI ERRORMESSAGE(r1,0
000162 D2AC 1001 1000 001640 | MVC ERRORMESSAGE(173,
000168 5810 D0BC 001641 | L r1,#CEECAACRENT_2
00016C 1E01 001641 | ALR r0,r1
00016E 5850 D0B4 001641 | L r5,#ENV:PARSE_JSO
000172 5010 C1F4 001641 | ST r1,_CEECAA_(,r12,
000176 58F0 300C 001641 | L r15,=A(DISPLAY_PA
00017A 4110 D098 001641 | LA r1,#MX_TEMP22(,r1
00017E 5000 D098 001641 | ST r0,#MX_TEMP22(,r1
000182 0DEF 001641 | BASR r14,r15
000184 001642 | @22L310 DS 0H
000184 001642 | @22L312 DS 0H
000184 001644 | @22L308 DS 0H
000184 001644 | @22L432 DS 0H
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
000184 5800 D0BC 000000 | L r0,#CEECAACRENT_2
000188 5000 C1F4 000000 | ST r0,_CEECAA_(,r12,
00018C Start of Epilog
00018C 58D0 D004 001644 | L r13,4(,r13)
000190 58E0 D00C 001644 | L r14,12(,r13)
000194 982A D01C 001644 | LM r2,r10,28(r13)
000198 051E 001644 | BALR r1,r14
00019A 0707 001644 | NOPR 7
00019C Start of Literals
00019C 00000000 =Q(@STATIC)
0001A0 00000000 =Q(RETURNCODE)
0001A4 00000000 =Q(ERRORMESSAGE)
0001A8 00003AE8 =A(DISPLAY_PARSE_
0001AC End of Literals
*** General purpose registers used: 111111111110111
*** Floating point registers used: 111111110000000
*** Size of register spill area: 512(max) 0(used)
*** Size of dynamic storage: 224
*** Size of executable code: 412
*** CSECT Offset: 19552 : 0x4C60
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
INIT_PARSER
000000 001574 | DS 0D
000000 47F0 F024 001574 | B 36(,r15)
000004 01C3C5C5 CEE eyecatcher
000008 000000E0 DSA size
00000C 00002A08 =A(PPA1-INIT_PARS
000010 47F0 F001 001574 | B 1(,r15)
000014 58F0 C31C 001574 | L r15,796(,r12)
000018 184E 001574 | LR r4,r14
00001A 05EF 001574 | BALR r14,r15
00001C 00000000 =F'0'
000020 A7F4 000C 001574 | J *+24
000024 90E9 D00C 001574 | STM r14,r9,12(r13)
000028 58E0 D04C 001574 | L r14,76(,r13)
00002C 4100 E0E0 001574 | LA r0,224(,r14)
000030 5500 C314 001574 | CL r0,788(,r12)
000034 A724 FFF0 001574 | JH *-32
000038 58F0 C280 001574 | L r15,640(,r12)
00003C 90F0 E048 001574 | STM r15,r0,72(r14)
000040 9210 E000 001574 | MVI 0(r14),16
000044 50D0 E004 001574 | ST r13,4(,r14)
000048 18DE 001574 | LR r13,r14
00004A C030 0000 009D 001574 | LARL r3,F'157'
000050 End of Prolog
000050 5800 C1F4 000000 | L r0,_CEECAA_(,r12,
000054 5000 D0B4 000000 | ST r0,#CEECAACRENT_2
000058 5800 D0B4 000000 | L r0,#CEECAACRENT_2
00005C 5820 3000 000000 | L r2,=Q(@STATIC)(,r
000060 1E02 000000 | ALR r0,r2
000062 1860 000000 | LR r6,r0
000064 C070 0000 0AB2 000000 | LARL r7,F'2738'
00006A 5010 D0B8 001574 | ST r1,#SR_PARM_23(,r
00006E 5050 D0B0 001574 | ST r5,#ENV:INIT_PARS
000072 5800 D0B4 001579 | L r0,#CEECAACRENT_2
000076 5820 3004 001579 | L r2,=Q(RETURNCODE)
00007A B9FA 0092 001579 | ALRK r9,r2,r0
00007E 5810 D0B8 001579 | L r1,#SR_PARM_23(,r
000082 5850 1000 001579 | L r5,_addrPARSERINS
000086 5840 D0B0 001579 | L r4,#ENV:INIT_PARS
00008A 5810 6024 001579 | L r1,=A(HWTJINIT)(,
00008E 4140 40B0 001579 | LA r4,DIAG_AREA(,r4,
000092 4180 7450 001579 | LA r8,'....'(,r7,110
000096 A54A 8000 001579 | OILH r4,H'-32768'
00009A 58F0 1008 001579 | L r15,&EPA_&WSA(,r1
00009E 5800 100C 001579 | L r0,&EPA_&WSA(,r1,
0000A2 5000 C1F4 001579 | ST r0,_CEECAA_(,r12,
0000A6 4110 D098 001579 | LA r1,#MX_TEMP23(,r1
0000AA 5090 D098 001579 | ST r9,#MX_TEMP23(,r1
0000AE 5080 D09C 001579 | ST r8,#MX_TEMP23(,r1
0000B2 5050 D0A0 001579 | ST r5,#MX_TEMP23(,r1
0000B6 5040 D0A4 001579 | ST r4,#MX_TEMP23(,r1
0000BA 0DEF 001579 | BASR r14,r15
0000BC 1802 001579 | LR r0,r2
0000BE 5810 D0B4 001584 | L r1,#CEECAACRENT_2
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
0000C2 B9FA 1010 001584 | ALRK r1,r0,r1
0000C6 5800 1000 001584 | L r0,RETURNCODE(,r1
0000CA 1200 001584 | LTR r0,r0
0000CC A774 0021 001584 | JNE @23L318
0000D0 001584 | @23L320 DS 0H
0000D0 5810 6000 001585 | L r1,=A(IBMQJDSB)(,
0000D4 4120 7018 001585 | LA r2,_Dsc_000004(,r
0000D8 4140 70C0 001585 | LA r4,_Dsc_000025(,r
0000DC 58F0 1008 001585 | L r15,&EPA_&WSA(,r1
0000E0 5800 100C 001585 | L r0,&EPA_&WSA(,r1,
0000E4 5000 C1F4 001585 | ST r0,_CEECAA_(,r12,
0000E8 4150 7DB2 001585 | LA r5,+CONSTANT_AREA
0000EC 4110 D098 001585 | LA r1,#MX_TEMP23(,r1
0000F0 5050 D098 001585 | ST r5,#MX_TEMP23(,r1
0000F4 5040 D09C 001585 | ST r4,#MX_TEMP23(,r1
0000F8 E54C D0A0 0000 001585 | MVHI #MX_TEMP23(r13,16
0000FE 5020 D0A4 001585 | ST r2,#MX_TEMP23(,r1
000102 E54C D0A8 0000 001585 | MVHI #MX_TEMP23(r13,16
000108 0DEF 001585 | BASR r14,r15
00010A A7F4 0031 001585 | J @23L319
00010E 001585 | @23L318 DS 0H
00010E 001587 | @23L316 DS 0H
00010E 5810 D0B4 001588 | L r1,#CEECAACRENT_2
000112 5800 3008 001588 | L r0,=Q(ERRORMESSAG
000116 B9FA 1010 001588 | ALRK r1,r0,r1
00011A 5010 D0C4 001588 | ST r1,#STRTEMP23(,r1
00011E 9240 1000 001588 | MVI ERRORMESSAGE(r1,0
000122 D2C6 1001 1000 001588 | MVC ERRORMESSAGE(199,
000128 5810 D0B4 001589 | L r1,#CEECAACRENT_2
00012C B9FA 1010 001589 | ALRK r1,r0,r1
000130 D21C 1000 7454 001589 | MVC ERRORMESSAGE(29,r
000136 5810 D0B4 001589 | L r1,#CEECAACRENT_2
00013A B9FA 1010 001589 | ALRK r1,r0,r1
00013E 4110 101D 001589 | LA r1,ERRORMESSAGE(,
000142 5010 D0C4 001589 | ST r1,#STRTEMP23(,r1
000146 9240 1000 001589 | MVI ERRORMESSAGE(r1,0
00014A D2A9 1001 1000 001589 | MVC ERRORMESSAGE(170,
000150 5810 D0B4 001590 | L r1,#CEECAACRENT_2
000154 1E01 001590 | ALR r0,r1
000156 5850 D0B0 001590 | L r5,#ENV:INIT_PARS
00015A 5010 C1F4 001590 | ST r1,_CEECAA_(,r12,
00015E 58F0 300C 001590 | L r15,=A(DISPLAY_PA
000162 4110 D098 001590 | LA r1,#MX_TEMP23(,r1
000166 5000 D098 001590 | ST r0,#MX_TEMP23(,r1
00016A 0DEF 001590 | BASR r14,r15
00016C 001591 | @23L317 DS 0H
00016C 001591 | @23L319 DS 0H
00016C 001593 | @23L315 DS 0H
00016C 001593 | @23L431 DS 0H
00016C 5800 D0B4 000000 | L r0,#CEECAACRENT_2
000170 5000 C1F4 000000 | ST r0,_CEECAA_(,r12,
000174 Start of Epilog
000174 58D0 D004 001593 | L r13,4(,r13)
000178 58E0 D00C 001593 | L r14,12(,r13)
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
00017C 9829 D01C 001593 | LM r2,r9,28(r13)
000180 051E 001593 | BALR r1,r14
000182 0707 001593 | NOPR 7
000184 Start of Literals
000184 00000000 =Q(@STATIC)
000188 00000000 =Q(RETURNCODE)
00018C 00000000 =Q(ERRORMESSAGE)
000190 00003AE8 =A(DISPLAY_PARSE_
000194 End of Literals
*** General purpose registers used: 111111111100111
*** Floating point registers used: 111111110000000
*** Size of register spill area: 512(max) 0(used)
*** Size of dynamic storage: 224
*** Size of executable code: 388
*** CSECT Offset: 19984 : 0x4E10
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
SEARCHANDDESERIALIZEDATA
000000 001377 | DS 0D
000000 47F0 F024 001377 | B 36(,r15)
000004 01C3C5C5 CEE eyecatcher
000008 000001E0 DSA size
00000C 000028B8 =A(PPA1-SEARCHAND
000010 47F0 F001 001377 | B 1(,r15)
000014 58F0 C31C 001377 | L r15,796(,r12)
000018 184E 001377 | LR r4,r14
00001A 05EF 001377 | BALR r14,r15
00001C 00000000 =F'0'
000020 A7F4 000C 001377 | J *+24
000024 90E9 D00C 001377 | STM r14,r9,12(r13)
000028 58E0 D04C 001377 | L r14,76(,r13)
00002C 4100 E1E0 001377 | LA r0,480(,r14)
000030 5500 C314 001377 | CL r0,788(,r12)
000034 A724 FFF0 001377 | JH *-32
000038 58F0 C280 001377 | L r15,640(,r12)
00003C 90F0 E048 001377 | STM r15,r0,72(r14)
000040 9210 E000 001377 | MVI 0(r14),16
000044 50D0 E004 001377 | ST r13,4(,r14)
000048 18DE 001377 | LR r13,r14
00004A C040 0000 0802 001377 | LARL r4,F'2050'
000050 End of Prolog
000050 5810 C1F4 000000 | L r1,_CEECAA_(,r12,
000054 5010 D114 000000 | ST r1,#CEECAACRENT_2
000058 C060 0000 09EC 000000 | LARL r6,F'2540'
00005E 5050 D0F0 001377 | ST r5,#ENV:SEARCHAND
000062 E54C D0B4 0000 001377 | MVHI WEATHEROBJECT(r13
000068 E54C D0B0 0000 001377 | MVHI STATUSOBJECT(r13,
00006E E54C D0B8 0000 001396 | MVHI _temp44(r13,184),
000074 4110 D0BC 001396 | LA r1,_temp45(,r13,1
000078 5010 D0E8 001396 | ST r1,_temp49(,r13,2
00007C D203 1000 640C 001396 | MVC #AddressShadow(4,
000082 5810 D0E8 001396 | L r1,_temp49(,r13,2
000086 4110 1004 001396 | LA r1,#AddressShadow
00008A 5010 D100 001396 | ST r1,#STRTEMP24(,r1
00008E 9240 1000 001396 | MVI #AddressShadow(r1
000092 D21A 1001 1000 001396 | MVC #AddressShadow(27
000098 E54C D0DC 0004 001396 | MVHI _temp46(r13,220),
00009E 4120 D0AC 001396 | LA r2,STRINGLEN(,r13
0000A2 4130 D0DC 001396 | LA r3,_temp46(,r13,2
0000A6 4170 D0BC 001396 | LA r7,_temp45(,r13,1
0000AA 4180 D0B8 001396 | LA r8,_temp44(,r13,1
0000AE 5850 D0F0 001396 | L r5,#ENV:SEARCHAND
0000B2 5810 D114 001396 | L r1,#CEECAACRENT_2
0000B6 5010 C1F4 001396 | ST r1,_CEECAA_(,r12,
0000BA 58F0 4002 001396 | L r15,=A(FIND_STRIN
0000BE 4110 D098 001396 | LA r1,#MX_TEMP24(,r1
0000C2 5080 D098 001396 | ST r8,#MX_TEMP24(,r1
0000C6 5070 D09C 001396 | ST r7,#MX_TEMP24(,r1
0000CA 5030 D0A0 001396 | ST r3,#MX_TEMP24(,r1
0000CE 5020 D0A4 001396 | ST r2,#MX_TEMP24(,r1
0000D2 0DEF 001396 | BASR r14,r15
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
0000D4 181F 001396 | LR r1,r15
0000D6 5010 D0A8 001396 | ST r1,STRINGPTR(,r13
0000DA 5820 D114 001398 | L r2,#CEECAACRENT_2
0000DE 5810 4006 001398 | L r1,=Q(RETURNCODE)
0000E2 1E12 001398 | ALR r1,r2
0000E4 5810 1000 001398 | L r1,RETURNCODE(,r1
0000E8 1211 001398 | LTR r1,r1
0000EA A774 0085 001398 | JNE @24L345
0000EE 001398 | @24L347 DS 0H
0000EE 001399 | @24L323 DS 0H
0000EE 5810 D0AC 001400 | L r1,STRINGLEN(,r13
0000F2 A71E 0032 001400 | CHI r1,H'50'
0000F6 A7D4 0007 001400 | JNH @24L348
0000FA 001400 | @24L350 DS 0H
0000FA E54C D0AC 0032 001401 | MVHI STRINGLEN(r13,172
000100 A7F4 0002 001401 | J @24L349
000104 001401 | @24L348 DS 0H
000104 001401 | @24L349 DS 0H
000104 5810 D0F0 001403 | L r1,#ENV:SEARCHAND
000108 5810 1134 001403 | L r1,MYRESPBODYUSER
00010C 5820 100C 001403 | L r2,_shadow6(,r1,1
000110 5810 D0AC 001403 | L r1,STRINGLEN(,r13
000114 EB31 001F 00DC 001403 | SRAK r3,r1,31
00011A C037 FFFF FFFF 001403 | XILF r3,F'-1'
000120 1413 001403 | NR r1,r3
000122 C01B 0000 7FFF 001403 | NILF r1,F'32767'
000128 5020 D118 001403 | ST r2,#wtemp_94(,r13
00012C 5010 D0EC 001403 | ST r1,_temp50(,r13,2
000130 5820 D118 001403 | L r2,#wtemp_94(,r13
000134 5020 D0E8 001403 | ST r2,_temp49(,r13,2
000138 5830 D0A8 001403 | L r3,STRINGPTR(,r13
00013C 5810 D0AC 001403 | L r1,STRINGLEN(,r13
000140 EB51 001F 00DC 001403 | SRAK r5,r1,31
000146 C057 FFFF FFFF 001403 | XILF r5,F'-1'
00014C 1415 001403 | NR r1,r5
00014E C01B 0000 7FFF 001403 | NILF r1,F'32767'
000154 5030 D11C 001403 | ST r3,#wtemp_95(,r13
000158 5020 D120 001403 | ST r2,#wtemp_96(,r13
00015C 5010 D0E4 001403 | ST r1,_temp48(,r13,2
000160 5830 D0EC 001403 | L r3,_temp50(,r13,2
000164 1913 001403 | CR r1,r3
000166 B9F2 4031 001403 | LOCRL r3,r1
00016A 5030 D0E0 001403 | ST r3,_temp47(,r13,2
00016E 5810 D120 001403 | L r1,#wtemp_96(,r13
000172 5820 D11C 001403 | L r2,#wtemp_95(,r13
000176 58F0 400A 001403 | L r15,=A(_outlineCo
00017A 4DE0 F010 001403 | BAS r14,16(,r15)
00017E 4700 000C 001403 | NOP 12
000182 5820 D0E8 001403 | L r2,_temp49(,r13,2
000186 5830 D0E0 001403 | L r3,_temp47(,r13,2
00018A 5810 D0EC 001403 | L r1,_temp50(,r13,2
00018E 1F13 001403 | SLR r1,r3
000190 B9FA 3052 001403 | ALRK r5,r2,r3
000194 5050 D128 001403 | ST r5,#wtemp_98(,r13
000198 B9FA 30E2 001403 | ALRK r14,r2,r3
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
00019C 50E0 D100 001403 | ST r14,#STRTEMP24(,r
0001A0 1211 001403 | LTR r1,r1
0001A2 A784 0027 001403 | JE @24L457
0001A6 9240 E000 001403 | MVI #AddressShadow(r1
0001AA A71A FFFF 001403 | AHI r1,H'-1'
0001AE 1211 001403 | LTR r1,r1
0001B0 A784 0020 001403 | JE @24L457
0001B4 A71A FFFF 001403 | AHI r1,H'-1'
0001B8 5010 D104 001403 | ST r1,#STRTEMP24(,r1
0001BC 8A10 0008 001403 | SRA r1,8
0001C0 5010 D0FC 001403 | ST r1,#STRTEMP24(,r1
0001C4 1211 001403 | LTR r1,r1
0001C6 A784 0010 001403 | JE @24L459
0001CA 001403 | @24L458 DS 0H
0001CA 5810 D0FC 001403 | L r1,#STRTEMP24(,r1
0001CE D2FF E001 E000 001403 | MVC #AddressShadow(25
0001D4 41E0 E100 001403 | LA r14,#AddressShado
0001D8 EC21 FFFF 00DA 001403 | ALHSIK r2,r1,H'-1'
0001DE 5020 D0FC 001403 | ST r2,#STRTEMP24(,r1
0001E2 A716 FFF4 001403 | BRCT r1,@24L458
0001E6 001403 | @24L459 DS 0H
0001E6 5810 D104 001403 | L r1,#STRTEMP24(,r1
0001EA C610 0000 0D25 001403 | EXRL r1,F'3365'
0001F0 001403 | @24L457 DS 0H
0001F0 001405 | @24L324 DS 0H
0001F0 A7F4 0002 001405 | J @24L346
0001F4 001405 | @24L345 DS 0H
0001F4 001405 | @24L346 DS 0H
0001F4 E54C D0DC 0000 001409 | MVHI _temp46(r13,220),
0001FA 4110 D0BC 001409 | LA r1,_temp45(,r13,1
0001FE 5010 D0E8 001409 | ST r1,_temp49(,r13,2
000202 D203 1000 6410 001409 | MVC #AddressShadow(4,
000208 5810 D0E8 001409 | L r1,_temp49(,r13,2
00020C 4110 1004 001409 | LA r1,#AddressShadow
000210 5010 D100 001409 | ST r1,#STRTEMP24(,r1
000214 9240 1000 001409 | MVI #AddressShadow(r1
000218 D21A 1001 1000 001409 | MVC #AddressShadow(27
00021E E54C D0B8 0004 001409 | MVHI _temp44(r13,184),
000224 4120 D0AC 001409 | LA r2,STRINGLEN(,r13
000228 4130 D0B8 001409 | LA r3,_temp44(,r13,1
00022C 4170 D0BC 001409 | LA r7,_temp45(,r13,1
000230 4180 D0DC 001409 | LA r8,_temp46(,r13,2
000234 5850 D0F0 001409 | L r5,#ENV:SEARCHAND
000238 5810 D114 001409 | L r1,#CEECAACRENT_2
00023C 5010 C1F4 001409 | ST r1,_CEECAA_(,r12,
000240 58F0 4002 001409 | L r15,=A(FIND_STRIN
000244 4110 D098 001409 | LA r1,#MX_TEMP24(,r1
000248 5080 D098 001409 | ST r8,#MX_TEMP24(,r1
00024C 5070 D09C 001409 | ST r7,#MX_TEMP24(,r1
000250 5030 D0A0 001409 | ST r3,#MX_TEMP24(,r1
000254 5020 D0A4 001409 | ST r2,#MX_TEMP24(,r1
000258 0DEF 001409 | BASR r14,r15
00025A 181F 001409 | LR r1,r15
00025C 5010 D0A8 001409 | ST r1,STRINGPTR(,r13
000260 5820 D114 001411 | L r2,#CEECAACRENT_2
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
000264 5810 4006 001411 | L r1,=Q(RETURNCODE)
000268 1E12 001411 | ALR r1,r2
00026A 5810 1000 001411 | L r1,RETURNCODE(,r1
00026E 1211 001411 | LTR r1,r1
000270 A774 0087 001411 | JNE @24L351
000274 001411 | @24L353 DS 0H
000274 001412 | @24L325 DS 0H
000274 5810 D0AC 001413 | L r1,STRINGLEN(,r13
000278 A71E 0006 001413 | CHI r1,H'6'
00027C A7D4 0007 001413 | JNH @24L354
000280 001413 | @24L356 DS 0H
000280 E54C D0AC 0006 001414 | MVHI STRINGLEN(r13,172
000286 A7F4 0002 001414 | J @24L355
00028A 001414 | @24L354 DS 0H
00028A 001414 | @24L355 DS 0H
00028A 5810 D0F0 001416 | L r1,#ENV:SEARCHAND
00028E 5810 1134 001416 | L r1,MYRESPBODYUSER
000292 5820 100C 001416 | L r2,_shadow6(,r1,1
000296 5810 D0AC 001416 | L r1,STRINGLEN(,r13
00029A EB31 001F 00DC 001416 | SRAK r3,r1,31
0002A0 C037 FFFF FFFF 001416 | XILF r3,F'-1'
0002A6 1413 001416 | NR r1,r3
0002A8 C01B 0000 7FFF 001416 | NILF r1,F'32767'
0002AE 4120 2032 001416 | LA r2,#AddressShadow
0002B2 5020 D130 001416 | ST r2,#wtemp_100(,r1
0002B6 5010 D0E0 001416 | ST r1,_temp47(,r13,2
0002BA 5820 D130 001416 | L r2,#wtemp_100(,r1
0002BE 5020 D0E8 001416 | ST r2,_temp49(,r13,2
0002C2 5830 D0A8 001416 | L r3,STRINGPTR(,r13
0002C6 5810 D0AC 001416 | L r1,STRINGLEN(,r13
0002CA EB51 001F 00DC 001416 | SRAK r5,r1,31
0002D0 C057 FFFF FFFF 001416 | XILF r5,F'-1'
0002D6 1415 001416 | NR r1,r5
0002D8 C01B 0000 7FFF 001416 | NILF r1,F'32767'
0002DE 5030 D134 001416 | ST r3,#wtemp_101(,r1
0002E2 5020 D138 001416 | ST r2,#wtemp_102(,r1
0002E6 5010 D0E4 001416 | ST r1,_temp48(,r13,2
0002EA 5830 D0E0 001416 | L r3,_temp47(,r13,2
0002EE 1913 001416 | CR r1,r3
0002F0 B9F2 4031 001416 | LOCRL r3,r1
0002F4 5030 D0EC 001416 | ST r3,_temp50(,r13,2
0002F8 5810 D138 001416 | L r1,#wtemp_102(,r1
0002FC 5820 D134 001416 | L r2,#wtemp_101(,r1
000300 58F0 400A 001416 | L r15,=A(_outlineCo
000304 4DE0 F010 001416 | BAS r14,16(,r15)
000308 4700 000C 001416 | NOP 12
00030C 5820 D0E8 001416 | L r2,_temp49(,r13,2
000310 5830 D0EC 001416 | L r3,_temp50(,r13,2
000314 5810 D0E0 001416 | L r1,_temp47(,r13,2
000318 1F13 001416 | SLR r1,r3
00031A B9FA 3052 001416 | ALRK r5,r2,r3
00031E 5050 D128 001416 | ST r5,#wtemp_98(,r13
000322 B9FA 30E2 001416 | ALRK r14,r2,r3
000326 50E0 D100 001416 | ST r14,#STRTEMP24(,r
00032A 1211 001416 | LTR r1,r1
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
00032C A784 0027 001416 | JE @24L460
000330 9240 E000 001416 | MVI #AddressShadow(r1
000334 A71A FFFF 001416 | AHI r1,H'-1'
000338 1211 001416 | LTR r1,r1
00033A A784 0020 001416 | JE @24L460
00033E A71A FFFF 001416 | AHI r1,H'-1'
000342 5010 D104 001416 | ST r1,#STRTEMP24(,r1
000346 8A10 0008 001416 | SRA r1,8
00034A 5010 D0FC 001416 | ST r1,#STRTEMP24(,r1
00034E 1211 001416 | LTR r1,r1
000350 A784 0010 001416 | JE @24L462
000354 001416 | @24L461 DS 0H
000354 5810 D0FC 001416 | L r1,#STRTEMP24(,r1
000358 D2FF E001 E000 001416 | MVC #AddressShadow(25
00035E 41E0 E100 001416 | LA r14,#AddressShado
000362 EC21 FFFF 00DA 001416 | ALHSIK r2,r1,H'-1'
000368 5020 D0FC 001416 | ST r2,#STRTEMP24(,r1
00036C A716 FFF4 001416 | BRCT r1,@24L461
000370 001416 | @24L462 DS 0H
000370 5810 D104 001416 | L r1,#STRTEMP24(,r1
000374 C610 0000 0C60 001416 | EXRL r1,F'3168'
00037A 001416 | @24L460 DS 0H
00037A 001418 | @24L326 DS 0H
00037A A7F4 0002 001418 | J @24L352
00037E 001418 | @24L351 DS 0H
00037E 001418 | @24L352 DS 0H
00037E E54C D0B8 0000 001422 | MVHI _temp44(r13,184),
000384 4110 D0BC 001422 | LA r1,_temp45(,r13,1
000388 5010 D0E8 001422 | ST r1,_temp49(,r13,2
00038C D204 1000 6414 001422 | MVC #AddressShadow(5,
000392 5810 D0E8 001422 | L r1,_temp49(,r13,2
000396 4110 1005 001422 | LA r1,#AddressShadow
00039A 5010 D100 001422 | ST r1,#STRTEMP24(,r1
00039E 9240 1000 001422 | MVI #AddressShadow(r1
0003A2 D219 1001 1000 001422 | MVC #AddressShadow(26
0003A8 E54C D0DC 0005 001422 | MVHI _temp46(r13,220),
0003AE 4120 D0AC 001422 | LA r2,STRINGLEN(,r13
0003B2 4130 D0DC 001422 | LA r3,_temp46(,r13,2
0003B6 4170 D0BC 001422 | LA r7,_temp45(,r13,1
0003BA 4180 D0B8 001422 | LA r8,_temp44(,r13,1
0003BE 5850 D0F0 001422 | L r5,#ENV:SEARCHAND
0003C2 5810 D114 001422 | L r1,#CEECAACRENT_2
0003C6 5010 C1F4 001422 | ST r1,_CEECAA_(,r12,
0003CA 58F0 4002 001422 | L r15,=A(FIND_STRIN
0003CE 4110 D098 001422 | LA r1,#MX_TEMP24(,r1
0003D2 5080 D098 001422 | ST r8,#MX_TEMP24(,r1
0003D6 5070 D09C 001422 | ST r7,#MX_TEMP24(,r1
0003DA 5030 D0A0 001422 | ST r3,#MX_TEMP24(,r1
0003DE 5020 D0A4 001422 | ST r2,#MX_TEMP24(,r1
0003E2 0DEF 001422 | BASR r14,r15
0003E4 181F 001422 | LR r1,r15
0003E6 5010 D0A8 001422 | ST r1,STRINGPTR(,r13
0003EA 5820 D114 001424 | L r2,#CEECAACRENT_2
0003EE 5810 4006 001424 | L r1,=Q(RETURNCODE)
0003F2 1E12 001424 | ALR r1,r2
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
0003F4 5810 1000 001424 | L r1,RETURNCODE(,r1
0003F8 1211 001424 | LTR r1,r1
0003FA A774 0087 001424 | JNE @24L357
0003FE 001424 | @24L359 DS 0H
0003FE 001425 | @24L327 DS 0H
0003FE 5810 D0AC 001426 | L r1,STRINGLEN(,r13
000402 A71E 001E 001426 | CHI r1,H'30'
000406 A7D4 0007 001426 | JNH @24L360
00040A 001426 | @24L362 DS 0H
00040A E54C D0AC 001E 001427 | MVHI STRINGLEN(r13,172
000410 A7F4 0002 001427 | J @24L361
000414 001427 | @24L360 DS 0H
000414 001427 | @24L361 DS 0H
000414 5810 D0F0 001429 | L r1,#ENV:SEARCHAND
000418 5810 1134 001429 | L r1,MYRESPBODYUSER
00041C 5820 100C 001429 | L r2,_shadow6(,r1,1
000420 5810 D0AC 001429 | L r1,STRINGLEN(,r13
000424 EB31 001F 00DC 001429 | SRAK r3,r1,31
00042A C037 FFFF FFFF 001429 | XILF r3,F'-1'
000430 1413 001429 | NR r1,r3
000432 C01B 0000 7FFF 001429 | NILF r1,F'32767'
000438 4120 2038 001429 | LA r2,#AddressShadow
00043C 5020 D144 001429 | ST r2,#wtemp_105(,r1
000440 5010 D0EC 001429 | ST r1,_temp50(,r13,2
000444 5820 D144 001429 | L r2,#wtemp_105(,r1
000448 5020 D0E8 001429 | ST r2,_temp49(,r13,2
00044C 5830 D0A8 001429 | L r3,STRINGPTR(,r13
000450 5810 D0AC 001429 | L r1,STRINGLEN(,r13
000454 EB51 001F 00DC 001429 | SRAK r5,r1,31
00045A C057 FFFF FFFF 001429 | XILF r5,F'-1'
000460 1415 001429 | NR r1,r5
000462 C01B 0000 7FFF 001429 | NILF r1,F'32767'
000468 5030 D148 001429 | ST r3,#wtemp_106(,r1
00046C 5020 D14C 001429 | ST r2,#wtemp_107(,r1
000470 5010 D0E4 001429 | ST r1,_temp48(,r13,2
000474 5830 D0EC 001429 | L r3,_temp50(,r13,2
000478 1913 001429 | CR r1,r3
00047A B9F2 4031 001429 | LOCRL r3,r1
00047E 5030 D0E0 001429 | ST r3,_temp47(,r13,2
000482 5810 D14C 001429 | L r1,#wtemp_107(,r1
000486 5820 D148 001429 | L r2,#wtemp_106(,r1
00048A 58F0 400A 001429 | L r15,=A(_outlineCo
00048E 4DE0 F010 001429 | BAS r14,16(,r15)
000492 4700 000C 001429 | NOP 12
000496 5820 D0E8 001429 | L r2,_temp49(,r13,2
00049A 5830 D0E0 001429 | L r3,_temp47(,r13,2
00049E 5810 D0EC 001429 | L r1,_temp50(,r13,2
0004A2 1F13 001429 | SLR r1,r3
0004A4 B9FA 3052 001429 | ALRK r5,r2,r3
0004A8 5050 D128 001429 | ST r5,#wtemp_98(,r13
0004AC B9FA 30E2 001429 | ALRK r14,r2,r3
0004B0 50E0 D100 001429 | ST r14,#STRTEMP24(,r
0004B4 1211 001429 | LTR r1,r1
0004B6 A784 0027 001429 | JE @24L463
0004BA 9240 E000 001429 | MVI #AddressShadow(r1
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
0004BE A71A FFFF 001429 | AHI r1,H'-1'
0004C2 1211 001429 | LTR r1,r1
0004C4 A784 0020 001429 | JE @24L463
0004C8 A71A FFFF 001429 | AHI r1,H'-1'
0004CC 5010 D104 001429 | ST r1,#STRTEMP24(,r1
0004D0 8A10 0008 001429 | SRA r1,8
0004D4 5010 D0FC 001429 | ST r1,#STRTEMP24(,r1
0004D8 1211 001429 | LTR r1,r1
0004DA A784 0010 001429 | JE @24L465
0004DE 001429 | @24L464 DS 0H
0004DE 5810 D0FC 001429 | L r1,#STRTEMP24(,r1
0004E2 D2FF E001 E000 001429 | MVC #AddressShadow(25
0004E8 41E0 E100 001429 | LA r14,#AddressShado
0004EC EC21 FFFF 00DA 001429 | ALHSIK r2,r1,H'-1'
0004F2 5020 D0FC 001429 | ST r2,#STRTEMP24(,r1
0004F6 A716 FFF4 001429 | BRCT r1,@24L464
0004FA 001429 | @24L465 DS 0H
0004FA 5810 D104 001429 | L r1,#STRTEMP24(,r1
0004FE C610 0000 0B9B 001429 | EXRL r1,F'2971'
000504 001429 | @24L463 DS 0H
000504 001431 | @24L328 DS 0H
000504 A7F4 0002 001431 | J @24L358
000508 001431 | @24L357 DS 0H
000508 001431 | @24L358 DS 0H
000508 E54C D0DC 0000 001439 | MVHI _temp46(r13,220),
00050E 4110 D0BC 001439 | LA r1,_temp45(,r13,1
000512 5010 D0E8 001439 | ST r1,_temp49(,r13,2
000516 D204 1000 641C 001439 | MVC #AddressShadow(5,
00051C 5810 D0E8 001439 | L r1,_temp49(,r13,2
000520 4110 1005 001439 | LA r1,#AddressShadow
000524 5010 D100 001439 | ST r1,#STRTEMP24(,r1
000528 9240 1000 001439 | MVI #AddressShadow(r1
00052C D219 1001 1000 001439 | MVC #AddressShadow(26
000532 E54C D0B8 0005 001439 | MVHI _temp44(r13,184),
000538 4120 D0AC 001439 | LA r2,STRINGLEN(,r13
00053C 4130 D0B8 001439 | LA r3,_temp44(,r13,1
000540 4170 D0BC 001439 | LA r7,_temp45(,r13,1
000544 4180 D0DC 001439 | LA r8,_temp46(,r13,2
000548 5850 D0F0 001439 | L r5,#ENV:SEARCHAND
00054C 5810 D114 001439 | L r1,#CEECAACRENT_2
000550 5010 C1F4 001439 | ST r1,_CEECAA_(,r12,
000554 58F0 4002 001439 | L r15,=A(FIND_STRIN
000558 4110 D098 001439 | LA r1,#MX_TEMP24(,r1
00055C 5080 D098 001439 | ST r8,#MX_TEMP24(,r1
000560 5070 D09C 001439 | ST r7,#MX_TEMP24(,r1
000564 5030 D0A0 001439 | ST r3,#MX_TEMP24(,r1
000568 5020 D0A4 001439 | ST r2,#MX_TEMP24(,r1
00056C 0DEF 001439 | BASR r14,r15
00056E 181F 001439 | LR r1,r15
000570 5010 D0A8 001439 | ST r1,STRINGPTR(,r13
000574 5820 D114 001441 | L r2,#CEECAACRENT_2
000578 5810 4006 001441 | L r1,=Q(RETURNCODE)
00057C 1E12 001441 | ALR r1,r2
00057E 5810 1000 001441 | L r1,RETURNCODE(,r1
000582 1211 001441 | LTR r1,r1
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
000584 A774 004C 001441 | JNE @24L363
000588 001441 | @24L365 DS 0H
000588 001442 | @24L329 DS 0H
000588 5810 D0AC 001443 | L r1,STRINGLEN(,r13
00058C A71E 0001 001443 | CHI r1,H'1'
000590 A7D4 0007 001443 | JNH @24L366
000594 001443 | @24L368 DS 0H
000594 E54C D0AC 0001 001444 | MVHI STRINGLEN(r13,172
00059A A7F4 0002 001444 | J @24L367
00059E 001444 | @24L366 DS 0H
00059E 001444 | @24L367 DS 0H
00059E 5810 D0AC 001446 | L r1,STRINGLEN(,r13
0005A2 A71E 0004 001446 | CHI r1,H'4'
0005A6 A774 0039 001446 | JNE @24L369
0005AA 5810 D0A8 001446 | L r1,STRINGPTR(,r13
0005AE 5820 D0AC 001446 | L r2,STRINGLEN(,r13
0005B2 EB32 001F 00DC 001446 | SRAK r3,r2,31
0005B8 C037 FFFF FFFF 001446 | XILF r3,F'-1'
0005BE B9F4 3032 001446 | NRK r3,r2,r3
0005C2 C03B 0000 7FFF 001446 | NILF r3,F'32767'
0005C8 5010 D158 001446 | ST r1,#wtemp_110(,r1
0005CC 5030 D0E0 001446 | ST r3,_temp47(,r13,2
0005D0 5820 D158 001446 | L r2,#wtemp_110(,r1
0005D4 4190 0004 001446 | LA r9,4
0005D8 4180 6DD8 001446 | LA r8,+CONSTANT_AREA
0005DC A928 0040 001446 | CLCLE r2,r8,64
0005E0 A714 FFFE 001446 | JO *-4
0005E4 B222 0010 001446 | IPM r1
0005E8 8810 001C 001446 | SRL r1,28
0005EC 1211 001446 | LTR r1,r1
0005EE A774 0015 001446 | JNE @24L369
0005F2 001446 | @24L371 DS 0H
0005F2 5810 D0F0 001448 | L r1,#ENV:SEARCHAND
0005F6 5810 1134 001448 | L r1,MYRESPBODYUSER
0005FA 5810 100C 001448 | L r1,_shadow6(,r1,1
0005FE 4110 1056 001448 | LA r1,#AddressShadow
000602 5010 D0E8 001448 | ST r1,_temp49(,r13,2
000606 E320 1000 0094 001448 | LLC r2,_shadow2(,r1,0
00060C A52B 0080 001448 | OILL r2,H'128'
000610 4220 1000 001448 | STC r2,_shadow2(,r1,0
000614 A7F4 0002 001448 | J @24L370
000618 001448 | @24L369 DS 0H
000618 001448 | @24L370 DS 0H
000618 001449 | @24L330 DS 0H
000618 A7F4 0002 001449 | J @24L364
00061C 001449 | @24L363 DS 0H
00061C 001449 | @24L364 DS 0H
00061C 5820 D114 001451 | L r2,#CEECAACRENT_2
000620 5810 4006 001451 | L r1,=Q(RETURNCODE)
000624 1E12 001451 | ALR r1,r2
000626 5810 1000 001451 | L r1,RETURNCODE(,r1
00062A 1211 001451 | LTR r1,r1
00062C A774 028D 001451 | JNE @24L372
000630 5810 D0F0 001451 | L r1,#ENV:SEARCHAND
000634 5810 1134 001451 | L r1,MYRESPBODYUSER
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
000638 5810 100C 001451 | L r1,_shadow6(,r1,1
00063C E310 1056 0094 001451 | LLC r1,_shadow2(,r1,8
000642 C01B 0000 0080 001451 | NILF r1,F'128'
000648 C21F 0000 0000 001451 | CLFI r1,F'0'
00064E A784 027C 001451 | JE @24L372
000652 001451 | @24L374 DS 0H
000652 001452 | @24L331 DS 0H
000652 E54C D0B8 0000 001457 | MVHI _temp44(r13,184),
000658 4110 D0BC 001457 | LA r1,_temp45(,r13,1
00065C 5010 D0E8 001457 | ST r1,_temp49(,r13,2
000660 D205 1000 6424 001457 | MVC #AddressShadow(6,
000666 5810 D0E8 001457 | L r1,_temp49(,r13,2
00066A 4110 1006 001457 | LA r1,#AddressShadow
00066E 5010 D100 001457 | ST r1,#STRTEMP24(,r1
000672 9240 1000 001457 | MVI #AddressShadow(r1
000676 D218 1001 1000 001457 | MVC #AddressShadow(25
00067C E54C D0DC 0006 001457 | MVHI _temp46(r13,220),
000682 4120 D0DC 001457 | LA r2,_temp46(,r13,2
000686 4130 D0BC 001457 | LA r3,_temp45(,r13,1
00068A 4170 D0B8 001457 | LA r7,_temp44(,r13,1
00068E 5850 D0F0 001457 | L r5,#ENV:SEARCHAND
000692 5810 D114 001457 | L r1,#CEECAACRENT_2
000696 5010 C1F4 001457 | ST r1,_CEECAA_(,r12,
00069A 58F0 400E 001457 | L r15,=A(FIND_OBJEC
00069E 4110 D098 001457 | LA r1,#MX_TEMP24(,r1
0006A2 5070 D098 001457 | ST r7,#MX_TEMP24(,r1
0006A6 5030 D09C 001457 | ST r3,#MX_TEMP24(,r1
0006AA 5020 D0A0 001457 | ST r2,#MX_TEMP24(,r1
0006AE 0DEF 001457 | BASR r14,r15
0006B0 181F 001457 | LR r1,r15
0006B2 5010 D0B0 001457 | ST r1,STATUSOBJECT(,
0006B6 4110 D0BC 001461 | LA r1,_temp45(,r13,1
0006BA 5010 D0E8 001461 | ST r1,_temp49(,r13,2
0006BE D203 1000 642C 001461 | MVC #AddressShadow(4,
0006C4 5810 D0E8 001461 | L r1,_temp49(,r13,2
0006C8 4110 1004 001461 | LA r1,#AddressShadow
0006CC 5010 D100 001461 | ST r1,#STRTEMP24(,r1
0006D0 9240 1000 001461 | MVI #AddressShadow(r1
0006D4 D21A 1001 1000 001461 | MVC #AddressShadow(27
0006DA E54C D0DC 0004 001461 | MVHI _temp46(r13,220),
0006E0 4120 D0AC 001461 | LA r2,STRINGLEN(,r13
0006E4 4130 D0DC 001461 | LA r3,_temp46(,r13,2
0006E8 4170 D0BC 001461 | LA r7,_temp45(,r13,1
0006EC 4180 D0B0 001461 | LA r8,STATUSOBJECT(,
0006F0 5850 D0F0 001461 | L r5,#ENV:SEARCHAND
0006F4 5810 D114 001461 | L r1,#CEECAACRENT_2
0006F8 5010 C1F4 001461 | ST r1,_CEECAA_(,r12,
0006FC 58F0 4002 001461 | L r15,=A(FIND_STRIN
000700 4110 D098 001461 | LA r1,#MX_TEMP24(,r1
000704 5080 D098 001461 | ST r8,#MX_TEMP24(,r1
000708 5070 D09C 001461 | ST r7,#MX_TEMP24(,r1
00070C 5030 D0A0 001461 | ST r3,#MX_TEMP24(,r1
000710 5020 D0A4 001461 | ST r2,#MX_TEMP24(,r1
000714 0DEF 001461 | BASR r14,r15
000716 181F 001461 | LR r1,r15
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
000718 5010 D0A8 001461 | ST r1,STRINGPTR(,r13
00071C 5820 D114 001463 | L r2,#CEECAACRENT_2
000720 5810 4006 001463 | L r1,=Q(RETURNCODE)
000724 1E12 001463 | ALR r1,r2
000726 5810 1000 001463 | L r1,RETURNCODE(,r1
00072A 1211 001463 | LTR r1,r1
00072C A774 0087 001463 | JNE @24L375
000730 001463 | @24L377 DS 0H
000730 001464 | @24L333 DS 0H
000730 5810 D0AC 001465 | L r1,STRINGLEN(,r13
000734 A71E 001E 001465 | CHI r1,H'30'
000738 A7D4 0007 001465 | JNH @24L378
00073C 001465 | @24L380 DS 0H
00073C E54C D0AC 001E 001466 | MVHI STRINGLEN(r13,172
000742 A7F4 0002 001466 | J @24L379
000746 001466 | @24L378 DS 0H
000746 001466 | @24L379 DS 0H
000746 5810 D0F0 001468 | L r1,#ENV:SEARCHAND
00074A 5810 1134 001468 | L r1,MYRESPBODYUSER
00074E 5820 100C 001468 | L r2,_shadow6(,r1,1
000752 5810 D0AC 001468 | L r1,STRINGLEN(,r13
000756 EB31 001F 00DC 001468 | SRAK r3,r1,31
00075C C037 FFFF FFFF 001468 | XILF r3,F'-1'
000762 1413 001468 | NR r1,r3
000764 C01B 0000 7FFF 001468 | NILF r1,F'32767'
00076A 4120 205A 001468 | LA r2,#AddressShadow
00076E 5020 D164 001468 | ST r2,#wtemp_113(,r1
000772 5010 D0E0 001468 | ST r1,_temp47(,r13,2
000776 5820 D164 001468 | L r2,#wtemp_113(,r1
00077A 5020 D0E8 001468 | ST r2,_temp49(,r13,2
00077E 5830 D0A8 001468 | L r3,STRINGPTR(,r13
000782 5810 D0AC 001468 | L r1,STRINGLEN(,r13
000786 EB51 001F 00DC 001468 | SRAK r5,r1,31
00078C C057 FFFF FFFF 001468 | XILF r5,F'-1'
000792 1415 001468 | NR r1,r5
000794 C01B 0000 7FFF 001468 | NILF r1,F'32767'
00079A 5030 D168 001468 | ST r3,#wtemp_114(,r1
00079E 5020 D16C 001468 | ST r2,#wtemp_115(,r1
0007A2 5010 D0E4 001468 | ST r1,_temp48(,r13,2
0007A6 5830 D0E0 001468 | L r3,_temp47(,r13,2
0007AA 1913 001468 | CR r1,r3
0007AC B9F2 4031 001468 | LOCRL r3,r1
0007B0 5030 D0EC 001468 | ST r3,_temp50(,r13,2
0007B4 5810 D16C 001468 | L r1,#wtemp_115(,r1
0007B8 5820 D168 001468 | L r2,#wtemp_114(,r1
0007BC 58F0 400A 001468 | L r15,=A(_outlineCo
0007C0 4DE0 F010 001468 | BAS r14,16(,r15)
0007C4 4700 000C 001468 | NOP 12
0007C8 5820 D0E8 001468 | L r2,_temp49(,r13,2
0007CC 5830 D0EC 001468 | L r3,_temp50(,r13,2
0007D0 5810 D0E0 001468 | L r1,_temp47(,r13,2
0007D4 1F13 001468 | SLR r1,r3
0007D6 B9FA 3052 001468 | ALRK r5,r2,r3
0007DA 5050 D128 001468 | ST r5,#wtemp_98(,r13
0007DE B9FA 30E2 001468 | ALRK r14,r2,r3
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
0007E2 50E0 D100 001468 | ST r14,#STRTEMP24(,r
0007E6 1211 001468 | LTR r1,r1
0007E8 A784 0027 001468 | JE @24L466
0007EC 9240 E000 001468 | MVI #AddressShadow(r1
0007F0 A71A FFFF 001468 | AHI r1,H'-1'
0007F4 1211 001468 | LTR r1,r1
0007F6 A784 0020 001468 | JE @24L466
0007FA A71A FFFF 001468 | AHI r1,H'-1'
0007FE 5010 D104 001468 | ST r1,#STRTEMP24(,r1
000802 8A10 0008 001468 | SRA r1,8
000806 5010 D0FC 001468 | ST r1,#STRTEMP24(,r1
00080A 1211 001468 | LTR r1,r1
00080C A784 0010 001468 | JE @24L468
000810 001468 | @24L467 DS 0H
000810 5810 D0FC 001468 | L r1,#STRTEMP24(,r1
000814 D2FF E001 E000 001468 | MVC #AddressShadow(25
00081A 41E0 E100 001468 | LA r14,#AddressShado
00081E EC21 FFFF 00DA 001468 | ALHSIK r2,r1,H'-1'
000824 5020 D0FC 001468 | ST r2,#STRTEMP24(,r1
000828 A716 FFF4 001468 | BRCT r1,@24L467
00082C 001468 | @24L468 DS 0H
00082C 5810 D104 001468 | L r1,#STRTEMP24(,r1
000830 C610 0000 0A02 001468 | EXRL r1,F'2562'
000836 001468 | @24L466 DS 0H
000836 001470 | @24L334 DS 0H
000836 A7F4 0002 001470 | J @24L376
00083A 001470 | @24L375 DS 0H
00083A 001470 | @24L376 DS 0H
00083A 4110 D0BC 001474 | LA r1,_temp45(,r13,1
00083E 5010 D0E8 001474 | ST r1,_temp49(,r13,2
000842 D205 1000 6430 001474 | MVC #AddressShadow(6,
000848 5810 D0E8 001474 | L r1,_temp49(,r13,2
00084C 4110 1006 001474 | LA r1,#AddressShadow
000850 5010 D100 001474 | ST r1,#STRTEMP24(,r1
000854 9240 1000 001474 | MVI #AddressShadow(r1
000858 D218 1001 1000 001474 | MVC #AddressShadow(25
00085E E54C D0DC 0006 001474 | MVHI _temp46(r13,220),
000864 4120 D0AC 001474 | LA r2,STRINGLEN(,r13
000868 4130 D0DC 001474 | LA r3,_temp46(,r13,2
00086C 4170 D0BC 001474 | LA r7,_temp45(,r13,1
000870 4180 D0B0 001474 | LA r8,STATUSOBJECT(,
000874 5850 D0F0 001474 | L r5,#ENV:SEARCHAND
000878 5810 D114 001474 | L r1,#CEECAACRENT_2
00087C 5010 C1F4 001474 | ST r1,_CEECAA_(,r12,
000880 58F0 4002 001474 | L r15,=A(FIND_STRIN
000884 4110 D098 001474 | LA r1,#MX_TEMP24(,r1
000888 5080 D098 001474 | ST r8,#MX_TEMP24(,r1
00088C 5070 D09C 001474 | ST r7,#MX_TEMP24(,r1
000890 5030 D0A0 001474 | ST r3,#MX_TEMP24(,r1
000894 5020 D0A4 001474 | ST r2,#MX_TEMP24(,r1
000898 0DEF 001474 | BASR r14,r15
00089A 181F 001474 | LR r1,r15
00089C 5010 D0A8 001474 | ST r1,STRINGPTR(,r13
0008A0 5820 D114 001476 | L r2,#CEECAACRENT_2
0008A4 5810 4006 001476 | L r1,=Q(RETURNCODE)
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
0008A8 1E12 001476 | ALR r1,r2
0008AA 5810 1000 001476 | L r1,RETURNCODE(,r1
0008AE 1211 001476 | LTR r1,r1
0008B0 A774 0087 001476 | JNE @24L381
0008B4 001476 | @24L383 DS 0H
0008B4 001477 | @24L335 DS 0H
0008B4 5810 D0AC 001478 | L r1,STRINGLEN(,r13
0008B8 A71E 001E 001478 | CHI r1,H'30'
0008BC A7D4 0007 001478 | JNH @24L384
0008C0 001478 | @24L386 DS 0H
0008C0 E54C D0AC 001E 001480 | MVHI STRINGLEN(r13,172
0008C6 A7F4 0002 001480 | J @24L385
0008CA 001480 | @24L384 DS 0H
0008CA 001480 | @24L385 DS 0H
0008CA 5810 D0F0 001482 | L r1,#ENV:SEARCHAND
0008CE 5810 1134 001482 | L r1,MYRESPBODYUSER
0008D2 5820 100C 001482 | L r2,_shadow6(,r1,1
0008D6 5810 D0AC 001482 | L r1,STRINGLEN(,r13
0008DA EB31 001F 00DC 001482 | SRAK r3,r1,31
0008E0 C037 FFFF FFFF 001482 | XILF r3,F'-1'
0008E6 1413 001482 | NR r1,r3
0008E8 C01B 0000 7FFF 001482 | NILF r1,F'32767'
0008EE 4120 2078 001482 | LA r2,#AddressShadow
0008F2 5020 D178 001482 | ST r2,#wtemp_118(,r1
0008F6 5010 D0EC 001482 | ST r1,_temp50(,r13,2
0008FA 5820 D178 001482 | L r2,#wtemp_118(,r1
0008FE 5020 D0E8 001482 | ST r2,_temp49(,r13,2
000902 5830 D0A8 001482 | L r3,STRINGPTR(,r13
000906 5810 D0AC 001482 | L r1,STRINGLEN(,r13
00090A EB51 001F 00DC 001482 | SRAK r5,r1,31
000910 C057 FFFF FFFF 001482 | XILF r5,F'-1'
000916 1415 001482 | NR r1,r5
000918 C01B 0000 7FFF 001482 | NILF r1,F'32767'
00091E 5030 D17C 001482 | ST r3,#wtemp_119(,r1
000922 5020 D180 001482 | ST r2,#wtemp_120(,r1
000926 5010 D0E4 001482 | ST r1,_temp48(,r13,2
00092A 5830 D0EC 001482 | L r3,_temp50(,r13,2
00092E 1913 001482 | CR r1,r3
000930 B9F2 4031 001482 | LOCRL r3,r1
000934 5030 D0E0 001482 | ST r3,_temp47(,r13,2
000938 5810 D180 001482 | L r1,#wtemp_120(,r1
00093C 5820 D17C 001482 | L r2,#wtemp_119(,r1
000940 58F0 400A 001482 | L r15,=A(_outlineCo
000944 4DE0 F010 001482 | BAS r14,16(,r15)
000948 4700 000C 001482 | NOP 12
00094C 5820 D0E8 001482 | L r2,_temp49(,r13,2
000950 5830 D0E0 001482 | L r3,_temp47(,r13,2
000954 5810 D0EC 001482 | L r1,_temp50(,r13,2
000958 1F13 001482 | SLR r1,r3
00095A B9FA 3052 001482 | ALRK r5,r2,r3
00095E 5050 D128 001482 | ST r5,#wtemp_98(,r13
000962 B9FA 30E2 001482 | ALRK r14,r2,r3
000966 50E0 D100 001482 | ST r14,#STRTEMP24(,r
00096A 1211 001482 | LTR r1,r1
00096C A784 0027 001482 | JE @24L469
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
000970 9240 E000 001482 | MVI #AddressShadow(r1
000974 A71A FFFF 001482 | AHI r1,H'-1'
000978 1211 001482 | LTR r1,r1
00097A A784 0020 001482 | JE @24L469
00097E A71A FFFF 001482 | AHI r1,H'-1'
000982 5010 D104 001482 | ST r1,#STRTEMP24(,r1
000986 8A10 0008 001482 | SRA r1,8
00098A 5010 D0FC 001482 | ST r1,#STRTEMP24(,r1
00098E 1211 001482 | LTR r1,r1
000990 A784 0010 001482 | JE @24L471
000994 001482 | @24L470 DS 0H
000994 5810 D0FC 001482 | L r1,#STRTEMP24(,r1
000998 D2FF E001 E000 001482 | MVC #AddressShadow(25
00099E 41E0 E100 001482 | LA r14,#AddressShado
0009A2 EC21 FFFF 00DA 001482 | ALHSIK r2,r1,H'-1'
0009A8 5020 D0FC 001482 | ST r2,#STRTEMP24(,r1
0009AC A716 FFF4 001482 | BRCT r1,@24L470
0009B0 001482 | @24L471 DS 0H
0009B0 5810 D104 001482 | L r1,#STRTEMP24(,r1
0009B4 C610 0000 0940 001482 | EXRL r1,F'2368'
0009BA 001482 | @24L469 DS 0H
0009BA 001484 | @24L336 DS 0H
0009BA A7F4 0002 001484 | J @24L382
0009BE 001484 | @24L381 DS 0H
0009BE 001484 | @24L382 DS 0H
0009BE 4110 D0BC 001488 | LA r1,_temp45(,r13,1
0009C2 5010 D0E8 001488 | ST r1,_temp49(,r13,2
0009C6 D207 1000 6438 001488 | MVC #AddressShadow(8,
0009CC 5810 D0E8 001488 | L r1,_temp49(,r13,2
0009D0 4110 1008 001488 | LA r1,#AddressShadow
0009D4 5010 D100 001488 | ST r1,#STRTEMP24(,r1
0009D8 9240 1000 001488 | MVI #AddressShadow(r1
0009DC D216 1001 1000 001488 | MVC #AddressShadow(23
0009E2 E54C D0DC 0008 001488 | MVHI _temp46(r13,220),
0009E8 4120 D0AC 001488 | LA r2,STRINGLEN(,r13
0009EC 4130 D0DC 001488 | LA r3,_temp46(,r13,2
0009F0 4170 D0BC 001488 | LA r7,_temp45(,r13,1
0009F4 4180 D0B0 001488 | LA r8,STATUSOBJECT(,
0009F8 5850 D0F0 001488 | L r5,#ENV:SEARCHAND
0009FC 5810 D114 001488 | L r1,#CEECAACRENT_2
000A00 5010 C1F4 001488 | ST r1,_CEECAA_(,r12,
000A04 58F0 4002 001488 | L r15,=A(FIND_STRIN
000A08 4110 D098 001488 | LA r1,#MX_TEMP24(,r1
000A0C 5080 D098 001488 | ST r8,#MX_TEMP24(,r1
000A10 5070 D09C 001488 | ST r7,#MX_TEMP24(,r1
000A14 5030 D0A0 001488 | ST r3,#MX_TEMP24(,r1
000A18 5020 D0A4 001488 | ST r2,#MX_TEMP24(,r1
000A1C 0DEF 001488 | BASR r14,r15
000A1E 181F 001488 | LR r1,r15
000A20 5010 D0A8 001488 | ST r1,STRINGPTR(,r13
000A24 5820 D114 001490 | L r2,#CEECAACRENT_2
000A28 5810 4006 001490 | L r1,=Q(RETURNCODE)
000A2C 1E12 001490 | ALR r1,r2
000A2E 5810 1000 001490 | L r1,RETURNCODE(,r1
000A32 1211 001490 | LTR r1,r1
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
000A34 A774 0087 001490 | JNE @24L387
000A38 001490 | @24L389 DS 0H
000A38 001491 | @24L337 DS 0H
000A38 5810 D0AC 001492 | L r1,STRINGLEN(,r13
000A3C A71E 001E 001492 | CHI r1,H'30'
000A40 A7D4 0007 001492 | JNH @24L390
000A44 001492 | @24L392 DS 0H
000A44 E54C D0AC 001E 001494 | MVHI STRINGLEN(r13,172
000A4A A7F4 0002 001494 | J @24L391
000A4E 001494 | @24L390 DS 0H
000A4E 001494 | @24L391 DS 0H
000A4E 5810 D0F0 001496 | L r1,#ENV:SEARCHAND
000A52 5810 1134 001496 | L r1,MYRESPBODYUSER
000A56 5820 100C 001496 | L r2,_shadow6(,r1,1
000A5A 5810 D0AC 001496 | L r1,STRINGLEN(,r13
000A5E EB31 001F 00DC 001496 | SRAK r3,r1,31
000A64 C037 FFFF FFFF 001496 | XILF r3,F'-1'
000A6A 1413 001496 | NR r1,r3
000A6C C01B 0000 7FFF 001496 | NILF r1,F'32767'
000A72 4120 2096 001496 | LA r2,#AddressShadow
000A76 5020 D18C 001496 | ST r2,#wtemp_123(,r1
000A7A 5010 D0E0 001496 | ST r1,_temp47(,r13,2
000A7E 5820 D18C 001496 | L r2,#wtemp_123(,r1
000A82 5020 D0E8 001496 | ST r2,_temp49(,r13,2
000A86 5830 D0A8 001496 | L r3,STRINGPTR(,r13
000A8A 5810 D0AC 001496 | L r1,STRINGLEN(,r13
000A8E EB51 001F 00DC 001496 | SRAK r5,r1,31
000A94 C057 FFFF FFFF 001496 | XILF r5,F'-1'
000A9A 1415 001496 | NR r1,r5
000A9C C01B 0000 7FFF 001496 | NILF r1,F'32767'
000AA2 5030 D190 001496 | ST r3,#wtemp_124(,r1
000AA6 5020 D194 001496 | ST r2,#wtemp_125(,r1
000AAA 5010 D0E4 001496 | ST r1,_temp48(,r13,2
000AAE 5830 D0E0 001496 | L r3,_temp47(,r13,2
000AB2 1913 001496 | CR r1,r3
000AB4 B9F2 4031 001496 | LOCRL r3,r1
000AB8 5030 D0EC 001496 | ST r3,_temp50(,r13,2
000ABC 5810 D194 001496 | L r1,#wtemp_125(,r1
000AC0 5820 D190 001496 | L r2,#wtemp_124(,r1
000AC4 58F0 400A 001496 | L r15,=A(_outlineCo
000AC8 4DE0 F010 001496 | BAS r14,16(,r15)
000ACC 4700 000C 001496 | NOP 12
000AD0 5820 D0E8 001496 | L r2,_temp49(,r13,2
000AD4 5830 D0EC 001496 | L r3,_temp50(,r13,2
000AD8 5810 D0E0 001496 | L r1,_temp47(,r13,2
000ADC 1F13 001496 | SLR r1,r3
000ADE B9FA 3052 001496 | ALRK r5,r2,r3
000AE2 5050 D128 001496 | ST r5,#wtemp_98(,r13
000AE6 B9FA 30E2 001496 | ALRK r14,r2,r3
000AEA 50E0 D100 001496 | ST r14,#STRTEMP24(,r
000AEE 1211 001496 | LTR r1,r1
000AF0 A784 0027 001496 | JE @24L472
000AF4 9240 E000 001496 | MVI #AddressShadow(r1
000AF8 A71A FFFF 001496 | AHI r1,H'-1'
000AFC 1211 001496 | LTR r1,r1
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
000AFE A784 0020 001496 | JE @24L472
000B02 A71A FFFF 001496 | AHI r1,H'-1'
000B06 5010 D104 001496 | ST r1,#STRTEMP24(,r1
000B0A 8A10 0008 001496 | SRA r1,8
000B0E 5010 D0FC 001496 | ST r1,#STRTEMP24(,r1
000B12 1211 001496 | LTR r1,r1
000B14 A784 0010 001496 | JE @24L474
000B18 001496 | @24L473 DS 0H
000B18 5810 D0FC 001496 | L r1,#STRTEMP24(,r1
000B1C D2FF E001 E000 001496 | MVC #AddressShadow(25
000B22 41E0 E100 001496 | LA r14,#AddressShado
000B26 EC21 FFFF 00DA 001496 | ALHSIK r2,r1,H'-1'
000B2C 5020 D0FC 001496 | ST r2,#STRTEMP24(,r1
000B30 A716 FFF4 001496 | BRCT r1,@24L473
000B34 001496 | @24L474 DS 0H
000B34 5810 D104 001496 | L r1,#STRTEMP24(,r1
000B38 C610 0000 087E 001496 | EXRL r1,F'2174'
000B3E 001496 | @24L472 DS 0H
000B3E 001498 | @24L338 DS 0H
000B3E A7F4 0002 001498 | J @24L388
000B42 001498 | @24L387 DS 0H
000B42 001498 | @24L388 DS 0H
000B42 001499 | @24L332 DS 0H
000B42 A7F4 0002 001499 | J @24L373
000B46 001499 | @24L372 DS 0H
000B46 001499 | @24L373 DS 0H
000B46 E54C D0DC 0000 001508 | MVHI _temp46(r13,220),
000B4C 4110 D0BC 001508 | LA r1,_temp45(,r13,1
000B50 5010 D0E8 001508 | ST r1,_temp49(,r13,2
000B54 D206 1000 6440 001508 | MVC #AddressShadow(7,
000B5A 5810 D0E8 001508 | L r1,_temp49(,r13,2
000B5E 4110 1007 001508 | LA r1,#AddressShadow
000B62 5010 D100 001508 | ST r1,#STRTEMP24(,r1
000B66 9240 1000 001508 | MVI #AddressShadow(r1
000B6A D217 1001 1000 001508 | MVC #AddressShadow(24
000B70 E54C D0B8 0007 001508 | MVHI _temp44(r13,184),
000B76 4120 D0B8 001508 | LA r2,_temp44(,r13,1
000B7A 4130 D0BC 001508 | LA r3,_temp45(,r13,1
000B7E 4170 D0DC 001508 | LA r7,_temp46(,r13,2
000B82 5850 D0F0 001508 | L r5,#ENV:SEARCHAND
000B86 5810 D114 001508 | L r1,#CEECAACRENT_2
000B8A 5010 C1F4 001508 | ST r1,_CEECAA_(,r12,
000B8E 58F0 400E 001508 | L r15,=A(FIND_OBJEC
000B92 4110 D098 001508 | LA r1,#MX_TEMP24(,r1
000B96 5070 D098 001508 | ST r7,#MX_TEMP24(,r1
000B9A 5030 D09C 001508 | ST r3,#MX_TEMP24(,r1
000B9E 5020 D0A0 001508 | ST r2,#MX_TEMP24(,r1
000BA2 0DEF 001508 | BASR r14,r15
000BA4 181F 001508 | LR r1,r15
000BA6 5010 D0B4 001508 | ST r1,WEATHEROBJECT(
000BAA 4110 D0BC 001514 | LA r1,_temp45(,r13,1
000BAE 5010 D0E8 001514 | ST r1,_temp49(,r13,2
000BB2 D206 1000 6440 001514 | MVC #AddressShadow(7,
000BB8 5810 D0E8 001514 | L r1,_temp49(,r13,2
000BBC 4110 1007 001514 | LA r1,#AddressShadow
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
000BC0 5010 D100 001514 | ST r1,#STRTEMP24(,r1
000BC4 9240 1000 001514 | MVI #AddressShadow(r1
000BC8 D217 1001 1000 001514 | MVC #AddressShadow(24
000BCE E54C D0B8 0007 001514 | MVHI _temp44(r13,184),
000BD4 4120 D0AC 001514 | LA r2,STRINGLEN(,r13
000BD8 4130 D0B8 001514 | LA r3,_temp44(,r13,1
000BDC 4170 D0BC 001514 | LA r7,_temp45(,r13,1
000BE0 4180 D0B4 001514 | LA r8,WEATHEROBJECT(
000BE4 5850 D0F0 001514 | L r5,#ENV:SEARCHAND
000BE8 5810 D114 001514 | L r1,#CEECAACRENT_2
000BEC 5010 C1F4 001514 | ST r1,_CEECAA_(,r12,
000BF0 58F0 4002 001514 | L r15,=A(FIND_STRIN
000BF4 4110 D098 001514 | LA r1,#MX_TEMP24(,r1
000BF8 5080 D098 001514 | ST r8,#MX_TEMP24(,r1
000BFC 5070 D09C 001514 | ST r7,#MX_TEMP24(,r1
000C00 5030 D0A0 001514 | ST r3,#MX_TEMP24(,r1
000C04 5020 D0A4 001514 | ST r2,#MX_TEMP24(,r1
000C08 0DEF 001514 | BASR r14,r15
000C0A 181F 001514 | LR r1,r15
000C0C 5010 D0A8 001514 | ST r1,STRINGPTR(,r13
000C10 5820 D114 001516 | L r2,#CEECAACRENT_2
000C14 5810 4006 001516 | L r1,=Q(RETURNCODE)
000C18 1E12 001516 | ALR r1,r2
000C1A 5810 1000 001516 | L r1,RETURNCODE(,r1
000C1E 1211 001516 | LTR r1,r1
000C20 A774 0087 001516 | JNE @24L393
000C24 001516 | @24L395 DS 0H
000C24 001517 | @24L339 DS 0H
000C24 5810 D0AC 001518 | L r1,STRINGLEN(,r13
000C28 A71E 001E 001518 | CHI r1,H'30'
000C2C A7D4 0007 001518 | JNH @24L396
000C30 001518 | @24L398 DS 0H
000C30 E54C D0AC 001E 001519 | MVHI STRINGLEN(r13,172
000C36 A7F4 0002 001519 | J @24L397
000C3A 001519 | @24L396 DS 0H
000C3A 001519 | @24L397 DS 0H
000C3A 5810 D0F0 001521 | L r1,#ENV:SEARCHAND
000C3E 5810 1134 001521 | L r1,MYRESPBODYUSER
000C42 5820 100C 001521 | L r2,_shadow6(,r1,1
000C46 5810 D0AC 001521 | L r1,STRINGLEN(,r13
000C4A EB31 001F 00DC 001521 | SRAK r3,r1,31
000C50 C037 FFFF FFFF 001521 | XILF r3,F'-1'
000C56 1413 001521 | NR r1,r3
000C58 C01B 0000 7FFF 001521 | NILF r1,F'32767'
000C5E 4120 20B4 001521 | LA r2,#AddressShadow
000C62 5020 D1A4 001521 | ST r2,#wtemp_129(,r1
000C66 5010 D0EC 001521 | ST r1,_temp50(,r13,2
000C6A 5820 D1A4 001521 | L r2,#wtemp_129(,r1
000C6E 5020 D0E8 001521 | ST r2,_temp49(,r13,2
000C72 5830 D0A8 001521 | L r3,STRINGPTR(,r13
000C76 5810 D0AC 001521 | L r1,STRINGLEN(,r13
000C7A EB51 001F 00DC 001521 | SRAK r5,r1,31
000C80 C057 FFFF FFFF 001521 | XILF r5,F'-1'
000C86 1415 001521 | NR r1,r5
000C88 C01B 0000 7FFF 001521 | NILF r1,F'32767'
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
000C8E 5030 D1A8 001521 | ST r3,#wtemp_130(,r1
000C92 5020 D1AC 001521 | ST r2,#wtemp_131(,r1
000C96 5010 D0E4 001521 | ST r1,_temp48(,r13,2
000C9A 5830 D0EC 001521 | L r3,_temp50(,r13,2
000C9E 1913 001521 | CR r1,r3
000CA0 B9F2 4031 001521 | LOCRL r3,r1
000CA4 5030 D0E0 001521 | ST r3,_temp47(,r13,2
000CA8 5810 D1AC 001521 | L r1,#wtemp_131(,r1
000CAC 5820 D1A8 001521 | L r2,#wtemp_130(,r1
000CB0 58F0 400A 001521 | L r15,=A(_outlineCo
000CB4 4DE0 F010 001521 | BAS r14,16(,r15)
000CB8 4700 000C 001521 | NOP 12
000CBC 5820 D0E8 001521 | L r2,_temp49(,r13,2
000CC0 5830 D0E0 001521 | L r3,_temp47(,r13,2
000CC4 5810 D0EC 001521 | L r1,_temp50(,r13,2
000CC8 1F13 001521 | SLR r1,r3
000CCA B9FA 3052 001521 | ALRK r5,r2,r3
000CCE 5050 D128 001521 | ST r5,#wtemp_98(,r13
000CD2 B9FA 30E2 001521 | ALRK r14,r2,r3
000CD6 50E0 D100 001521 | ST r14,#STRTEMP24(,r
000CDA 1211 001521 | LTR r1,r1
000CDC A784 0027 001521 | JE @24L475
000CE0 9240 E000 001521 | MVI #AddressShadow(r1
000CE4 A71A FFFF 001521 | AHI r1,H'-1'
000CE8 1211 001521 | LTR r1,r1
000CEA A784 0020 001521 | JE @24L475
000CEE A71A FFFF 001521 | AHI r1,H'-1'
000CF2 5010 D104 001521 | ST r1,#STRTEMP24(,r1
000CF6 8A10 0008 001521 | SRA r1,8
000CFA 5010 D0FC 001521 | ST r1,#STRTEMP24(,r1
000CFE 1211 001521 | LTR r1,r1
000D00 A784 0010 001521 | JE @24L477
000D04 001521 | @24L476 DS 0H
000D04 5810 D0FC 001521 | L r1,#STRTEMP24(,r1
000D08 D2FF E001 E000 001521 | MVC #AddressShadow(25
000D0E 41E0 E100 001521 | LA r14,#AddressShado
000D12 EC21 FFFF 00DA 001521 | ALHSIK r2,r1,H'-1'
000D18 5020 D0FC 001521 | ST r2,#STRTEMP24(,r1
000D1C A716 FFF4 001521 | BRCT r1,@24L476
000D20 001521 | @24L477 DS 0H
000D20 5810 D104 001521 | L r1,#STRTEMP24(,r1
000D24 C610 0000 0788 001521 | EXRL r1,F'1928'
000D2A 001521 | @24L475 DS 0H
000D2A 001523 | @24L340 DS 0H
000D2A A7F4 0002 001523 | J @24L394
000D2E 001523 | @24L393 DS 0H
000D2E 001523 | @24L394 DS 0H
000D2E 4110 D0BC 001527 | LA r1,_temp45(,r13,1
000D32 5010 D0E8 001527 | ST r1,_temp49(,r13,2
000D36 D203 1000 6448 001527 | MVC #AddressShadow(4,
000D3C 5810 D0E8 001527 | L r1,_temp49(,r13,2
000D40 4110 1004 001527 | LA r1,#AddressShadow
000D44 5010 D100 001527 | ST r1,#STRTEMP24(,r1
000D48 9240 1000 001527 | MVI #AddressShadow(r1
000D4C D21A 1001 1000 001527 | MVC #AddressShadow(27
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
000D52 E54C D0B8 0004 001527 | MVHI _temp44(r13,184),
000D58 4120 D0AC 001527 | LA r2,STRINGLEN(,r13
000D5C 4130 D0B8 001527 | LA r3,_temp44(,r13,1
000D60 4170 D0BC 001527 | LA r7,_temp45(,r13,1
000D64 4180 D0B4 001527 | LA r8,WEATHEROBJECT(
000D68 5850 D0F0 001527 | L r5,#ENV:SEARCHAND
000D6C 5810 D114 001527 | L r1,#CEECAACRENT_2
000D70 5010 C1F4 001527 | ST r1,_CEECAA_(,r12,
000D74 58F0 4002 001527 | L r15,=A(FIND_STRIN
000D78 4110 D098 001527 | LA r1,#MX_TEMP24(,r1
000D7C 5080 D098 001527 | ST r8,#MX_TEMP24(,r1
000D80 5070 D09C 001527 | ST r7,#MX_TEMP24(,r1
000D84 5030 D0A0 001527 | ST r3,#MX_TEMP24(,r1
000D88 5020 D0A4 001527 | ST r2,#MX_TEMP24(,r1
000D8C 0DEF 001527 | BASR r14,r15
000D8E 181F 001527 | LR r1,r15
000D90 5010 D0A8 001527 | ST r1,STRINGPTR(,r13
000D94 5820 D114 001529 | L r2,#CEECAACRENT_2
000D98 5810 4006 001529 | L r1,=Q(RETURNCODE)
000D9C 1E12 001529 | ALR r1,r2
000D9E 5810 1000 001529 | L r1,RETURNCODE(,r1
000DA2 1211 001529 | LTR r1,r1
000DA4 A774 0087 001529 | JNE @24L399
000DA8 001529 | @24L401 DS 0H
000DA8 001530 | @24L341 DS 0H
000DA8 5810 D0AC 001531 | L r1,STRINGLEN(,r13
000DAC A71E 001E 001531 | CHI r1,H'30'
000DB0 A7D4 0007 001531 | JNH @24L402
000DB4 001531 | @24L404 DS 0H
000DB4 E54C D0AC 001E 001532 | MVHI STRINGLEN(r13,172
000DBA A7F4 0002 001532 | J @24L403
000DBE 001532 | @24L402 DS 0H
000DBE 001532 | @24L403 DS 0H
000DBE 5810 D0F0 001534 | L r1,#ENV:SEARCHAND
000DC2 5810 1134 001534 | L r1,MYRESPBODYUSER
000DC6 5820 100C 001534 | L r2,_shadow6(,r1,1
000DCA 5810 D0AC 001534 | L r1,STRINGLEN(,r13
000DCE EB31 001F 00DC 001534 | SRAK r3,r1,31
000DD4 C037 FFFF FFFF 001534 | XILF r3,F'-1'
000DDA 1413 001534 | NR r1,r3
000DDC C01B 0000 7FFF 001534 | NILF r1,F'32767'
000DE2 4120 20D2 001534 | LA r2,#AddressShadow
000DE6 5020 D1B8 001534 | ST r2,#wtemp_134(,r1
000DEA 5010 D0E0 001534 | ST r1,_temp47(,r13,2
000DEE 5820 D1B8 001534 | L r2,#wtemp_134(,r1
000DF2 5020 D0E8 001534 | ST r2,_temp49(,r13,2
000DF6 5830 D0A8 001534 | L r3,STRINGPTR(,r13
000DFA 5810 D0AC 001534 | L r1,STRINGLEN(,r13
000DFE EB51 001F 00DC 001534 | SRAK r5,r1,31
000E04 C057 FFFF FFFF 001534 | XILF r5,F'-1'
000E0A 1415 001534 | NR r1,r5
000E0C C01B 0000 7FFF 001534 | NILF r1,F'32767'
000E12 5030 D1BC 001534 | ST r3,#wtemp_135(,r1
000E16 5020 D1C0 001534 | ST r2,#wtemp_136(,r1
000E1A 5010 D0E4 001534 | ST r1,_temp48(,r13,2
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
000E1E 5830 D0E0 001534 | L r3,_temp47(,r13,2
000E22 1913 001534 | CR r1,r3
000E24 B9F2 4031 001534 | LOCRL r3,r1
000E28 5030 D0EC 001534 | ST r3,_temp50(,r13,2
000E2C 5810 D1C0 001534 | L r1,#wtemp_136(,r1
000E30 5820 D1BC 001534 | L r2,#wtemp_135(,r1
000E34 58F0 400A 001534 | L r15,=A(_outlineCo
000E38 4DE0 F010 001534 | BAS r14,16(,r15)
000E3C 4700 000C 001534 | NOP 12
000E40 5820 D0E8 001534 | L r2,_temp49(,r13,2
000E44 5830 D0EC 001534 | L r3,_temp50(,r13,2
000E48 5810 D0E0 001534 | L r1,_temp47(,r13,2
000E4C 1F13 001534 | SLR r1,r3
000E4E B9FA 3052 001534 | ALRK r5,r2,r3
000E52 5050 D128 001534 | ST r5,#wtemp_98(,r13
000E56 B9FA 30E2 001534 | ALRK r14,r2,r3
000E5A 50E0 D100 001534 | ST r14,#STRTEMP24(,r
000E5E 1211 001534 | LTR r1,r1
000E60 A784 0027 001534 | JE @24L478
000E64 9240 E000 001534 | MVI #AddressShadow(r1
000E68 A71A FFFF 001534 | AHI r1,H'-1'
000E6C 1211 001534 | LTR r1,r1
000E6E A784 0020 001534 | JE @24L478
000E72 A71A FFFF 001534 | AHI r1,H'-1'
000E76 5010 D104 001534 | ST r1,#STRTEMP24(,r1
000E7A 8A10 0008 001534 | SRA r1,8
000E7E 5010 D0FC 001534 | ST r1,#STRTEMP24(,r1
000E82 1211 001534 | LTR r1,r1
000E84 A784 0010 001534 | JE @24L480
000E88 001534 | @24L479 DS 0H
000E88 5810 D0FC 001534 | L r1,#STRTEMP24(,r1
000E8C D2FF E001 E000 001534 | MVC #AddressShadow(25
000E92 41E0 E100 001534 | LA r14,#AddressShado
000E96 EC21 FFFF 00DA 001534 | ALHSIK r2,r1,H'-1'
000E9C 5020 D0FC 001534 | ST r2,#STRTEMP24(,r1
000EA0 A716 FFF4 001534 | BRCT r1,@24L479
000EA4 001534 | @24L480 DS 0H
000EA4 5810 D104 001534 | L r1,#STRTEMP24(,r1
000EA8 C610 0000 06C6 001534 | EXRL r1,F'1734'
000EAE 001534 | @24L478 DS 0H
000EAE 001536 | @24L342 DS 0H
000EAE A7F4 0002 001536 | J @24L400
000EB2 001536 | @24L399 DS 0H
000EB2 001536 | @24L400 DS 0H
000EB2 4110 D0BC 001540 | LA r1,_temp45(,r13,1
000EB6 5010 D0E8 001540 | ST r1,_temp49(,r13,2
000EBA D203 1000 644C 001540 | MVC #AddressShadow(4,
000EC0 5810 D0E8 001540 | L r1,_temp49(,r13,2
000EC4 4110 1004 001540 | LA r1,#AddressShadow
000EC8 5010 D100 001540 | ST r1,#STRTEMP24(,r1
000ECC 9240 1000 001540 | MVI #AddressShadow(r1
000ED0 D21A 1001 1000 001540 | MVC #AddressShadow(27
000ED6 E54C D0B8 0004 001540 | MVHI _temp44(r13,184),
000EDC 4120 D0AC 001540 | LA r2,STRINGLEN(,r13
000EE0 4130 D0B8 001540 | LA r3,_temp44(,r13,1
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
000EE4 4170 D0BC 001540 | LA r7,_temp45(,r13,1
000EE8 4180 D0B4 001540 | LA r8,WEATHEROBJECT(
000EEC 5850 D0F0 001540 | L r5,#ENV:SEARCHAND
000EF0 5810 D114 001540 | L r1,#CEECAACRENT_2
000EF4 5010 C1F4 001540 | ST r1,_CEECAA_(,r12,
000EF8 58F0 4002 001540 | L r15,=A(FIND_STRIN
000EFC 4110 D098 001540 | LA r1,#MX_TEMP24(,r1
000F00 5080 D098 001540 | ST r8,#MX_TEMP24(,r1
000F04 5070 D09C 001540 | ST r7,#MX_TEMP24(,r1
000F08 5030 D0A0 001540 | ST r3,#MX_TEMP24(,r1
000F0C 5020 D0A4 001540 | ST r2,#MX_TEMP24(,r1
000F10 0DEF 001540 | BASR r14,r15
000F12 181F 001540 | LR r1,r15
000F14 5010 D0A8 001540 | ST r1,STRINGPTR(,r13
000F18 5820 D114 001542 | L r2,#CEECAACRENT_2
000F1C 5810 4006 001542 | L r1,=Q(RETURNCODE)
000F20 1E12 001542 | ALR r1,r2
000F22 5810 1000 001542 | L r1,RETURNCODE(,r1
000F26 1211 001542 | LTR r1,r1
000F28 A774 0087 001542 | JNE @24L405
000F2C 001542 | @24L407 DS 0H
000F2C 001543 | @24L343 DS 0H
000F2C 5810 D0AC 001544 | L r1,STRINGLEN(,r13
000F30 A71E 001E 001544 | CHI r1,H'30'
000F34 A7D4 0007 001544 | JNH @24L408
000F38 001544 | @24L410 DS 0H
000F38 E54C D0AC 001E 001545 | MVHI STRINGLEN(r13,172
000F3E A7F4 0002 001545 | J @24L409
000F42 001545 | @24L408 DS 0H
000F42 001545 | @24L409 DS 0H
000F42 5810 D0F0 001547 | L r1,#ENV:SEARCHAND
000F46 5810 1134 001547 | L r1,MYRESPBODYUSER
000F4A 5820 100C 001547 | L r2,_shadow6(,r1,1
000F4E 5810 D0AC 001547 | L r1,STRINGLEN(,r13
000F52 EB31 001F 00DC 001547 | SRAK r3,r1,31
000F58 C037 FFFF FFFF 001547 | XILF r3,F'-1'
000F5E 1413 001547 | NR r1,r3
000F60 C01B 0000 7FFF 001547 | NILF r1,F'32767'
000F66 4120 20F0 001547 | LA r2,#AddressShadow
000F6A 5020 D1CC 001547 | ST r2,#wtemp_139(,r1
000F6E 5010 D0EC 001547 | ST r1,_temp50(,r13,2
000F72 5820 D1CC 001547 | L r2,#wtemp_139(,r1
000F76 5020 D0E8 001547 | ST r2,_temp49(,r13,2
000F7A 5830 D0A8 001547 | L r3,STRINGPTR(,r13
000F7E 5810 D0AC 001547 | L r1,STRINGLEN(,r13
000F82 EB51 001F 00DC 001547 | SRAK r5,r1,31
000F88 C057 FFFF FFFF 001547 | XILF r5,F'-1'
000F8E 1415 001547 | NR r1,r5
000F90 C01B 0000 7FFF 001547 | NILF r1,F'32767'
000F96 5030 D1D0 001547 | ST r3,#wtemp_140(,r1
000F9A 5020 D1D4 001547 | ST r2,#wtemp_141(,r1
000F9E 5010 D0E4 001547 | ST r1,_temp48(,r13,2
000FA2 5830 D0EC 001547 | L r3,_temp50(,r13,2
000FA6 1913 001547 | CR r1,r3
000FA8 B9F2 4031 001547 | LOCRL r3,r1
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
000FAC 5030 D0E0 001547 | ST r3,_temp47(,r13,2
000FB0 5810 D1D4 001547 | L r1,#wtemp_141(,r1
000FB4 5820 D1D0 001547 | L r2,#wtemp_140(,r1
000FB8 58F0 400A 001547 | L r15,=A(_outlineCo
000FBC 4DE0 F010 001547 | BAS r14,16(,r15)
000FC0 4700 000C 001547 | NOP 12
000FC4 5810 D0E8 001547 | L r1,_temp49(,r13,2
000FC8 5820 D0E0 001547 | L r2,_temp47(,r13,2
000FCC 5800 D0EC 001547 | L r0,_temp50(,r13,2
000FD0 1F02 001547 | SLR r0,r2
000FD2 B9FA 2031 001547 | ALRK r3,r1,r2
000FD6 5030 D128 001547 | ST r3,#wtemp_98(,r13
000FDA B9FA 20E1 001547 | ALRK r14,r1,r2
000FDE 50E0 D100 001547 | ST r14,#STRTEMP24(,r
000FE2 1200 001547 | LTR r0,r0
000FE4 A784 0027 001547 | JE @24L481
000FE8 9240 E000 001547 | MVI #AddressShadow(r1
000FEC A70A FFFF 001547 | AHI r0,H'-1'
000FF0 1200 001547 | LTR r0,r0
000FF2 A784 0020 001547 | JE @24L481
000FF6 A70A FFFF 001547 | AHI r0,H'-1'
000FFA 5000 D104 001547 | ST r0,#STRTEMP24(,r1
000FFE 8A00 0008 001547 | SRA r0,8
001002 5000 D0FC 001547 | ST r0,#STRTEMP24(,r1
001006 1200 001547 | LTR r0,r0
001008 A784 0010 001547 | JE @24L483
00100C 001547 | @24L482 DS 0H
00100C 5800 D0FC 001547 | L r0,#STRTEMP24(,r1
001010 D2FF E001 E000 001547 | MVC #AddressShadow(25
001016 41E0 E100 001547 | LA r14,#AddressShado
00101A EC10 FFFF 00DA 001547 | ALHSIK r1,r0,H'-1'
001020 5010 D0FC 001547 | ST r1,#STRTEMP24(,r1
001024 A706 FFF4 001547 | BRCT r0,@24L482
001028 001547 | @24L483 DS 0H
001028 5810 D104 001547 | L r1,#STRTEMP24(,r1
00102C C610 0000 0604 001547 | EXRL r1,F'1540'
001032 001547 | @24L481 DS 0H
001032 001549 | @24L344 DS 0H
001032 A7F4 0002 001549 | J @24L406
001036 001549 | @24L405 DS 0H
001036 001549 | @24L406 DS 0H
001036 001551 | @24L322 DS 0H
001036 001551 | @24L430 DS 0H
001036 5800 D114 000000 | L r0,#CEECAACRENT_2
00103A 5000 C1F4 000000 | ST r0,_CEECAA_(,r12,
00103E Start of Epilog
00103E 58D0 D004 001551 | L r13,4(,r13)
001042 58E0 D00C 001551 | L r14,12(,r13)
001046 9829 D01C 001551 | LM r2,r9,28(r13)
00104A 051E 001551 | BALR r1,r14
00104C 0707 001551 | NOPR 7
00104E 0000
001050 Start of Literals
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
001050 00004800 =A(FIND_STRING)
001054 00000000 =Q(RETURNCODE)
001058 000060B8 =A(_outlineConc)
00105C 000046D0 =A(FIND_OBJECT)
001060 End of Literals
*** General purpose registers used: 111111111100111
*** Floating point registers used: 111111110000000
*** Size of register spill area: 512(max) 0(used)
*** Size of dynamic storage: 480
*** Size of executable code: 4174
*** CSECT Offset: 20392 : 0x4FA8
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
000000 000000 | _CsCopy DS 0D
000000 47F0 F001 000000 | B 1(,r15)
000004 01C3C5C5 CEE eyecatcher
000008 000000E0 DSA size
00000C 000018B0 =A(PPA1-_CsCopy)
000010 90E6 D00C 000000 | STM r14,r6,12(r13)
000014 58E0 D04C 000000 | L r14,76(,r13)
000018 4100 E0E0 000000 | LA r0,224(,r14)
00001C 5500 C314 000000 | CL r0,788(,r12)
000020 A7D4 0008 000000 | JNH *+16
000024 58F0 C31C 000000 | L r15,796(,r12)
000028 184E 000000 | LR r4,r14
00002A 05EF 000000 | BALR r14,r15
00002C 00000010 =F'16'
000030 5000 E04C 000000 | ST r0,76(,r14)
000034 9210 E000 000000 | MVI 0(r14),16
000038 50D0 E004 000000 | ST r13,4(,r14)
00003C 5800 D014 000000 | L r0,20(,r13)
000040 18DE 000000 | LR r13,r14
000042 186E 000000 | LR r6,r14
000044 C040 0000 0033 000000 | LARL r4,F'51'
00004A End of Prolog
00004A 5010 60BC 000000 | ST r1,_parm1(,r6,188
00004E 5020 60C0 000000 | ST r2,_parm2(,r6,192
000052 5030 60C4 000000 | ST r3,_parm3(,r6,196
000056 5810 60C4 000000 | L r1,_parm3(,r6,196
00005A 1211 000000 | LTR r1,r1
00005C A7D4 001E 000000 | JNH @25L414
000060 000000 | @25L413 DS 0H
000060 5810 60C8 000000 | L r1,_parm4(,r6,200
000064 5820 60BC 000000 | L r2,_parm1(,r6,188
000068 5830 60C0 000000 | L r3,_parm2(,r6,192
00006C 58F0 4002 000000 | L r15,=A(_outlineCo
000070 4DE0 F010 000000 | BAS r14,16(,r15)
000074 4700 000C 000000 | NOP 12
000078 5800 60C8 000000 | L r0,_parm4(,r6,200
00007C 5810 60C0 000000 | L r1,_parm2(,r6,192
000080 1E01 000000 | ALR r0,r1
000082 5000 60C8 000000 | ST r0,_parm4(,r6,200
000086 5800 60C4 000000 | L r0,_parm3(,r6,196
00008A A70A FFFF 000000 | AHI r0,H'-1'
00008E 5000 60C4 000000 | ST r0,_parm3(,r6,196
000092 1200 000000 | LTR r0,r0
000094 A724 FFE6 000000 | JH @25L413
000098 000000 | @25L414 DS 0H
000098 000000 | @25L412 DS 0H
000098 000000 | @25L440 DS 0H
000098 Start of Epilog
000098 58D0 D004 000000 | L r13,4(,r13)
00009C 58E0 D00C 000000 | L r14,12(,r13)
0000A0 9846 D024 000000 | LM r4,r6,36(r13)
0000A4 47F0 E004 000000 | B 4(,r14)
0000A8 0707 000000 | NOPR 7
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
0000AA 0000
0000AC Start of Literals
0000AC 000060B8 =A(_outlineConc)
0000B0 End of Literals
*** General purpose registers used: 111110100000111
*** Floating point registers used: 111111110000000
*** Size of register spill area: 512(max) 0(used)
*** Size of dynamic storage: 224
*** Size of executable code: 170
*** CSECT Offset: 24584 : 0x6008
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
_outlineConc
000000 000000 | DS 0D
000000 47F0 F001 000000 | B 1(,r15)
000004 01C3C5C5 CEE eyecatcher
000008 000000D8 DSA size
00000C 00001848 =A(PPA1-_outlineC
000010 9059 D028 000000 | STM r5,r9,40(r13)
000014 End of Prolog
000014 1233 000000 | LTR r3,r3
000016 4110 1000 000000 | LA r1,#MEMORY(,r1,0)
00001A 4120 2000 000000 | LA r2,#MEMORY(,r2,0)
00001E A784 0019 000000 | JE @27L487
000022 1521 000000 | CLR r2,r1
000024 A784 0016 000000 | JE @27L487
000028 0630 000000 | BCTR r3,r0
00002A 1853 000000 | LR r5,r3
00002C 8A50 0008 000000 | SRA r5,8
000030 A784 000B 000000 | JE @27L485
000034 000000 | @27L484 DS 0H
000034 D2FF 1000 2000 000000 | MVC #MEMORY(256,r1,0)
00003A 4110 1100 000000 | LA r1,#MEMORY(,r1,25
00003E 4120 2100 000000 | LA r2,#MEMORY(,r2,25
000042 A756 FFF9 000000 | BRCT r5,@27L484
000046 000000 | @27L485 DS 0H
000046 C090 0000 016D 000000 | LARL r9,F'365'
00004C 4430 9DDC 000000 | EX r3,#EX_MVC_r20971
000050 000000 | @27L487 DS 0H
000050 Start of Epilog
000050 9859 D028 000000 | LM r5,r9,40(r13)
000054 47F0 E004 000000 | B 4(,r14)
000058 0707 000000 | NOPR 7
*** General purpose registers used: 011101000100011
*** Floating point registers used: 000000000000000
*** Size of register spill area: 512(max) 0(used)
*** Size of dynamic storage: 216
*** Size of executable code: 90
*** CSECT Offset: 24760 : 0x60B8
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
__dllstaticinit
000000 000000 | DS 0D
000000 47F0 F024 000000 | B 36(,r15)
000004 01C3C5C5 CEE eyecatcher
000008 00000098 DSA size
00000C 00001830 =A(PPA1-__dllstat
000010 47F0 F001 000000 | B 1(,r15)
000014 58F0 C31C 000000 | L r15,796(,r12)
000018 184E 000000 | LR r4,r14
00001A 05EF 000000 | BALR r14,r15
00001C 00000000 =F'0'
000020 A7F4 000C 000000 | J *+24
000024 90E4 D00C 000000 | STM r14,r4,12(r13)
000028 58E0 D04C 000000 | L r14,76(,r13)
00002C 4100 E098 000000 | LA r0,152(,r14)
000030 5500 C314 000000 | CL r0,788(,r12)
000034 A724 FFF0 000000 | JH *-32
000038 5000 E04C 000000 | ST r0,76(,r14)
00003C 9210 E000 000000 | MVI 0(r14),16
000040 50D0 E004 000000 | ST r13,4(,r14)
000044 18DE 000000 | LR r13,r14
000046 C030 0000 0105 000000 | LARL r3,F'261'
00004C End of Prolog
00004C 5810 C1F4 000000 | L r1,_CEECAA_(,r12,
000050 58E0 3000 000000 | L r14,=Q(HWTHTERM)(
000054 410E 1000 000000 | LA r0,=Q(HWTHTERM)(r
000058 58E0 3004 000000 | L r14,=Q(_HWTHXPI1)
00005C 414E 1000 000000 | LA r4,=Q(_HWTHXPI1)(
000060 5000 4000 000000 | ST r0,_HWTHXPI1(,r4,
000064 58E0 3008 000000 | L r14,=Q(HWTHSLST)(
000068 410E 1000 000000 | LA r0,=Q(HWTHSLST)(r
00006C 5000 4004 000000 | ST r0,_HWTHXPI1(,r4,
000070 58E0 300C 000000 | L r14,=Q(HWTHSET)(,
000074 410E 1000 000000 | LA r0,=Q(HWTHSET)(r1
000078 5000 4008 000000 | ST r0,_HWTHXPI1(,r4,
00007C 58E0 3010 000000 | L r14,=Q(HWTHRSET)(
000080 410E 1000 000000 | LA r0,=Q(HWTHRSET)(r
000084 5000 400C 000000 | ST r0,_HWTHXPI1(,r4,
000088 58E0 3014 000000 | L r14,=Q(HWTHRQST)(
00008C 410E 1000 000000 | LA r0,=Q(HWTHRQST)(r
000090 5000 4010 000000 | ST r0,_HWTHXPI1(,r4,
000094 58E0 3018 000000 | L r14,=Q(HWTHINIT)(
000098 410E 1000 000000 | LA r0,=Q(HWTHINIT)(r
00009C 5000 4014 000000 | ST r0,_HWTHXPI1(,r4,
0000A0 58E0 301C 000000 | L r14,=Q(HWTHDISC)(
0000A4 410E 1000 000000 | LA r0,=Q(HWTHDISC)(r
0000A8 5000 4018 000000 | ST r0,_HWTHXPI1(,r4,
0000AC 58E0 3020 000000 | L r14,=Q(HWTHCONN)(
0000B0 410E 1000 000000 | LA r0,=Q(HWTHCONN)(r
0000B4 5000 401C 000000 | ST r0,_HWTHXPI1(,r4,
0000B8 58E0 3024 000000 | L r14,=Q(HWTHRCVX)(
0000BC 410E 1000 000000 | LA r0,=Q(HWTHRCVX)(r
0000C0 5000 4020 000000 | ST r0,_HWTHXPI1(,r4,
0000C4 58E0 3028 000000 | L r14,=Q(HWTHSNDX)(
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
0000C8 410E 1000 000000 | LA r0,=Q(HWTHSNDX)(r
0000CC 5000 4024 000000 | ST r0,_HWTHXPI1(,r4,
0000D0 58E0 302C 000000 | L r14,=Q(HWTJDEL)(,
0000D4 410E 1000 000000 | LA r0,=Q(HWTJDEL)(r1
0000D8 5000 4028 000000 | ST r0,_HWTHXPI1(,r4,
0000DC 58E0 3030 000000 | L r14,=Q(HWTJTERM)(
0000E0 410E 1000 000000 | LA r0,=Q(HWTJTERM)(r
0000E4 5000 402C 000000 | ST r0,_HWTHXPI1(,r4,
0000E8 58E0 3034 000000 | L r14,=Q(HWTJSRCH)(
0000EC 410E 1000 000000 | LA r0,=Q(HWTJSRCH)(r
0000F0 5000 4030 000000 | ST r0,_HWTHXPI1(,r4,
0000F4 58E0 3038 000000 | L r14,=Q(HWTJSERI)(
0000F8 410E 1000 000000 | LA r0,=Q(HWTJSERI)(r
0000FC 5000 4034 000000 | ST r0,_HWTHXPI1(,r4,
000100 58E0 303C 000000 | L r14,=Q(HWTJPARS)(
000104 410E 1000 000000 | LA r0,=Q(HWTJPARS)(r
000108 5000 4038 000000 | ST r0,_HWTHXPI1(,r4,
00010C 58E0 3040 000000 | L r14,=Q(HWTJINIT)(
000110 410E 1000 000000 | LA r0,=Q(HWTJINIT)(r
000114 5000 403C 000000 | ST r0,_HWTHXPI1(,r4,
000118 58E0 3044 000000 | L r14,=Q(HWTJGVAL)(
00011C 410E 1000 000000 | LA r0,=Q(HWTJGVAL)(r
000120 5000 4040 000000 | ST r0,_HWTHXPI1(,r4,
000124 58E0 3048 000000 | L r14,=Q(HWTJGOEN)(
000128 410E 1000 000000 | LA r0,=Q(HWTJGOEN)(r
00012C 5000 4044 000000 | ST r0,_HWTHXPI1(,r4,
000130 58E0 304C 000000 | L r14,=Q(HWTJGNUV)(
000134 410E 1000 000000 | LA r0,=Q(HWTJGNUV)(r
000138 5000 4048 000000 | ST r0,_HWTHXPI1(,r4,
00013C 58E0 3050 000000 | L r14,=Q(HWTJGNUE)(
000140 410E 1000 000000 | LA r0,=Q(HWTJGNUE)(r
000144 5000 404C 000000 | ST r0,_HWTHXPI1(,r4,
000148 58E0 3054 000000 | L r14,=Q(HWTJGJST)(
00014C 410E 1000 000000 | LA r0,=Q(HWTJGJST)(r
000150 5000 4050 000000 | ST r0,_HWTHXPI1(,r4,
000154 58E0 3058 000000 | L r14,=Q(HWTJGBOV)(
000158 410E 1000 000000 | LA r0,=Q(HWTJGBOV)(r
00015C 5000 4054 000000 | ST r0,_HWTHXPI1(,r4,
000160 58E0 305C 000000 | L r14,=Q(HWTJGAEN)(
000164 410E 1000 000000 | LA r0,=Q(HWTJGAEN)(r
000168 5000 4058 000000 | ST r0,_HWTHXPI1(,r4,
00016C 58E0 3060 000000 | L r14,=Q(HWTJCREN)(
000170 410E 1000 000000 | LA r0,=Q(HWTJCREN)(r
000174 5000 405C 000000 | ST r0,_HWTHXPI1(,r4,
000178 58E0 3064 000000 | L r14,=Q(IBMQJDSB)(
00017C 410E 1000 000000 | LA r0,=Q(IBMQJDSB)(r
000180 58E0 3068 000000 | L r14,=Q(@STATIC)(,
000184 41FE 1000 000000 | LA r15,=Q(@STATIC)(r
000188 5000 F000 000000 | ST r0,=A(IBMQJDSB)(,
00018C 58E0 306C 000000 | L r14,=Q(IBMQEFSH)(
000190 410E 1000 000000 | LA r0,=Q(IBMQEFSH)(r
000194 5000 F004 000000 | ST r0,=A(IBMQEFSH)(,
000198 58E0 3018 000000 | L r14,=Q(HWTHINIT)(
00019C 410E 1000 000000 | LA r0,=Q(HWTHINIT)(r
0001A0 5000 F008 000000 | ST r0,=A(HWTHINIT)(,
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
0001A4 58E0 300C 000000 | L r14,=Q(HWTHSET)(,
0001A8 410E 1000 000000 | LA r0,=Q(HWTHSET)(r1
0001AC 5000 F00C 000000 | ST r0,=A(HWTHSET)(,r
0001B0 58E0 3020 000000 | L r14,=Q(HWTHCONN)(
0001B4 410E 1000 000000 | LA r0,=Q(HWTHCONN)(r
0001B8 5000 F010 000000 | ST r0,=A(HWTHCONN)(,
0001BC 58E0 3008 000000 | L r14,=Q(HWTHSLST)(
0001C0 410E 1000 000000 | LA r0,=Q(HWTHSLST)(r
0001C4 5000 F014 000000 | ST r0,=A(HWTHSLST)(,
0001C8 58E0 3014 000000 | L r14,=Q(HWTHRQST)(
0001CC 410E 1000 000000 | LA r0,=Q(HWTHRQST)(r
0001D0 5000 F018 000000 | ST r0,=A(HWTHRQST)(,
0001D4 58E0 301C 000000 | L r14,=Q(HWTHDISC)(
0001D8 410E 1000 000000 | LA r0,=Q(HWTHDISC)(r
0001DC 5000 F01C 000000 | ST r0,=A(HWTHDISC)(,
0001E0 58E0 3000 000000 | L r14,=Q(HWTHTERM)(
0001E4 410E 1000 000000 | LA r0,=Q(HWTHTERM)(r
0001E8 5000 F020 000000 | ST r0,=A(HWTHTERM)(,
0001EC 58E0 3040 000000 | L r14,=Q(HWTJINIT)(
0001F0 410E 1000 000000 | LA r0,=Q(HWTJINIT)(r
0001F4 5000 F024 000000 | ST r0,=A(HWTJINIT)(,
0001F8 58E0 303C 000000 | L r14,=Q(HWTJPARS)(
0001FC 410E 1000 000000 | LA r0,=Q(HWTJPARS)(r
000200 5000 F028 000000 | ST r0,=A(HWTJPARS)(,
000204 58E0 3030 000000 | L r14,=Q(HWTJTERM)(
000208 410E 1000 000000 | LA r0,=Q(HWTJTERM)(r
00020C 5000 F02C 000000 | ST r0,=A(HWTJTERM)(,
000210 58E0 3034 000000 | L r14,=Q(HWTJSRCH)(
000214 410E 1000 000000 | LA r0,=Q(HWTJSRCH)(r
000218 5000 F030 000000 | ST r0,=A(HWTJSRCH)(,
00021C 58E0 3054 000000 | L r14,=Q(HWTJGJST)(
000220 410E 1000 000000 | LA r0,=Q(HWTJGJST)(r
000224 5000 F034 000000 | ST r0,=A(HWTJGJST)(,
000228 58E0 3044 000000 | L r14,=Q(HWTJGVAL)(
00022C 410E 1000 000000 | LA r0,=Q(HWTJGVAL)(r
000230 5000 F038 000000 | ST r0,=A(HWTJGVAL)(,
000234 58E0 3058 000000 | L r14,=Q(HWTJGBOV)(
000238 410E 1000 000000 | LA r0,=Q(HWTJGBOV)(r
00023C 5000 F03C 000000 | ST r0,=A(HWTJGBOV)(,
000240 Start of Epilog
000240 58D0 D004 000000 | L r13,4(,r13)
000244 58E0 D00C 000000 | L r14,12(,r13)
000248 9824 D01C 000000 | LM r2,r4,28(r13)
00024C 051E 000000 | BALR r1,r14
00024E 0707 000000 | NOPR 7
000250 Start of Literals
000250 00000000 =Q(HWTHTERM)
000254 00000000 =Q(_HWTHXPI1)
000258 00000000 =Q(HWTHSLST)
00025C 00000000 =Q(HWTHSET)
000260 00000000 =Q(HWTHRSET)
000264 00000000 =Q(HWTHRQST)
000268 00000000 =Q(HWTHINIT)
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
00026C 00000000 =Q(HWTHDISC)
000270 00000000 =Q(HWTHCONN)
000274 00000000 =Q(HWTHRCVX)
000278 00000000 =Q(HWTHSNDX)
00027C 00000000 =Q(HWTJDEL)
000280 00000000 =Q(HWTJTERM)
000284 00000000 =Q(HWTJSRCH)
000288 00000000 =Q(HWTJSERI)
00028C 00000000 =Q(HWTJPARS)
000290 00000000 =Q(HWTJINIT)
000294 00000000 =Q(HWTJGVAL)
000298 00000000 =Q(HWTJGOEN)
00029C 00000000 =Q(HWTJGNUV)
0002A0 00000000 =Q(HWTJGNUE)
0002A4 00000000 =Q(HWTJGJST)
0002A8 00000000 =Q(HWTJGBOV)
0002AC 00000000 =Q(HWTJGAEN)
0002B0 00000000 =Q(HWTJCREN)
0002B4 00000000 =Q(IBMQJDSB)
0002B8 00000000 =Q(@STATIC)
0002BC 00000000 =Q(IBMQEFSH)
0002C0 End of Literals
*** General purpose registers used: 111110000000111
*** Floating point registers used: 000000000000000
*** Size of register spill area: 512(max) 0(used)
*** Size of dynamic storage: 152
*** Size of executable code: 592
*** CSECT Offset: 24856 : 0x6118
Constant Area
000000 02020240 00000031 02020240 00000033 |... ....... ....|
000010 02020240 00000034 02020000 00000000 |... ............|
000020 02020240 0000007C 02020240 00000001 |... ...@... ....|
000030 02020240 00000040 02020240 00000047 |... ... ... ....|
000040 02020240 000000C8 02020240 00000011 |... ...H... ....|
000050 02020240 00000012 02020240 00000016 |... ....... ....|
000060 02020240 00000017 02020240 0000001A |... ....... ....|
000070 02020240 0000001C 02020240 0000001E |... ....... ....|
000080 02020240 0000001F 02020240 00000020 |... ....... ....|
000090 02020240 00000021 02020240 000000DE |... ....... ....|
0000A0 02020240 00000022 02020240 00000023 |... ....... ....|
0000B0 02020240 00000024 02020240 00000025 |... ....... ....|
0000C0 02020240 00000026 02020240 00000028 |... ....... ....|
0000D0 02020240 00000029 02020240 0000002A |... ....... ....|
0000E0 02020240 0000002B 02020240 0000002C |... ....... ....|
0000F0 02020240 0000002D 02020240 0000002E |... ....... ....|
000100 02020240 0000002F 83969595 8583A389 |... ....connecti|
000110 96950000 998598A4 85A2A340 40400000 |on..request ..|
000120 E2E4C3C3 C5E2E27A 40C8E6E3 C8C9D5C9 |SUCCESS: HWTHINI|
000130 E3408399 8581A385 84400000 408995A2 |T created .. ins|
000140 A3819583 854B0000 C8E6E3C8 C9D5C9E3 |tance...HWTHINIT|
000150 40868189 9385844B 88A3A397 7A6161A2 | failed.http://s|
000160 8599A589 8385A24B 8681814B 8796A500 |ervices.faa.gov.|
000170 E285A340 86818993 8584404D C8E6E3C8 |Set failed (HWTH|
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
000180 E2C5E35D 4B40C881 95849385 7A400000 |SET). Handle: ..|
000190 C3969595 8583A340 86818993 8584404D |Connect failed (|
0001A0 C8E6E3C8 C3D6D5D5 5D4BC396 95958583 |HWTHCONN).Connec|
0001B0 A3899695 40888195 8493857A 40000000 |tion handle: ...|
0001C0 61818999 979699A3 61A2A381 A3A4A261 |/airport/status/|
0001D0 C88499C4 81A38140 C29684A8 C481A381 |HdrData BodyData|
0001E0 C1838385 97A37A81 97979389 8381A389 |Accept:applicati|
0001F0 96956191 A2969500 C1838385 97A360D3 |on/json.Accept-L|
000200 819587A4 8187857A 40859560 E4E20000 |anguage: en-US..|
000210 E29389A2 A3408681 89938584 404DC8E6 |Slist failed (HW|
000220 E3C8E2D3 E2E35D4B D98598A4 85A2A340 |THSLST).Request |
000230 88819584 93857A40 D98598A4 85A2A340 |handle: Request |
000240 86818993 8584404D C8E6E3C8 D9D8E2E3 |failed (HWTHRQST|
000250 5D4BC396 95958583 A3899695 40888195 |).Connection han|
000260 8493857A 40000000 D98598A4 85A2A340 |dle: ...Request |
000270 88819584 93857A40 C489A283 96959585 |handle: Disconne|
000280 83A3404D C8E6E3C8 C4C9E2C3 5D408681 |ct (HWTHDISC) fa|
000290 89938584 4BC39695 958583A3 89969540 |iled.Connection |
0002A0 88819584 93857A40 E3859994 899581A3 |handle: Terminat|
0002B0 85408681 89938584 404DC8E6 E3C8E3C5 |e failed (HWTHTE|
0002C0 D9D45D4B C8819584 93857A40 C1899997 |RM).Handle: Airp|
0002D0 9699A340 8481A381 40869699 40000000 |ort data for ...|
0002E0 C1899997 9699A340 95819485 7A400000 |Airport name: ..|
0002F0 C1899997 9699A340 A2A381A3 857A4000 |Airport state: .|
000300 A885A200 95960000 C1899997 9699A340 |yes.no..Airport |
000310 C4859381 A87A4000 C4859381 A840E3A8 |Delay: .Delay Ty|
000320 97857A40 C4859381 A840D985 81A29695 |pe: Delay Reason|
000330 7A400000 C1A58740 C4859381 A87A4000 |: ..Avg Delay: .|
000340 E3859497 859981A3 A499857A 40000000 |Temperature: ...|
000350 E6899584 7A400000 D985A3A4 999540C3 |Wind: ..Return C|
000360 96848540 7E400000 F0F1F2F3 F4F5F6F7 |ode = ..01234567|
000370 F8F9C1C2 C3C4C5C6 E28599A5 89838540 |89ABCDEFService |
000380 40404040 7E400000 D98581A2 969540C3 | = ..Reason C|
000390 96848540 7E400000 D98581A2 969540E3 |ode = ..Reason T|
0003A0 85A7A340 7E400000 D985A297 9695A285 |ext = ..Response|
0003B0 40A2A381 A3A4A240 83968485 407E4000 | status code = .|
0003C0 40404020 20202020 20202020 21200000 | .............|
0003D0 C8E3E3D7 40E2A381 A3A4A240 D98581A2 |HTTP Status Reas|
0003E0 9695407E 40000000 D985A297 9695A285 |on = ...Response|
0003F0 40C88581 84859940 40D58194 857A0000 | Header Name:..|
000400 02020240 40E58193 A4857A00 95819485 |... Value:.name|
000410 C9C1E3C1 A2A381A3 85000000 84859381 |IATAstate...dela|
000420 A8000000 A2A381A3 A4A20000 A3A89785 |y...status..type|
000430 998581A2 96950000 81A587C4 859381A8 |reason..avgDelay|
000440 A68581A3 88859900 A3859497 A6899584 |weather.tempwind|
000450 00000000 D78199A2 85994089 9589A389 |....Parser initi|
000460 819389A9 81A38996 95408681 89938584 |alization failed|
000470 4B000000 E4958182 938540A3 96409781 |....Unable to pa|
000480 99A28540 D1E2D6D5 408481A3 814B0000 |rse JSON data...|
000490 E4958182 938540A3 96409785 99869699 |Unable to perfor|
0004A0 94408393 858195A4 974BD985 A399A889 |m cleanup.Retryi|
0004B0 958740A6 89A38840 C6D6D9C3 C5409697 |ng with FORCE op|
0004C0 A3899695 40859581 82938584 4B000000 |tion enabled....|
0004D0 00000001 E4958182 938540A3 96408393 |....Unable to cl|
0004E0 858195A4 9740A689 A38840C8 E6E3D16D |eanup with HWTJ_|
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
0004F0 C6D6D9C3 C54BC396 A4938440 9596A340 |FORCE.Could not |
000500 86998585 40978199 A2859940 A6969992 |free parser work|
000510 40819985 814B0000 E4958182 938540A3 | area...Unable t|
000520 96409785 99869699 94408393 858195A4 |o perform cleanu|
000530 974BC396 A4938440 9596A340 86998585 |p.Could not free|
000540 40978199 A2859940 A6969992 40819985 | parser work are|
000550 814B0000 00000002 C5999996 99409683 |a.......Error oc|
000560 83A49999 858440A6 88899385 40A28581 |curred while sea|
000570 99838889 95874086 96994081 40958194 |rching for a nam|
000580 854B4040 E3888540 95819485 40A681A2 |e. The name was|
000590 408696A4 95844082 A4A340A3 88854040 | found but the |
0005A0 A58193A4 8540A681 A2409596 A3409686 |value was not of|
0005B0 40A38885 4085A797 8583A385 8440A3A8 | the expected ty|
0005C0 97854B40 40000000 E2858199 83884086 |pe. ...Search f|
0005D0 81899385 844B40D5 81948540 A681A240 |ailed. Name was |
0005E0 9596A340 8696A495 84404089 9540A388 |not found in th|
0005F0 8540A297 85838986 89858440 96829185 |e specified obje|
000600 83A34B00 C2A48686 859940A2 89A98540 |ct..Buffer size |
000610 89A240A3 969640A2 94819393 4B000000 |is too small....|
000620 C5999996 99409683 83A49999 85844089 |Error occurred i|
000630 9540C496 6DC785A3 6DE58193 A4854B40 |n Do_Get_Value. |
000640 C8E6E3D1 C7E5C1D3 40868189 9385844B |HWTJGVAL failed.|
000650 C5999996 99409683 83A49999 85844089 |Error occurred i|
000660 9540C496 6DC785A3 6DE58193 A4854B40 |n Do_Get_Value. |
000670 C8E6E3D1 C7C2D6E5 40868189 9385844B |HWTJGBOV failed.|
000680 C1954089 95A58193 89844085 95A399A8 |An invalid entry|
000690 40A3A897 854089A2 408696A4 95844089 | type is found i|
0006A0 9540C496 6DC785A3 6DE58193 A4854BC9 |n Do_Get_Value.I|
0006B0 5C5C40D9 85A29796 95A28540 C29684A8 |** Response Body|
0006C0 40C5A789 A340D985 838589A5 85A240C3 | Exit Receives C|
0006D0 9695A399 9693405C 5CC9D596 40C29684 |ontrol **INo Bod|
0006E0 A840A4A2 85998481 A38140A6 81A240A2 |y userdata was s|
0006F0 97858389 86898584 5AC9D985 A2979695 |pecified!IRespon|
000700 A2854082 9684A840 89954083 9695A399 |se body in contr|
000710 969340A6 89A38896 A4A34085 A5859940 |ol without ever |
000720 99858385 89A58995 87408995 84898381 |receiving indica|
000730 A3969940 968640D1 E2D6D540 8481A381 |tor of JSON data|
000740 4BC95C5C 40D985A2 979695A2 8540C296 |.I** Response Bo|
000750 84A840C5 A789A340 D985A3A4 9995A240 |dy Exit Returns |
000760 5C5C5C5C 5C5C5C5C 5C5C5C5C 5C5C5C5C |****************|
000770 5C5C5C5C 5C5C5C5C 5C5C5C5C 5C5C5C5C |****************|
000780 5C5C5C5C 5C5C5C5C 5C5C5C5C 5CC95C5C |*************I**|
000790 40D985A2 979695A2 8540C885 81848599 | Response Header|
0007A0 40C5A789 A340D985 838589A5 85A240C3 | Exit Receives C|
0007B0 9695A399 9693405C 5CC9D596 40C88581 |ontrol **INo Hea|
0007C0 84859940 A4A28599 8481A381 40A681A2 |der userdata was|
0007D0 40A29785 83898689 85845AC9 40C95C5C | specified!I I**|
0007E0 5C5C5C5C 5C5C5C5C 5C5C5C5C 5C5C5C5C |****************|
0007F0 5C5C5C5C 5C5C5C5C 5C5C5C5C 5C5C5C5C |****************|
000800 5C5C5C5C D200E001 E000C396 96928985 |****K.\.\.Cookie|
000810 40E2A396 998540C6 A493935A D6A38885 | Store Full!Othe|
000820 994085A7 89A34086 93818740 8696A495 |r exit flag foun|
000830 844BC396 95A38595 A360E3A8 97858197 |d.Content-Typeap|
000840 97938983 81A38996 956191A2 9695D985 |plication/jsonRe|
000850 838589A5 85844083 96999985 83A340C3 |ceived correct C|
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
000860 9695A385 95A360E3 A8978540 88858184 |ontent-Type head|
000870 85994BC9 5C5C40D9 85A29796 95A28540 |er.I** Response |
000880 C8858184 859940C5 A789A340 D985A3A4 |Header Exit Retu|
000890 9995A240 5C5C0214 7483648C 5CC8E3E3 |rns **...c..*HTT|
0008A0 D740E685 8240C595 81829385 948595A3 |P Web Enablement|
0008B0 40E39696 939289A3 40E28194 97938540 | Toolkit Sample |
0008C0 C2858789 95A25CC9 5C5C40C2 9687A4A2 |Begins*I** Bogus|
0008D0 40C9C1E3 C1408189 99979699 A3408396 | IATA airport co|
0008E0 848540A2 97858389 86898584 5A405C5C |de specified! **|
0008F0 5C5C5C5C 5C5C5C5C 40D79996 87998194 |******** Program|
000900 40C59584 858440E2 A4838385 A2A286A4 | Ended Successfu|
000910 9393A840 5C5C5C5C 5C5C5C5C 5CC95C5C |lly *********I**|
000920 5C5C5C5C 5C5C40D7 99968799 819440C5 |****** Program E|
000930 95848584 40E495A2 A4838385 A2A286A4 |nded Unsuccessfu|
000940 9393A840 5C5C5C5C 5C5C5C5C 5CC95CC8 |lly *********I*H|
000950 E3E3D740 E6858240 C5958182 93859485 |TTP Web Enableme|
000960 95A340E3 96969392 89A340E2 81949793 |nt Toolkit Sampl|
000970 8540C595 84A25CC9 5C5C5C5C 5C5C5C5C |e Ends*I********|
000980 5C5C5C5C 5C5C5C5C 5C5C5C5C 5C5C5C5C |****************|
000990 5C5C5C5C 5C5C5C5C 5C5C5C5C 5C5C5C5C |****************|
0009A0 5CC95C5C 5C5C5C5C 5C5C5C5C 5C5C5C5C |*I**************|
0009B0 5C5C5C5C 5C5C5C5C 5C5C5C5C 5C5C5C5C |****************|
0009C0 5C5C5C5C 5CC96060 60606060 60606060 |*****I----------|
0009D0 60606060 60606060 60606060 60606060 |----------------|
0009E0 60606060 60606060 60C9C3A4 99998595 |---------ICurren|
0009F0 A340A685 81A38885 99408396 958489A3 |t weather condit|
000A00 899695A2 7A40E2E4 C3C3C5E2 E27A40E3 |ions: SUCCESS: T|
000A10 85999489 9581A385 40A2A483 83858584 |erminate succeed|
000A20 8584404D C8E6E3C8 E3C5D9D4 5D4BE2E4 |ed (HWTHTERM).SU|
000A30 C3C3C5E2 E27A40C4 89A28396 95958583 |CCESS: Disconnec|
000A40 A340A2A4 83838585 84858440 4DC8E6E3 |t succeeded (HWT|
000A50 C8C4C9E2 C35D4BC9 E2E4C3C3 C5E2E27A |HDISC).ISUCCESS:|
000A60 40D98598 A485A2A3 40A2A483 83858584 | Request succeed|
000A70 8584404D C8E6E3C8 D9D8E2E3 5D4BE2E4 |ed (HWTHRQST).SU|
000A80 C3C3C5E2 E27A40E2 D389A2A3 40A2A483 |CCESS: SList suc|
000A90 83858584 8584404D C8E6E3C8 E2D3E2E3 |ceeded (HWTHSLST|
000AA0 5D4B5C40 C1848440 C1838385 97A37A81 |).* Add Accept:a|
000AB0 97979389 8381A389 96956191 A2969540 |pplication/json |
000AC0 998598A4 85A2A340 88849940 5CC95C5C |request hdr *I**|
000AD0 40C18484 40C18383 8597A360 D3819587 | Add Accept-Lang|
000AE0 A4818785 7A408595 60E4E240 998598A4 |uage: en-US requ|
000AF0 85A2A340 88849940 5C5C5C5C 40E285A3 |est hdr **** Set|
000B00 40C8E6E3 C86DD6D7 E36DD9C5 D8E4C5E2 | HWTH_OPT_REQUES|
000B10 E3D4C5E3 C8D6C440 86969940 998598A4 |TMETHOD for requ|
000B20 85A2A340 5C5C5C5C 5C5C5C5C 40E285A3 |est ******** Set|
000B30 40C8E6E3 C86DD6D7 E36DE4D9 C9408696 | HWTH_OPT_URI fo|
000B40 99409985 98A485A2 A3405C5C 5C5C5C5C |r request ******|
000B50 5CE285A3 40C8E6E3 C86DD6D7 E36DD9C5 |*Set HWTH_OPT_RE|
000B60 E2D7D6D5 E2C5C8C4 D96DC5E7 C9E34086 |SPONSEHDR_EXIT f|
000B70 96994099 8598A485 A2A35CC9 5C5C40E2 |or request*I** S|
000B80 85A340C8 E6E3C86D D6D7E36D D9C5E2D7 |et HWTH_OPT_RESP|
000B90 D6D5E2C5 C8C4D96D E4E2C5D9 C4C1E3C1 |ONSEHDR_USERDATA|
000BA0 40869699 40998598 A485A2A3 405C5CC9 | for request **I|
000BB0 5C5C40E2 85A340C8 E6E3C86D D6D7E36D |** Set HWTH_OPT_|
000BC0 D9C5E2D7 D6D5E2C5 C2D6C4E8 6DC5E7C9 |RESPONSEBODY_EXI|
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
000BD0 E3408696 99404099 8598A485 A2A3405C |T for request *|
000BE0 5CC95C5C 40E285A3 40C8E6E3 C86DD6D7 |*I** Set HWTH_OP|
000BF0 E36DD9C5 E2D7D6D5 E2C5C2D6 C4E86DE4 |T_RESPONSEBODY_U|
000C00 E2C5D9C4 C1E3C140 40869699 40998598 |SERDATA for req|
000C10 A485A2A3 5C5C5C5C 40E285A3 40C8E6E3 |uest**** Set HWT|
000C20 C86DD6D7 E36DE3D9 C1D5E2D3 C1E3C56D |H_OPT_TRANSLATE_|
000C30 D9C5E2D7 C2D6C4E8 40869699 40998598 |RESPBODY for req|
000C40 A485A2A3 405C5CC9 5C5C40E2 85A340C8 |uest **I** Set H|
000C50 E6E3C86D D6D7E36D C8E3E3D7 C8C5C1C4 |WTH_OPT_HTTPHEAD|
000C60 C5D9E240 86969940 998598A4 85A2A340 |ERS for request |
000C70 5C5CE2E4 C3C3C5E2 E27A40C3 96959585 |**SUCCESS: Conne|
000C80 83A340A2 A4838385 85848584 404DC8E6 |ct succeeded (HW|
000C90 E3C8C3D6 D5D55D4B E2E4C3C3 C5E2E27A |THCONN).SUCCESS:|
000CA0 40E285A3 40A2A483 83858584 8584404D | Set succeeded (|
000CB0 C8E6E3C8 E2C5E35D 4BC95C5C 5C5C40E2 |HWTHSET).I**** S|
000CC0 85A340C8 E6E3C86D D6D7E36D E5C5D9C2 |et HWTH_OPT_VERB|
000CD0 D6E2C540 86969940 83969595 8583A389 |OSE for connecti|
000CE0 9695405C 5C5C5CC9 405C5C5C 5C5C5C40 |on ****I ****** |
000CF0 E285A340 C8E6E3C8 6DD6D7E3 6DE4D9C9 |Set HWTH_OPT_URI|
000D00 40869699 40839695 958583A3 89969540 | for connection |
000D10 5C5C5C5C 5C5C40C9 405C5C40 E285A340 |****** I ** Set |
000D20 C8E6E3C8 6DD6D7E3 6DC3D6D6 D2C9C5E3 |HWTH_OPT_COOKIET|
000D30 E8D7C540 86969940 83969595 8583A389 |YPE for connecti|
000D40 9695405C 5C00D200 E000F000 E2E4C3C3 |on **.K.\.0.SUCC|
000D50 C5E2E27A 40D78199 A2859940 A6969992 |ESS: Parser work|
000D60 40819985 81408699 8585844B E2E4C3C3 | area freed.SUCC|
000D70 C5E2E27A 40D78199 A2859940 A6969992 |ESS: Parser work|
000D80 40819985 81408699 85858440 A689A388 | area freed with|
000D90 40C6D6D9 C3C54BC9 E2E4C3C3 C5E2E27A | FORCE.ISUCCESS:|
000DA0 40D1E2D6 D5408481 A3814097 8199A285 | JSON data parse|
000DB0 844BE2E4 C3C3C5E2 E27A40A9 61D6E240 |d.SUCCESS: z/OS |
000DC0 D1E2D6D5 40978199 A2859940 899589A3 |JSON parser init|
000DD0 89819389 A985844B A399A485 D2001000 |ialized.trueK...|
000DE0 2000 |.. |
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
PPA1: Entry Point Constants
000000 1CCEA126 =F'483303718'
000004 00007950 =A(PPA2-HWTHBDYX)
000008 00000000 =F'0'
00000C 00000000 =F'0'
000010 FFC00000 =F'-4194304'
000014 00000001 =F'1'
000018 90 =AL1(144)
000019 000000 =AL3(0)
00001C 0040 =H'64'
00001E 0012 =H'18'
000020 00000000 =F'0'
000024 50000145 =F'1342177605'
000028 FFFF8E88 =F'-29048'
00002C 38280000 =F'942145536'
000030 4008013D =F'1074266429'
000034 00000000 =F'0'
000038 0008 **** AL2(8),C'HWTHBDYX
PPA1 End
PPA1: Entry Point Constants
000000 1CCEA126 =F'483303718'
000004 000076A8 =A(PPA2-HWTHHDRX)
000008 00000000 =F'0'
00000C 00000000 =F'0'
000010 FFC00000 =F'-4194304'
000014 00000001 =F'1'
000018 90 =AL1(144)
000019 000001 =AL3(1)
00001C 0040 =H'64'
00001E 0012 =H'18'
000020 00000000 =F'0'
000024 50000505 =F'1342178565'
000028 FFFF90E8 =F'-28440'
00002C 38280000 =F'942145536'
000030 400804FD =F'1074267389'
000034 00000000 =F'0'
000038 0008 **** AL2(8),C'HWTHHDRX
PPA1 End
PPA1: Entry Point Constants
000000 1CCEA126 =F'483303718'
000004 00006C90 =A(PPA2-HWTHXPI1)
000008 00000000 =F'0'
00000C 00000000 =F'0'
000010 FFF00000 =F'-1048576'
000014 00000001 =F'1'
000018 90 =AL1(144)
000019 000000 =AL3(0)
00001C 0040 =H'64'
00001E 0012 =H'18'
000020 00000000 =F'0'
000024 50000358 =F'1342178136'
000028 FFFF9AB8 =F'-25928'
00002C 38280000 =F'942145536'
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
000030 40080350 =F'1074266960'
000034 00000000 =F'0'
000038 0008 **** AL2(8),C'HWTHXPI1
PPA1 End
PPA1: Entry Point Constants
000000 1CCE2126 =F'483270950'
000004 000065A8 =A(PPA2-DISPLAY_E
000008 00000000 =F'0'
00000C 00000000 =F'0'
000010 FFC00000 =F'-4194304'
000014 00000001 =F'1'
000018 90 =AL1(144)
000019 000000 =AL3(0)
00001C 0040 =H'64'
00001E 0012 =H'18'
000020 00000000 =F'0'
000024 50000202 =F'1342177794'
000028 FFFFA158 =F'-24232'
00002C 38280000 =F'942145536'
000030 400801FA =F'1074266618'
000034 00000000 =F'0'
000038 000D **** AL2(13),C'DISPLAY
PPA1 End
PPA1: Entry Point Constants
000000 1CCE2126 =F'483270950'
000004 000061A0 =A(PPA2-WRITEDATA
000008 00000000 =F'0'
00000C 00000000 =F'0'
000010 FFC00000 =F'-4194304'
000014 00000001 =F'1'
000018 90 =AL1(144)
000019 000000 =AL3(0)
00001C 0040 =H'64'
00001E 0012 =H'18'
000020 00000000 =F'0'
000024 500002A2 =F'1342177954'
000028 FFFFA518 =F'-23272'
00002C 38280000 =F'942145536'
000030 4008029A =F'1074266778'
000034 00000000 =F'0'
000038 0009 **** AL2(9),C'WRITEDAT
PPA1 End
PPA1: Entry Point Constants
000000 1CCE2126 =F'483270950'
000004 00005C58 =A(PPA2-HTTP_TERM
000008 00000000 =F'0'
00000C 00000000 =F'0'
000010 FFE00000 =F'-2097152'
000014 00000001 =F'1'
000018 90 =AL1(144)
000019 000000 =AL3(0)
00001C 0040 =H'64'
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
00001E 0012 =H'18'
000020 00000000 =F'0'
000024 500000C4 =F'1342177476'
000028 FFFFAA18 =F'-21992'
00002C 38280000 =F'942145536'
000030 400800BC =F'1074266300'
000034 00000000 =F'0'
000038 000E **** AL2(14),C'HTTP_TE
PPA1 End
PPA1: Entry Point Constants
000000 1CCE2126 =F'483270950'
000004 00005AC0 =A(PPA2-HTTP_DISC
000008 00000000 =F'0'
00000C 00000000 =F'0'
000010 FFC00000 =F'-4194304'
000014 00000001 =F'1'
000018 90 =AL1(144)
000019 000000 =AL3(0)
00001C 0040 =H'64'
00001E 0012 =H'18'
000020 00000000 =F'0'
000024 500000C0 =F'1342177472'
000028 FFFFAB68 =F'-21656'
00002C 38280000 =F'942145536'
000030 400800B8 =F'1074266296'
000034 00000000 =F'0'
000038 000F **** AL2(15),C'HTTP_DI
PPA1 End
PPA1: Entry Point Constants
000000 1CCE2126 =F'483270950'
000004 00005930 =A(PPA2-HTTP_REQU
000008 00000000 =F'0'
00000C 00000000 =F'0'
000010 FFE00000 =F'-2097152'
000014 00000001 =F'1'
000018 90 =AL1(144)
000019 000000 =AL3(0)
00001C 0040 =H'64'
00001E 0012 =H'18'
000020 00000000 =F'0'
000024 500000E2 =F'1342177506'
000028 FFFFACA8 =F'-21336'
00002C 38280000 =F'942145536'
000030 400800DA =F'1074266330'
000034 00000000 =F'0'
000038 000C **** AL2(12),C'HTTP_RE
PPA1 End
PPA1: Entry Point Constants
000000 1CCE2126 =F'483270950'
000004 00005760 =A(PPA2-HTTP_SLIS
000008 00000000 =F'0'
00000C 00000000 =F'0'
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
000010 FFFC0000 =F'-262144'
000014 00000001 =F'1'
000018 90 =AL1(144)
000019 000000 =AL3(0)
00001C 0040 =H'64'
00001E 0012 =H'18'
000020 00000000 =F'0'
000024 500000E4 =F'1342177508'
000028 FFFFAE30 =F'-20944'
00002C 38280000 =F'942145536'
000030 400800DC =F'1074266332'
000034 00000000 =F'0'
000038 000A **** AL2(10),C'HTTP_SL
PPA1 End
PPA1: Entry Point Constants
000000 1CCE2126 =F'483270950'
000004 00005588 =A(PPA2-BUILDSLIS
000008 00000000 =F'0'
00000C 00000000 =F'0'
000010 FFFC0000 =F'-262144'
000014 00000001 =F'1'
000018 90 =AL1(144)
000019 000000 =AL3(0)
00001C 0040 =H'64'
00001E 0012 =H'18'
000020 00000000 =F'0'
000024 50000192 =F'1342177682'
000028 FFFFAFC0 =F'-20544'
00002C 38280000 =F'942145536'
000030 4008018A =F'1074266506'
000034 00000000 =F'0'
000038 000A **** AL2(10),C'BUILDSL
PPA1 End
PPA1: Entry Point Constants
000000 1CCE2126 =F'483270950'
000004 00005258 =A(PPA2-HTTP_SETU
000008 00000000 =F'0'
00000C 00000000 =F'0'
000010 FFFC0000 =F'-262144'
000014 00000001 =F'1'
000018 90 =AL1(144)
000019 000000 =AL3(0)
00001C 0040 =H'64'
00001E 0012 =H'18'
000020 00000000 =F'0'
000024 5000052B =F'1342178603'
000028 FFFFB2A8 =F'-19800'
00002C 38280000 =F'942145536'
000030 40080523 =F'1074267427'
000034 00000000 =F'0'
000038 0011 **** AL2(17),C'HTTP_SE
PPA1 End
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
PPA1: Entry Point Constants
000000 1CCE2126 =F'483270950'
000004 000047E8 =A(PPA2-HTTP_CONN
000008 00000000 =F'0'
00000C 00000000 =F'0'
000010 FFC00000 =F'-4194304'
000014 00000001 =F'1'
000018 90 =AL1(144)
000019 000000 =AL3(0)
00001C 0040 =H'64'
00001E 0012 =H'18'
000020 00000000 =F'0'
000024 500000D4 =F'1342177492'
000028 FFFFBCC8 =F'-17208'
00002C 38280000 =F'942145536'
000030 400800CC =F'1074266316'
000034 00000000 =F'0'
000038 000C **** AL2(12),C'HTTP_CO
PPA1 End
PPA1: Entry Point Constants
000000 1CCE2126 =F'483270950'
000004 00004630 =A(PPA2-HTTP_SET)
000008 00000000 =F'0'
00000C 00000000 =F'0'
000010 FFF80000 =F'-524288'
000014 00000001 =F'1'
000018 90 =AL1(144)
000019 000000 =AL3(0)
00001C 0040 =H'64'
00001E 0012 =H'18'
000020 00000000 =F'0'
000024 500000E0 =F'1342177504'
000028 FFFFBE38 =F'-16840'
00002C 38280000 =F'942145536'
000030 400800D8 =F'1074266328'
000034 00000000 =F'0'
000038 0008 **** AL2(8),C'HTTP_SET
PPA1 End
PPA1: Entry Point Constants
000000 1CCE2126 =F'483270950'
000004 00004460 =A(PPA2-HTTP_SETU
000008 00000000 =F'0'
00000C 00000000 =F'0'
000010 FFFC0000 =F'-262144'
000014 00000001 =F'1'
000018 90 =AL1(144)
000019 000000 =AL3(0)
00001C 0040 =H'64'
00001E 0012 =H'18'
000020 00000000 =F'0'
000024 500001D5 =F'1342177749'
000028 FFFFBFC0 =F'-16448'
00002C 38280000 =F'942145536'
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
000030 400801CD =F'1074266573'
000034 00000000 =F'0'
000038 0014 **** AL2(20),C'HTTP_SE
PPA1 End
PPA1: Entry Point Constants
000000 1CCE2126 =F'483270950'
000004 000040A8 =A(PPA2-HTTP_INIT
000008 00000000 =F'0'
00000C 00000000 =F'0'
000010 FFE00000 =F'-2097152'
000014 00000001 =F'1'
000018 90 =AL1(144)
000019 000000 =AL3(0)
00001C 0040 =H'64'
00001E 0012 =H'18'
000020 00000000 =F'0'
000024 500000F3 =F'1342177523'
000028 FFFFC328 =F'-15576'
00002C 38280000 =F'942145536'
000030 400800EB =F'1074266347'
000034 00000000 =F'0'
000038 0009 **** AL2(9),C'HTTP_INI
PPA1 End
PPA1: Entry Point Constants
000000 1CCE2126 =F'483270950'
000004 00003EB0 =A(PPA2-DISPLAY_P
000008 00000000 =F'0'
00000C 00000000 =F'0'
000010 FFC00000 =F'-4194304'
000014 00000001 =F'1'
000018 90 =AL1(144)
000019 000000 =AL3(0)
00001C 0040 =H'64'
00001E 0012 =H'18'
000020 00000000 =F'0'
000024 500001D3 =F'1342177747'
000028 FFFFC4D8 =F'-15144'
00002C 38280000 =F'942145536'
000030 400801CB =F'1074266571'
000034 00000000 =F'0'
000038 0011 **** AL2(17),C'DISPLAY
PPA1 End
PPA1: Entry Point Constants
000000 1CCE2126 =F'483270950'
000004 00003B00 =A(PPA2-DO_GET_VA
000008 00000000 =F'0'
00000C 00000000 =F'0'
000010 FFFC0000 =F'-262144'
000014 00000001 =F'1'
000018 90 =AL1(144)
000019 000002 =AL3(2)
00001C 0040 =H'64'
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
00001E 0012 =H'18'
000020 00000000 =F'0'
000024 50000284 =F'1342177924'
000028 FFFFC838 =F'-14280'
00002C 38290000 =F'942211072'
000030 4008027C =F'1074266748'
000034 00000000 =F'0'
000038 000C **** AL2(12),C'DO_GET_
PPA1 End
PPA1: Entry Point Constants
000000 1CCE2126 =F'483270950'
000004 000035E0 =A(PPA2-FIND_VALU
000008 00000000 =F'0'
00000C 00000000 =F'0'
000010 FFFC0000 =F'-262144'
000014 00000001 =F'1'
000018 90 =AL1(144)
000019 000000 =AL3(0)
00001C 0040 =H'64'
00001E 0012 =H'18'
000020 00000000 =F'0'
000024 5000017D =F'1342177661'
000028 FFFFCD10 =F'-13040'
00002C 38280000 =F'942145536'
000030 40080175 =F'1074266485'
000034 00000000 =F'0'
000038 000A **** AL2(10),C'FIND_VA
PPA1 End
PPA1: Entry Point Constants
000000 1CCE2126 =F'483270950'
000004 000032C8 =A(PPA2-FIND_OBJE
000008 00000000 =F'0'
00000C 00000000 =F'0'
000010 FFC00000 =F'-4194304'
000014 00000001 =F'1'
000018 90 =AL1(144)
000019 000000 =AL3(0)
00001C 0040 =H'64'
00001E 0012 =H'18'
000020 00000000 =F'0'
000024 50000091 =F'1342177425'
000028 FFFFCFE0 =F'-12320'
00002C 38280000 =F'942145536'
000030 40080089 =F'1074266249'
000034 00000000 =F'0'
000038 000B **** AL2(11),C'FIND_OB
PPA1 End
PPA1: Entry Point Constants
000000 1CCE2126 =F'483270950'
000004 00003198 =A(PPA2-FIND_STRI
000008 00000000 =F'0'
00000C 00000000 =F'0'
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
000010 FFC00000 =F'-4194304'
000014 00000001 =F'1'
000018 90 =AL1(144)
000019 000000 =AL3(0)
00001C 0040 =H'64'
00001E 0012 =H'18'
000020 00000000 =F'0'
000024 50000095 =F'1342177429'
000028 FFFFD0C8 =F'-12088'
00002C 38280000 =F'942145536'
000030 4008008D =F'1074266253'
000034 00000000 =F'0'
000038 000B **** AL2(11),C'FIND_ST
PPA1 End
PPA1: Entry Point Constants
000000 1CCE2126 =F'483270950'
000004 00003060 =A(PPA2-TERM_PARS
000008 00000000 =F'0'
00000C 00000000 =F'0'
000010 FFF00000 =F'-1048576'
000014 00000001 =F'1'
000018 90 =AL1(144)
000019 000000 =AL3(0)
00001C 0040 =H'64'
00001E 0012 =H'18'
000020 00000000 =F'0'
000024 50000189 =F'1342177673'
000028 FFFFD1B8 =F'-11848'
00002C 38280000 =F'942145536'
000030 40080181 =F'1074266497'
000034 00000000 =F'0'
000038 000B **** AL2(11),C'TERM_PA
PPA1 End
PPA1: Entry Point Constants
000000 1CCE2126 =F'483270950'
000004 00002D38 =A(PPA2-PARSE_JSO
000008 00000000 =F'0'
00000C 00000000 =F'0'
000010 FFF80000 =F'-524288'
000014 00000001 =F'1'
000018 90 =AL1(144)
000019 000000 =AL3(0)
00001C 0040 =H'64'
00001E 0012 =H'18'
000020 00000000 =F'0'
000024 500000CE =F'1342177486'
000028 FFFFD498 =F'-11112'
00002C 38280000 =F'942145536'
000030 400800C6 =F'1074266310'
000034 00000000 =F'0'
000038 000F **** AL2(15),C'PARSE_J
PPA1 End
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
PPA1: Entry Point Constants
000000 1CCE2126 =F'483270950'
000004 00002B88 =A(PPA2-INIT_PARS
000008 00000000 =F'0'
00000C 00000000 =F'0'
000010 FFF00000 =F'-1048576'
000014 00000001 =F'1'
000018 90 =AL1(144)
000019 000000 =AL3(0)
00001C 0040 =H'64'
00001E 0012 =H'18'
000020 00000000 =F'0'
000024 500000C2 =F'1342177474'
000028 FFFFD5F8 =F'-10760'
00002C 38280000 =F'942145536'
000030 400800BA =F'1074266298'
000034 00000000 =F'0'
000038 000B **** AL2(11),C'INIT_PA
PPA1 End
PPA1: Entry Point Constants
000000 1CCE2126 =F'483270950'
000004 000029F0 =A(PPA2-SEARCHAND
000008 00000000 =F'0'
00000C 00000000 =F'0'
000010 FFF00000 =F'-1048576'
000014 00000001 =F'1'
000018 90 =AL1(144)
000019 000001 =AL3(1)
00001C 0040 =H'64'
00001E 0012 =H'18'
000020 00000000 =F'0'
000024 50000827 =F'1342179367'
000028 FFFFD748 =F'-10424'
00002C 38280000 =F'942145536'
000030 4008081F =F'1074268191'
000034 00000000 =F'0'
000038 0018 **** AL2(24),C'SEARCHA
PPA1 End
PPA1: Entry Point Constants
000000 1CCE2129 =F'483270953'
000004 00001990 =A(PPA2-_CsCopy)
000008 00000000 =F'0'
00000C 00000000 =F'0'
000010 FF800000 =F'-8388608'
000014 00000001 =F'1'
000018 E0 =AL1(224)
000019 000001 =AL3(1)
00001C 0240 =H'576'
00001E 0012 =H'18'
000020 00000000 =F'0'
000024 50000055 =F'1342177365'
000028 FFFFE750 =F'-6320'
00002C 18250000 =F'405078016'
15655-PL5 IBM(R) Enterprise PL/I for z/OS
OFFSET OBJECT CODE LINE# FILE# P S E U D O A S S E M B L Y L I S
000030 2009004C =F'537460812'
000034 00000000 =F'0'
000038 0007 **** AL2(7),C'_CsCopy'
PPA1 End
PPA1: Entry Point Constants
000000 1CCE2129 =F'483270953'
000004 000018E0 =A(PPA2-_outlineC
000008 00000000 =F'0'
00000C 00000000 =F'0'
000010 01F00000 =F'32505856'
000014 00000001 =F'1'
000018 E4 =AL1(228)
000019 000000 =AL3(0)
00001C 0240 =H'576'
00001E 0012 =H'18'
000020 00000000 =F'0'
000024 5000002D =F'1342177325'
000028 FFFFE7B8 =F'-6216'
00002C 180A0000 =F'403308544'
000030 20050028 =F'537198632'
000034 00000000 =F'0'
000038 000C **** AL2(12),C'_outlin
PPA1 End
PPA1: Entry Point Constants
000000 1CCE2126 =F'483270950'
000004 00001880 =A(PPA2-__dllstat
000008 00000000 =F'0'
00000C 00000000 =F'0'
000010 FE000000 =F'-33554432'
000014 00000001 =F'1'
000018 90 =AL1(144)
000019 000000 =AL3(0)
00001C 0040 =H'64'
00001E 0012 =H'18'
000020 00000000 =F'0'
000024 50000128 =F'1342177576'
000028 FFFFE7D0 =F'-6192'
00002C 38260000 =F'942014464'
000030 40080120 =F'1074266400'
000034 00000000 =F'0'
000038 000F **** AL2(15),C'__dllst
PPA1 End
PPA2: Compile Unit Block
000000 0B00 3203 =F'184562179'
000004 FFFF 8668 =A(CEESTART-PPA2)
000008 0000 0000 =F'0'
00000C FFFF 8668 =A(TIMESTMP-PPA2)
000010 0000 0000 =F'0'
000014 0200 0000 =F'33554432'
PPA2 End
15655-PL5 IBM(R) Enterprise PL/I for z/OS
E X T E R N A L S Y M B O L D I C T I O N
TYPE ID ADDR LENGTH NAME
SD 1 000000 0079B0 HWTHPI11
PR 2 000000 000040 @STATIC
PR 3 000000 000060 _HWTHXPI1
PR 4 000000 0000C8 ERRORMESSAGE
PR 5 000000 000004 RESPHDREXITADDR
PR 6 000000 000004 RESPBDYEXITADDR
PR 7 000000 00000C PARSER_INSTANCE
PR 8 000000 000004 RETURNCODE
SD 9 000000 000008 @@DLLI
LD 0 000048 000001 HWTHBDYX
LD 0 0002F0 000001 HWTHHDRX
LD 0 000D08 000001 HWTHXPI1
ER 10 000000 CEESG003
ER 11 000000 CEESG011
UR 14 000000 HWTHTERM
UR 15 000000 HWTHSLST
UR 16 000000 HWTHSET
UR 17 000000 HWTHRSET
UR 18 000000 HWTHRQST
UR 19 000000 HWTHINIT
UR 20 000000 HWTHDISC
UR 21 000000 HWTHCONN
UR 22 000000 HWTHRCVX
UR 23 000000 HWTHSNDX
UR 24 000000 HWTJDEL
UR 25 000000 HWTJTERM
UR 26 000000 HWTJSRCH
UR 27 000000 HWTJSERI
UR 28 000000 HWTJPARS
UR 29 000000 HWTJINIT
UR 30 000000 HWTJGVAL
UR 31 000000 HWTJGOEN
UR 32 000000 HWTJGNUV
UR 33 000000 HWTJGNUE
UR 34 000000 HWTJGJST
UR 35 000000 HWTJGBOV
UR 36 000000 HWTJGAEN
UR 37 000000 HWTJCREN
UR 38 000000 IBMQJDSB
UR 39 000000 IBMQEFSH
ER 40 000000 CEESTART
SD 41 000000 000008 @@PPA2
SD 42 000000 00000C CEEMAIN
ER 43 000000 IBMPINPL
15655-PL5 IBM(R) Enterprise PL/I for z/OS
- Compiler Messages
0 Message Line.File Message Description
0 IBM2660I W 994.0 Program logic may lead to the END statement for
HWTHXPI1 even though HWTHXPI1 is a function that
should return a value.
- File Reference Table
0 File Included From Name
0 0 ZDO.MTTRMOST.STUFF(HWTHXPI1)
1 6.0 SYS1.MACLIB(HWTJIPLI)
2 7.0 SYS1.MACLIB(HWTHIPLI)
- Component Return Code Messages (Total/Suppressed) Time
0 MACRO 0 0 / 0 0 secs
Compiler 4 326 / 325 2 secs
0 End of compilation of HWTHXPI1
1z/OS V2 R3 BINDER 05:42:40 SUNDAY JUNE 21, 2020
BATCH EMULATOR JOB(ZDOMTR ) STEP(LINKPLI ) PGM= IEWL
IEW2278I B352 INVOCATION PARAMETERS - LIST,MAP,RENT
IEW2322I 1220 1 INCLUDE OBJLIB(HWTHXPI1)
IEW2322I 1220 2 NAME HWTHXPI1(R)
IEW2456E 9207 SYMBOL HWTHRCVX UNRESOLVED. MEMBER COULD NOT BE INCLUDED FROM TH
IEW2456E 9207 SYMBOL HWTHSNDX UNRESOLVED. MEMBER COULD NOT BE INCLUDED FROM TH
1 *** M O D U L E M A P ***
---------------
CLASS B_TEXT LENGTH = 15AC ATTRIBUTES = CAT, LOAD, RMODE=ANY
OFFSET = 0 IN SEGMENT 001 ALIGN = DBLWORD
---------------
SECTION CLASS ------- SOURCE --------
OFFSET OFFSET NAME TYPE LENGTH DDNAME SEQ MEMBER
0 CEESTART CSECT 7C OBJLIB 01 HWTHXPI1
80 CEEOPIPI * CSECT 263 SYSLIB 01 CEEOPIPI
2E8 IBMPINPL * CSECT 24 SYSLIB 01 IBMPINPL
310 IBMQEFSH * CSECT 14 SYSLIB 01 IBMQEFSH
328 IBMQJDSB * CSECT 14 SYSLIB 01 IBMQJDSB
340 HWTJCSS * CSECT 2C4 SYSLIB 02 HWTJCREN
18 358 HWTJCREN LABEL
48 388 HWTJGAEN LABEL
78 3B8 HWTJGBOV LABEL
A8 3E8 HWTJGJST LABEL
D8 418 HWTJGNUE LABEL
108 448 HWTJGNUV LABEL
138 478 HWTJGOEN LABEL
168 4A8 HWTJGVAL LABEL
198 4D8 HWTJINIT LABEL
1C8 508 HWTJPARS LABEL
1F8 538 HWTJSERI LABEL
228 568 HWTJSRCH LABEL
258 598 HWTJTERM LABEL
288 5C8 HWTJDEL LABEL
608 HWTHCSS * CSECT 1A6 SYSLIB 02 HWTHCONN
18 620 HWTHCONN LABEL
48 650 HWTHDISC LABEL
78 680 HWTHINIT LABEL
A8 6B0 HWTHRQST LABEL
D8 6E0 HWTHRSET LABEL
108 710 HWTHSET LABEL
138 740 HWTHSLST LABEL
168 770 HWTHTERM LABEL
7B0 CEESG011 * CSECT 68 SYSLIB 01 CEESG011
818 CEESG003 * CSECT 12B SYSLIB 01 CEESG003
948 CEEROOTA * CSECT 1F0 SYSLIB 01 CEEROOTA
0 948 CEEROOTD LABEL
B38 CEEBETBL * CSECT 28 SYSLIB 01 CEEBETBL
B60 CEEBPUBT * CSECT 70 SYSLIB 01 CEEBPUBT
BD0 CEEBTRM * CSECT A4 SYSLIB 01 CEEBTRM
C78 CEEBLLST * CSECT 5C SYSLIB 01 CEEBLLST
1 *** M O D U L E M A P ***
SECTION CLASS ------- SOURCE --------
OFFSET OFFSET NAME TYPE LENGTH DDNAME SEQ MEMBER
10 C88 CEELLIST LABEL
CD8 CEEBINT * CSECT 8 SYSLIB 01 CEEBINT
CE0 CEEARLU * CSECT B8 SYSLIB 01 CEEARLU
D98 CEEBPIRA * CSECT 2A0 SYSLIB 01 CEEINT
0 D98 CEEINT LABEL
0 D98 CEEBPIRB LABEL
0 D98 CEEBPIRC LABEL
1038 CEECPYRT * CSECT E2 SYSLIB 01 CEEINT
1120 CEEP#TRM * CSECT 178 SYSLIB 01 CEEP#TRM
1298 CEEP#CAL * CSECT A8 SYSLIB 01 CEEP#CAL
1340 CEEP#INT * CSECT 258 SYSLIB 01 CEEP#INT
1598 CEETGTFN * CSECT 14 SYSLIB 01 CEETGTFN
1 *** M O D U L E M A P ***
---------------
CLASS C_CODE LENGTH = 79BC ATTRIBUTES = CAT, LOAD, RMODE=ANY
OFFSET = 15B0 IN SEGMENT 001 ALIGN = DBLWORD
---------------
SECTION CLASS ------- SOURCE --------
OFFSET OFFSET NAME TYPE LENGTH DDNAME SEQ MEMBER
0 HWTHPI11 CSECT 79B0 OBJLIB 01 HWTHXPI1
0 0 HWTHPI11 LABEL
48 48 HWTHBDYX LABEL
2F0 2F0 HWTHHDRX LABEL
D08 D08 HWTHXPI1 LABEL
79B0 CEEMAIN CSECT C OBJLIB 01 HWTHXPI1
0 79B0 CEEMAIN LABEL
---------------
CLASS C_@@DLLI LENGTH = 8 ATTRIBUTES = MRG, LOAD, RMODE=ANY
OFFSET = 8F70 IN SEGMENT 001 ALIGN = DBLWORD
---------------
CLASS
OFFSET NAME TYPE LENGTH SECTION
0 $PRIV000010 PART 8 HWTHPI11
---------------
CLASS C_@@PPA2 LENGTH = 8 ATTRIBUTES = MRG, LOAD, RMODE=ANY
OFFSET = 8F78 IN SEGMENT 001 ALIGN = DBLWORD
---------------
CLASS
OFFSET NAME TYPE LENGTH SECTION
0 $PRIV000011 PART 8 HWTHPI11
---------------
CLASS B_LIT LENGTH = 100 ATTRIBUTES = CAT, LOAD, RMODE=ANY
OFFSET = 8F80 IN SEGMENT 001 ALIGN = DBLWORD
---------------
SECTION CLASS ------- SOURCE --------
OFFSET OFFSET NAME TYPE LENGTH DDNAME SEQ MEMBER
0 IEWBLIT CSECT 100 **NULL**
0 0 IEWBLIT LABEL
---------------
CLASS C_WSA LENGTH = 50C ATTRIBUTES = MRG, DEFER , RMODE=ANY
OFFSET = 0 IN SEGMENT 002 ALIGN = DBLWORD
---------------
CLASS
OFFSET NAME TYPE LENGTH SECTION
0 PARSER_INSTANCE PART C PARSER_INSTANCE
C ERRORMESSAGE PART C8 ERRORMESSAGE
D8 HWTHBDYX DESCRIPTOR 20
F8 HWTHTERM DESCRIPTOR 20
118 HWTHSLST DESCRIPTOR 20
1 *** M O D U L E M A P ***
SECTION CLASS ------- SOURCE --------
OFFSET OFFSET NAME TYPE LENGTH DDNAME SEQ MEMBER
138 HWTHHDRX DESCRIPTOR 20
158 HWTHRSET DESCRIPTOR 20
178 HWTHRQST DESCRIPTOR 20
198 HWTJPARS DESCRIPTOR 20
1B8 HWTHDISC DESCRIPTOR 20
1D8 HWTHCONN DESCRIPTOR 20
1F8 HWTHRCVX DESCRIPTOR 20
218 HWTHSNDX DESCRIPTOR 20
238 HWTHSET DESCRIPTOR 20
258 HWTJTERM DESCRIPTOR 20
278 HWTJSRCH DESCRIPTOR 20
298 HWTHINIT DESCRIPTOR 20
2B8 HWTJGAEN DESCRIPTOR 20
2D8 HWTJINIT DESCRIPTOR 20
2F8 HWTJGVAL DESCRIPTOR 20
318 HWTJGOEN DESCRIPTOR 20
338 HWTJGNUV DESCRIPTOR 20
358 HWTJGNUE DESCRIPTOR 20
378 HWTJGJST DESCRIPTOR 20
398 HWTJGBOV DESCRIPTOR 20
3B8 HWTJSERI DESCRIPTOR 20
3D8 HWTJCREN DESCRIPTOR 20
3F8 IBMQJDSB DESCRIPTOR 20
418 IBMQEFSH DESCRIPTOR 20
438 HWTJDEL DESCRIPTOR 20
458 _HWTHXPI1 PART 60 _HWTHXPI1
4B8 RESPHDREXITADDR PART 4 RESPHDREXITADDR
4C0 RESPBDYEXITADDR PART 4 RESPBDYEXITADDR
4C8 $PRIV000012 PART 40 HWTHPI11
508 RETURNCODE PART 4 RETURNCODE
1 *** DATA SET SUMMARY ***
DDNAME CONCAT FILE IDENTIFICATION
OBJLIB 01 ZDO.MTTRMOST.OBJ
SYSLIB 01 CEE.SCEELKED
SYSLIB 02 SYS1.CSSLIB
1 *** SYMBOL REFERENCES NOT ASSOCIATED WITH ANY ADCON ***
TYPE SCOPE NAME
*** E N D O F M O D U L E M A P ***
*** O P E R A T I O N S U M M A R Y R E P O
1PROCESSING OPTIONS:
ALIASES NO
ALIGN2 NO
AMODE UNSPECIFIED
CALL YES
CASE UPPER
COMPAT UNSPECIFIED
COMPRESS AUTO
DCBS NO
DYNAM NO
EXTATTR UNSPECIFIED
EXITS: NONE
FILL NONE
GID UNSPECIFIED
HOBSET NO
INFO NO
LET 04
LINECT 060
LIST SUMMARY
LISTPRIV NO
LONGPARM NO
MAP YES
MAXBLK 032760
MODMAP NO
MSGLEVEL 00
OVLY NO
PRINT YES
RES NO
REUSABILITY REENTRANT
RMODE UNSPECIFIED
RMODEX NO
SIGN NO
STORENX NOREPLACE
STRIPCL NO
STRIPSEC NO
SYMTRACE
TERM NO
TRAP ON
UID UNSPECIFIED
UPCASE NO
WKSPACE 000000K,000000K
XCAL NO
XREF NO
***END OF OPTIONS***
1SAVE OPERATION SUMMARY:
MEMBER NAME HWTHXPI1
LOAD LIBRARY ZDO.MTTRMOST.LOAD
PROGRAM TYPE PROGRAM OBJECT(FORMAT 3)
VOLUME SERIAL ZDO003
DISPOSITION REPLACED
TIME OF SAVE 05.42.41 JUN 21, 2020
1SAVE MODULE ATTRIBUTES:
AC 000
AMODE 31
COMPRESSION NONE
DC NO
EDITABLE YES
EXCEEDS 16MB NO
EXECUTABLE NO
LONGPARM NO
MIGRATABLE NO
OL NO
OVLY NO
PACK,PRIME NO,NO
PAGE ALIGN NO
REFR NO
RENT YES
REUS YES
RMODE ANY
SCTR NO
SIGN NO
SSI
SYM GENERATED NO
TEST NO
XPLINK NO
MODULE SIZE (HEX) 0000958C
DASD SIZE (HEX) 00018000
1 ENTRY POINT AND ALIAS SUMMARY:
NAME: ENTRY TYPE AMODE C_OFFSET CLASS NAME STATUS
CEESTART MAIN_EP 31 00000000 B_TEXT
*** E N D O F O P E R A T I O N S U M M A R Y
1z/OS V2 R3 BINDER 05:42:40 SUNDAY JUNE 21, 2020
BATCH EMULATOR JOB(ZDOMTR ) STEP(LINKPLI ) PGM= IEWL
IEW2008I 0F03 PROCESSING COMPLETED. RETURN CODE = 8.
1----------------------
MESSAGE SUMMARY REPORT
----------------------
TERMINAL MESSAGES (SEVERITY = 16)
NONE
SEVERE MESSAGES (SEVERITY = 12)
NONE
ERROR MESSAGES (SEVERITY = 08)
2456
WARNING MESSAGES (SEVERITY = 04)
NONE
INFORMATIONAL MESSAGES (SEVERITY = 00)
2008 2278 2322
**** END OF MESSAGE SUMMARY REPORT ****
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment