|
midrange.com
This is a multi-part message in MIME format.
--
[ Picked text/plain from multipart/alternative ]
Dear all ,
I found "Pointer not set for location referenced " error message
Display Unmonitored Message Breakpoint
Statement/Instruction . . . . . . . . . : /0088
Program . . . . . . . . . . . . . . . . : QCLRSLV
Recursion level . . . . . . . . . . . . : 1
Pointer not set for location referenced.
Would you mind giving me some advises to solve that problem ,
Thank you
Regards,
SAS
0001.00 DCL SPCPTR ?0COND PARM
;
0002.00 DCL OL ?PRMLST(?0COND ) PARM EXT
;
0003.00 ENTRY *(?PRMLST) EXT
;
0004.00 CPYBWP ?WCLSEPT@,?WWCBSEPT
;
0005.00 CPYBWP ?QCLCLNUP,?WWLISEPT(00314)
;
0006.00 SETIEXIT ?QCLCLNUP,?WCLRARGLST
;
0007.00 CALLX ?WWLISEPT(00316),?WCLRARGLST,*
;
0008.00
0009.00 SETSPPFP ?WCAWRKA@,?WCLRWA@
;
0010.00 SETSPPFP ?WCAPTR,?WCLRPL@
;
0011.00 CPYBLA ?WCLCAOPT,?WCAOPTN
;
0012.00 DCL DD ?CLPVARS(00000002) CHAR(1) AUTO
;
0013.00 MODEXCPD ?FCEXCMON,?EMEMONAT,X'01'
;
0014.00 BRK '202 '
;
0015.00 ?RCLBL00001:
;
0016.00 CPYNV ?WCLCSREI ,00001
;
0017.00 CMPBLAP(I) &COND,<0001|1>,' '/ EQ(?4TEMP0001)
;
0018.00
0019.00 CMPBLA(B) ?4TEMP0001 ,C'1'/NEQ(?FL00001)
;
0021.00 ?RCLBL00002:
;
0022.00 CPYNV ?WCLCSREI ,00002
;
0023.00 CPYNV ?WCACPCAI,00001
;
0024.00 CPYBLA ?WCAOPTN,?WCLCAOPT
;
0025.00 CALLX ?WWLISEPT(00277),?WCLCAARG,*
;
0026.00
0027.00 ?ICLBL00002:
;
0028.00 ?ICLBL00001:
;
0029.00 ?FL00001:
;
0030.00 BRK '300 '
;
0031.00 CPYBLA ?LOGDYNAMIC,<22| >
;
0032.00 B ?PGMEND
;
0033.00 DCL DD ?PGMVPT(00001) BIN(4) AUTO INIT(000000)
;
0034.00 DCL DD &COND CHAR(00001) BAS(?0COND )
;
0035.00 DCL DD ?3COND CHAR(00001) AUTO POS(000001) INIT(C' ')
;
0036.00 DCL SPCPTR ?PGMAUTO@ AUTO INIT(?CLPVARS)
;
0037.00 DCL DD ?4TEMP0001 CHAR(00001) AUTO
;
0038.00 DCL CON ?EMEMONAT CHAR(2) INIT(X'A000')
;
0039.00 DCL CON ?EMDMONAT CHAR(2) INIT(X'2000')
;
0040.00 DCL EXCM ?FCEXCMON EXCID(H'9999') BP(?FCEXHDLR) SKP CV('CPF')
;
0041.00 DCL IDL ?ICIDL00001(?ICLBL00001,?ICLBL00002)
;
0042.00 DCL IDL ?RCIDL00001(?RCLBL00001,?RCLBL00002)
;
0043.00 ?RTYCMD :
;
0044.00 ENTRY ?RCIBP
;
0045.00 B ?RCIDL00001(?WCLCSREI )
;
0046.00 ?IGNCMD :
;
0047.00 ENTRY ?ICIBP
;
0048.00 B ?ICIDL00001(?WCLCSREI )
;
0049.00 DCL SYSPTR ?QCLCLNUP AUTO
;
0050.00 DCL SPCPTR ?WCLRDTA@ AUTO INIT(?WCLRDTAR)
;
0051.00 DCL SPCPTR ?WCLOGCB@ AUTO INIT(?WCLOGCB)
;
0052.00 DCL SPCPTR ?WCLXECB@ AUTO INIT(?WCLXECTL )
;
0053.00 DCL SYSPTR ?WCLSEPT@ AUTO
;
0054.00 DCL SPCPTR ?WWCBSEPT BASPCO POS(00001)
;
0055.00 DCL SYSPTR ?WWLISEPT(006720) BAS(?WCLSEPT@)
;
0056.00 DCL DD ?WCLOGCB CHAR(048) AUTO BDRY(16)
;
0057.00 DCL DD ?LOGSTATIC CHAR(26) AUTO DEF(?WCLOGCB) POS(1) INIT(
0058.00 <26| Ø >)
;
0059.00 DCL DD ?LOGDYNAMIC CHAR(22) AUTO DEF(?WCLOGCB) POS(27) INIT(
0060.00 X'00000000000000000000000000000000000000000000')
;
0061.00 DCL DD ?WCLXECTL CHAR(0072) AUTO BDRY(16)
;
0062.00 DCL SPCPTR ?WCLXEPL@ AUTO DEF(?WCLXECTL ) POS(1)
;
0063.00 DCL SPCPTR * AUTO DEF(?WCLXECTL ) POS(17)
;
0064.00 DCL SPCPTR * AUTO DEF(?WCLXECTL ) POS(33)
;
0065.00 DCL DD ?WCLXELVL CHAR(1) AUTO DEF(?WCLXECTL ) POS(49)
INIT(X'00') ;
0066.00 DCL DD * CHAR(7) AUTO DEF(?WCLXECTL ) POS(50)
INIT(X'00000000000000') ;
0067.00 DCL DD ?WCLCSREI BIN(2) AUTO DEF(?WCLXECTL ) POS(57) INIT(0)
;
0068.00 DCL DD * CHAR(6) AUTO DEF(?WCLXECTL ) POS(59)
INIT('0000000000000') ;
0069.00 DCL DD ?WCLXERPY CHAR(1) AUTO DEF(?WCLXECTL ) POS(65)
INIT(X'00') ;
0070.00 DCL DD * CHAR(7) AUTO DEF(?WCLXECTL ) POS(66)
INIT(X'00000000000000') ;
0071.00 DCL DD ?WCLRDTAR CHAR(240) AUTO BDRY(16)
;
0072.00 DCL SPCPTR ?WCLOGCBR@ DEF(?WCLRDTAR) POS(1) INIT(?WCLOGCB)
;
0073.00 DCL PTR * DEF(?WCLRDTAR) POS(17)
;
0074.00 DCL SPCPTR ?WCLRDMCB DEF(?WCLRDTAR) POS(33)
;
0075.00 DCL SYSPTR ?WCLRPL@ DEF(?WCLRDTAR) POS(49)
;
0076.00 DCL SYSPTR ?WCLRWA@ DEF(?WCLRDTAR) POS(65)
;
0077.00 DCL SYSPTR ?WCLRPGM@ DEF(?WCLRDTAR) POS(81)
;
0078.00 DCL SPCPTR ?WCLRLDA@ DEF(?WCLRDTAR) POS(97)
;
0079.00 DCL DD * CHAR(1) DEF(?WCLRDTAR) POS(113) INIT(X'04')
;
0080.00 DCL DD ?WCLRPLSZ BIN(2) DEF(?WCLRDTAR) POS(114) INIT(000001)
;
0081.00 DCL DD ?WCLRWASZ BIN(2) DEF(?WCLRDTAR) POS(116) INIT(000001)
;
0082.00 DCL DD * CHAR(10) DEF(?WCLRDTAR) POS(118)
INIT(X'00000000000000000000'
0083.00 )
;
0084.00 DCL DD ?WCLRPCRT CHAR(1) DEF(?WCLRDTAR) POS(128) INIT(' ')
;
0085.00 DCL DD ?WCLRDMCD CHAR(1) DEF(?WCLRDTAR) POS(129) INIT('0')
;
0086.00 DCL DD * CHAR(15) DEF(?WCLRDTAR) POS(130) INIT(
0087.00 X'000000000000000000000000000000')
;
0088.00 DCL DD * CHAR(16) DEF(?WCLRDTAR) POS(145) INIT(
0089.00 X'00000000000000000000000000000000')
;
0090.00 DCL SPCPTR ?WCLRSSTBL DEF(?WCLRDTAR) POS(145)
;
0091.00 DCL PTR * DEF(?WCLRDTAR) POS(161)
;
0092.00 DCL DD ?WCLRSOFF BIN(2) DEF(?WCLRDTAR) POS(177) INIT(0)
;
0093.00 DCL DD * BIN(4) DEF(?WCLRDTAR) POS(179) INIT(0)
;
0094.00 DCL DD * CHAR(16) DEF(?WCLRDTAR) POS(193) INIT(
0095.00 X'00000000000000000000000000000000')
;
0096.00 DCL SPCPTR ?WCAPTR DEF(?WCLRDTAR) POS(193)
;
0097.00 DCL DD * CHAR(16) DEF(?WCLRDTAR) POS(209) INIT(
0098.00 X'00000000000000000000000000000000')
;
0099.00 DCL SPCPTR ?WCLRCAWRKA DEF(?WCLRDTAR) POS(209)
;
0100.00 DCL SPCPTR ?WCLRCLVCA DEF(?WCLRDTAR) POS(225)
;
0101.00 DCL DD ?LDA CHAR(1024) BAS(?WCLRLDA@)
;
0102.00 DCL DD ?WCALST CHAR(32767) BAS(?WCAPTR)
;
0103.00 DCL SPCPTR ?WCACLPTR DEF(?WCALST) POS(113)
;
0104.00 DCL DD ?WCACPCAI BIN(2) DEF(?WCALST) POS(203)
;
0105.00 DCL DD ?WCAOPTN CHAR(08) DEF(?WCALST) POS(163)
;
0106.00 DCL DD ?WCLCAOPT CHAR(08) AUTO
;
0107.00 DCL DD ?WCAWRKA CHAR(32767) BAS(?WCAWRKA@)
;
0108.00 DCL SPCPTR ?WCAWARGL(99) DEF(?WCAWRKA) POS(1)
;
0109.00 DCL DD ?WCAWRKVA CHAR(31183) DEF(?WCAWRKA) POS(1585)
;
0110.00 DCL SPCPTR ?WCAWRKA@ AUTO
;
0111.00 DCL OL ?WCLCAARG(?WCAPTR) ARG
;
0112.00 DCL OL ?WCLRARGLST(?WCLRDTA@)
;
0113.00 DCL OL ?RTNOPLIST(?WCLRDTA@) ARG
;
0114.00 DCL OL ?FCHDLRAL(?WCLXECB@) ARG
;
0115.00 ?FCEXHDLR:
;
0116.00 MODEXCPD ?FCEXCMON,?EMDMONAT,X'01'
;
0117.00 CPYBWP ?WCLXEPL@ ,?WCAPTR
;
0118.00 CALLX ?WWLISEPT(0334),?FCHDLRAL,*
;
0119.00
0120.00 MODEXCPD ?FCEXCMON,?EMEMONAT,X'01'
;
0121.00 CMPBLA(B) ?WCLXERPY ,C'I'/EQ(?IGNCMD)
;
0122.00
0123.00 B ?RTYCMD
;
0124.00 ?PGMEND:
;
0125.00 MODEXCPD ?FCEXCMON,?EMDMONAT,X'01'
;
0126.00 CALLX ?WWLISEPT(0313),?RTNOPLIST,*
;
0127.00
0128.00 PEND
;
--
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
