|
midrange.com
This is a multi-part message in MIME format.
--
[ Picked text/plain from multipart/alternative ]
Dear All ,
Would you mind giving me some advise to solve this various problem
Statement/Instruction . . . . . . . . . : /0039
Program . . . . . . . . . . . . . . . . : QCLRTNE
Recursion level . . . . . . . . . . . . : 1
Receiver value too small to hold result.
Statement/Instruction . . . . . . . . . : /0039
Program . . . . . . . . . . . . . . . . : QCLRTNE
Recursion level . . . . . . . . . . . . : 1
Function check. MCH1210 unmonitored by QCLRTNE at statement *N, instruction
Statement/Instruction . . . . . . . . . : 300 /0015
Program . . . . . . . . . . . . . . . . : CALLX
Recursion level . . . . . . . . . . . . : 1
Function check. MCH1210 unmonitored by QCLRTNE at statement *N, instruction
Thank you.
regards,
SAS
0001.00 ENTRY * EXT
;
0002.00 CPYBWP ?WCLSEPT@,?WWCBSEPT
;
0003.00 CPYBWP ?QCLCLNUP,?WWLISEPT(00314)
;
0004.00 SETIEXIT ?QCLCLNUP,?WCLRARGLST
;
0005.00 CALLX ?WWLISEPT(00316),?WCLRARGLST,*
;
0006.00
0007.00 SETSPPFP ?WCAWRKA@,?WCLRWA@
;
0008.00 CPYBWP ?WCLRCWA@,?WCAWRKA@
;
0009.00 DCL DD ?CLPVARS(00000001) CHAR(1) AUTO
;
0010.00 MODEXCPD ?FCEXCMON,?EMEMONAT,X'01'
;
0011.00 BRK '200 '
;
0012.00 ?RCLBL00001:
;
0013.00 CPYNV ?WCLCSREI ,00001
;
0014.00 CPYNV ?WCLRSOFF,00001
;
0015.00 SETSPPFP ?WCLRCWA@, ?WCLRWA@
;
0016.00 ?ICLBL00001:
;
0017.00 BRK '300 '
;
0018.00 CPYBLA ?LOGDYNAMIC,<22| >
;
0019.00 B ?PGMEND
;
0020.00 DCL SPCPTR ?PGMAUTO@ AUTO INIT(?CLPVARS)
;
0021.00 DCL CON ?EMEMONAT CHAR(2) INIT(X'A000')
;
0022.00 DCL CON ?EMDMONAT CHAR(2) INIT(X'2000')
;
0023.00 DCL EXCM ?FCEXCMON EXCID(H'9999') BP(?FCEXHDLR) SKP CV('CPF')
;
0024.00 DCL IDL ?ICIDL00001(?ICLBL00001)
;
0025.00 DCL IDL ?RCIDL00001(?RCLBL00001)
;
0026.00 ?RTYCMD :
;
0027.00 ENTRY ?RCIBP
;
0028.00 B ?RCIDL00001(?WCLCSREI )
;
0029.00 ?IGNCMD :
;
0030.00 ENTRY ?ICIBP
;
0031.00 B ?ICIDL00001(?WCLCSREI )
;
0032.00 DCL SYSPTR ?QCLCLNUP AUTO
;
0033.00 DCL SPCPTR ?WCLRDTA@ AUTO INIT(?WCLRDTAR)
;
0034.00 DCL SPCPTR ?WCLOGCB@ AUTO INIT(?WCLOGCB)
;
0035.00 DCL SPCPTR ?WCLRCCB@ AUTO INIT(?WCLRCCB)
;
0036.00 DCL SPCPTR ?WCLXECB@ AUTO INIT(?WCLXECTL )
;
0037.00 DCL SYSPTR ?WCLSEPT@ AUTO
;
0038.00 DCL SPCPTR ?WWCBSEPT BASPCO POS(00001)
;
0039.00 DCL SYSPTR ?WWLISEPT(006720) BAS(?WCLSEPT@)
;
0040.00 DCL DD ?WCLRCCB CHAR(368) AUTO BDRY(16)
;
0041.00 DCL SPCPTR ?WCLRCWA@ DEF(?WCLRCCB) POS(1)
;
0042.00 DCL SPCPTR ?WCLRCIB@ DEF(?WCLRCCB) POS(17) INIT(?WCLRDTAR)
;
0043.00 DCL PTR * DEF(?WCLRCCB) POS(33)
;
0044.00 DCL DD ?WCLRCLOG CHAR(11) DEF(?WCLRCCB) POS(49) INIT(<11|Ø
>);
0045.00 DCL DD * CHAR(9) DEF(?WCLRCCB) POS(60)
INIT(X'000000000000000000') ;
0046.00 DCL DD ?WCLRCFIX CHAR(40) DEF(?WCLRCCB) POS(69)
;
0047.00 DCL DD ?WCLRCVAR CHAR(260) DEF(?WCLRCCB) POS(109)
;
0048.00 DCL DD ?WCLRCCHG CHAR(300) DEF(?WCLRCCB) POS(69)
;
0049.00 DCL DD ?WCLRCCPG CHAR(1) DEF(?WCLRCCHG) POS(37)
;
0050.00 DCL DD ?WCLOGCB CHAR(064) AUTO BDRY(16)
;
0051.00 DCL DD ?LOGSTATIC CHAR(26) AUTO DEF(?WCLOGCB) POS(1) INIT(
0052.00 <26| Ø >)
;
0053.00 DCL DD ?LOGDYNAMIC CHAR(22) AUTO DEF(?WCLOGCB) POS(27) INIT(
0054.00 X'00000000000000000000000000000000000000000000')
;
0055.00 DCL SPCPTR ?LOGCTCB@ AUTO DEF(?WCLOGCB) POS(049)
INIT(?WCLRCCB) ;
0056.00 DCL DD ?WCLXECTL CHAR(0072) AUTO BDRY(16)
;
0057.00 DCL SPCPTR ?WCLXEPL@ AUTO DEF(?WCLXECTL ) POS(1)
;
0058.00 DCL SPCPTR * AUTO DEF(?WCLXECTL ) POS(17)
;
0059.00 DCL SPCPTR * AUTO DEF(?WCLXECTL ) POS(33)
;
0060.00 DCL DD ?WCLXELVL CHAR(1) AUTO DEF(?WCLXECTL ) POS(49)
INIT(X'00') ;
0061.00 DCL DD * CHAR(7) AUTO DEF(?WCLXECTL ) POS(50)
INIT(X'00000000000000') ;
0062.00 DCL DD ?WCLCSREI BIN(2) AUTO DEF(?WCLXECTL ) POS(57) INIT(0)
;
0063.00 DCL DD * CHAR(6) AUTO DEF(?WCLXECTL ) POS(59)
INIT('0000000000000') ;
0064.00 DCL DD ?WCLXERPY CHAR(1) AUTO DEF(?WCLXECTL ) POS(65)
INIT(X'00') ;
0065.00 DCL DD * CHAR(7) AUTO DEF(?WCLXECTL ) POS(66)
INIT(X'00000000000000') ;
0066.00 DCL DD ?WCLRDTAR CHAR(240) AUTO BDRY(16)
;
0067.00 DCL SPCPTR ?WCLOGCBR@ DEF(?WCLRDTAR) POS(1) INIT(?WCLOGCB)
;
0068.00 DCL PTR * DEF(?WCLRDTAR) POS(17)
;
0069.00 DCL SPCPTR ?WCLRDMCB DEF(?WCLRDTAR) POS(33)
;
0070.00 DCL SYSPTR ?WCLRPL@ DEF(?WCLRDTAR) POS(49)
;
0071.00 DCL SYSPTR ?WCLRWA@ DEF(?WCLRDTAR) POS(65)
;
0072.00 DCL SYSPTR ?WCLRPGM@ DEF(?WCLRDTAR) POS(81)
;
0073.00 DCL SPCPTR ?WCLRLDA@ DEF(?WCLRDTAR) POS(97)
;
0074.00 DCL DD * CHAR(1) DEF(?WCLRDTAR) POS(113) INIT(X'04')
;
0075.00 DCL DD ?WCLRPLSZ BIN(2) DEF(?WCLRDTAR) POS(114) INIT(000000)
;
0076.00 DCL DD ?WCLRWASZ BIN(2) DEF(?WCLRDTAR) POS(116) INIT(000001)
;
0077.00 DCL DD * CHAR(10) DEF(?WCLRDTAR) POS(118)
INIT(X'00000000000000000000'
0078.00 )
;
0079.00 DCL DD ?WCLRPCRT CHAR(1) DEF(?WCLRDTAR) POS(128) INIT(' ')
;
0080.00 DCL DD ?WCLRDMCD CHAR(1) DEF(?WCLRDTAR) POS(129) INIT('0')
;
0081.00 DCL DD * CHAR(15) DEF(?WCLRDTAR) POS(130) INIT(
0082.00 X'000000000000000000000000000000')
;
0083.00 DCL DD * CHAR(16) DEF(?WCLRDTAR) POS(145) INIT(
0084.00 X'00000000000000000000000000000000')
;
0085.00 DCL SPCPTR ?WCLRSSTBL DEF(?WCLRDTAR) POS(145)
;
0086.00 DCL PTR * DEF(?WCLRDTAR) POS(161)
;
0087.00 DCL DD ?WCLRSOFF BIN(2) DEF(?WCLRDTAR) POS(177) INIT(0)
;
0088.00 DCL DD * BIN(4) DEF(?WCLRDTAR) POS(179) INIT(0)
;
0089.00 DCL DD * CHAR(16) DEF(?WCLRDTAR) POS(193) INIT(
0090.00 X'00000000000000000000000000000000')
;
0091.00 DCL SPCPTR ?WCAPTR DEF(?WCLRDTAR) POS(193)
;
0092.00 DCL DD * CHAR(16) DEF(?WCLRDTAR) POS(209) INIT(
0093.00 X'00000000000000000000000000000000')
;
0094.00 DCL SPCPTR ?WCLRCAWRKA DEF(?WCLRDTAR) POS(209)
;
0095.00 DCL SPCPTR ?WCLRCLVCA DEF(?WCLRDTAR) POS(225)
;
0096.00 DCL DD ?LDA CHAR(1024) BAS(?WCLRLDA@)
;
0097.00 DCL DD ?WCAWRKA CHAR(32767) BAS(?WCAWRKA@)
;
0098.00 DCL SPCPTR ?WCAWARGL(99) DEF(?WCAWRKA) POS(1)
;
0099.00 DCL DD ?WCAWRKVA CHAR(31183) DEF(?WCAWRKA) POS(1585)
;
0100.00 DCL SPCPTR ?WCAWRKA@ AUTO DEF(?WCLRCAWRKA)
;
0101.00 DCL OL ?WCLRCARG1(?WCLRCCB@) ARG
;
0102.00 DCL OL ?WCLRARGLST(?WCLRDTA@)
;
0103.00 DCL OL ?RTNOPLIST(?WCLRDTA@) ARG
;
0104.00 DCL OL ?FCHDLRAL(?WCLXECB@) ARG
;
0105.00 ?FCEXHDLR:
;
0106.00 MODEXCPD ?FCEXCMON,?EMDMONAT,X'01'
;
0107.00 CALLX ?WWLISEPT(0334),?FCHDLRAL,*
;
0108.00
0109.00 MODEXCPD ?FCEXCMON,?EMEMONAT,X'01'
;
0110.00 CMPBLA(B) ?WCLXERPY ,C'I'/EQ(?IGNCMD)
;
0111.00
0112.00 B ?RTYCMD
;
0113.00 ?PGMEND:
;
0114.00 MODEXCPD ?FCEXCMON,?EMDMONAT,X'01'
;
0115.00 CALLX ?WWLISEPT(0313),?RTNOPLIST,*
;
0116.00 PEND
;
--
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 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.
