|
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
5769SS1 V4R5M0 000526 Generated Output
06/07/02 17:07:58 Page
SEQ INST Offset Generated Code *... ... 1 ... ... 2 ... ... 3 ... ...
4 ... ... 5 ... ... 6 ... ... 7 ... ... 8 Break
00001 ENTRY * EXT
;
00002 0001 000004 2132 0015 0016 CPYBWP ?WCLSEPT@,?WWCBSEPT
;
00003 0002 00000A 0132 0010 4017 213A CPYBWP
?QCLCLNUP,?WWLISEPT(00314) ;
00004 0003 000012 0252 0010 004F SETIEXIT
?QCLCLNUP,?WCLRARGLST ;
00005 0004 000018 0283 4017 213C 004F CALLX
?WWLISEPT(00316),?WCLRARGLST,* ;
0000
00006 0005 000022 0022 004D 0035 SETSPPFP ?WCAWRKA@,?WCLRWA@
;
00007 0006 000028 0132 0019 004D CPYBWP ?WCLRCWA@,?WCAWRKA@
;
00008 DCL DD ?CLPVARS(00000001)
CHAR(1) AUTO ;
00009 0007 00002E 03EF 0009 0007 2001 MODEXCPD
?FCEXCMON,?EMEMONAT,X'01' ;
00010 BRK '200 '
; 200
00011 ?RCLBL00001:
; 200
00012 0008 000036 3042 002C 2001 CPYNV ?WCLCSREI ,00001
; 200
00013 0009 00003C 1042 0042 2001 CPYNV ?WCLRSOFF,00001
; 200
00014 000A 000042 0022 0019 0035 SETSPPFP ?WCLRCWA@, ?WCLRWA@
; 200
00015 ?ICLBL00001:
; 200
00016 BRK '300 '
; 300
00017 000B 000048 30B2 0024 0005 CPYBLA ?LOGDYNAMIC,<22|
> ; 300
00018 000C 00004E 1011 0053 B ?PGMEND
; 300
00019 DCL SPCPTR ?PGMAUTO@ AUTO
INIT(?CLPVARS) ; 300
00020 DCL CON ?EMEMONAT CHAR(2)
INIT(X'A000') ; 300
00021 DCL CON ?EMDMONAT CHAR(2)
INIT(X'2000') ; 300
00022 DCL EXCM ?FCEXCMON
EXCID(H'9999') BP(?FCEXHDLR) SKP CV('CPF') ; 300
00023 DCL IDL
?ICIDL00001(?ICLBL00001) ; 300
00024 DCL IDL
?RCIDL00001(?RCLBL00001) ; 300
00025 ?RTYCMD :
; 300
00026 ENTRY ?RCIBP
; 300
00027 000D 000052 3011 400B 002C B ?RCIDL00001(?WCLCSREI )
; 300
00028 ?IGNCMD :
; 300
00029 ENTRY ?ICIBP
; 300
00030 000E 000058 3011 400A 002C B ?ICIDL00001(?WCLCSREI )
; 300
00031 DCL SYSPTR ?QCLCLNUP AUTO
; 300
00032 DCL SPCPTR ?WCLRDTA@ AUTO
INIT(?WCLRDTAR) ; 300
00033 DCL SPCPTR ?WCLOGCB@ AUTO
INIT(?WCLOGCB) ; 300
00034 DCL SPCPTR ?WCLRCCB@ AUTO
INIT(?WCLRCCB) ; 300
00035 DCL SPCPTR ?WCLXECB@ AUTO
INIT(?WCLXECTL ) ; 300
00036 DCL SYSPTR ?WCLSEPT@ AUTO
; 300
00037 DCL SPCPTR ?WWCBSEPT BASPCO
POS(00001) ; 300
00038 DCL SYSPTR ?WWLISEPT(006720)
BAS(?WCLSEPT@) ; 300
00039 DCL DD ?WCLRCCB CHAR(368)
AUTO BDRY(16) ; 300
00040 DCL SPCPTR ?WCLRCWA@
DEF(?WCLRCCB) POS(1) ; 300
00041 DCL SPCPTR ?WCLRCIB@
DEF(?WCLRCCB) POS(17) INIT(?WCLRDTAR) ; 300
00042 DCL PTR * DEF(?WCLRCCB)
POS(33) ; 300
00043 DCL DD ?WCLRCLOG CHAR(11)
DEF(?WCLRCCB) POS(49) INIT(<11|Ø >); 300
00044 DCL DD * CHAR(9)
DEF(?WCLRCCB) POS(60) INIT(X'000000000000000000') ; 300
00045 DCL DD ?WCLRCFIX CHAR(40)
DEF(?WCLRCCB) POS(69) ; 300
00046 DCL DD ?WCLRCVAR CHAR(260)
DEF(?WCLRCCB) POS(109) ; 300
00047 DCL DD ?WCLRCCHG CHAR(300)
DEF(?WCLRCCB) POS(69) ; 300
00048 DCL DD ?WCLRCCPG CHAR(1)
DEF(?WCLRCCHG) POS(37) ; 300
00049 DCL DD ?WCLOGCB CHAR(064)
AUTO BDRY(16) ; 300
00050 DCL DD ?LOGSTATIC CHAR(26)
AUTO DEF(?WCLOGCB) POS(1) INIT( 300
<26| Ø
>) ; 300
00051 DCL DD ?LOGDYNAMIC CHAR(22)
AUTO DEF(?WCLOGCB) POS(27) INIT( 300
X'00000000000000000000000000000000000000000000') ; 300
00052 DCL SPCPTR ?LOGCTCB@ AUTO
DEF(?WCLOGCB) POS(049) INIT(?WCLRCCB) ; 300
00053 DCL DD ?WCLXECTL CHAR(0072)
AUTO BDRY(16) ; 300
00054 DCL SPCPTR ?WCLXEPL@ AUTO
DEF(?WCLXECTL ) POS(1) ; 300
00055 DCL SPCPTR * AUTO
DEF(?WCLXECTL ) POS(17) ; 300
00056 DCL SPCPTR * AUTO
DEF(?WCLXECTL ) POS(33) ; 300
00057 DCL DD ?WCLXELVL CHAR(1) AUTO
DEF(?WCLXECTL ) POS(49) INIT(X'00') ; 300
00058 DCL DD * CHAR(7) AUTO
DEF(?WCLXECTL ) POS(50) INIT(X'00000000000000') ; 300
00059 DCL DD ?WCLCSREI BIN(2) AUTO
DEF(?WCLXECTL ) POS(57) INIT(0) ; 300
00060 DCL DD * CHAR(6) AUTO
DEF(?WCLXECTL ) POS(59) INIT('0000000000000') ; 300
00061 DCL DD ?WCLXERPY CHAR(1) AUTO
DEF(?WCLXECTL ) POS(65) INIT(X'00') ; 300
00062 DCL DD * CHAR(7) AUTO
DEF(?WCLXECTL ) POS(66) INIT(X'00000000000000') ; 300
00063 DCL DD ?WCLRDTAR CHAR(240)
AUTO BDRY(16) ; 300
00064 DCL SPCPTR ?WCLOGCBR@
DEF(?WCLRDTAR) POS(1) INIT(?WCLOGCB) ; 300
00065 DCL PTR * DEF(?WCLRDTAR)
POS(17) ; 300
00066 DCL SPCPTR ?WCLRDMCB
DEF(?WCLRDTAR) POS(33) ; 300
00067 DCL SYSPTR ?WCLRPL@
DEF(?WCLRDTAR) POS(49) ; 300
00068 DCL SYSPTR ?WCLRWA@
DEF(?WCLRDTAR) POS(65) ; 300
00069 DCL SYSPTR ?WCLRPGM@
DEF(?WCLRDTAR) POS(81) ; 300
00070 DCL SPCPTR ?WCLRLDA@
DEF(?WCLRDTAR) POS(97) ; 300
00071 DCL DD * CHAR(1)
DEF(?WCLRDTAR) POS(113) INIT(X'04') ; 300
00072 DCL DD ?WCLRPLSZ BIN(2)
DEF(?WCLRDTAR) POS(114) INIT(000000) ; 300
00073 DCL DD ?WCLRWASZ BIN(2)
DEF(?WCLRDTAR) POS(116) INIT(000001) ; 300
00074 DCL DD * CHAR(10)
DEF(?WCLRDTAR) POS(118) INIT(X'00000000000000000000' 300
)
; 300
00075 DCL DD ?WCLRPCRT CHAR(1)
DEF(?WCLRDTAR) POS(128) INIT(' ') ; 300
00076 DCL DD ?WCLRDMCD CHAR(1)
DEF(?WCLRDTAR) POS(129) INIT('0') ; 300
00077 DCL DD * CHAR(15)
DEF(?WCLRDTAR) POS(130) INIT( 300
X'000000000000000000000000000000') ; 300
00078 DCL DD * CHAR(16)
DEF(?WCLRDTAR) POS(145) INIT( 300
X'00000000000000000000000000000000') ; 300
00079 DCL SPCPTR ?WCLRSSTBL
DEF(?WCLRDTAR) POS(145) ; 300
00080 DCL PTR * DEF(?WCLRDTAR)
POS(161) ; 300
00081 DCL DD ?WCLRSOFF BIN(2)
DEF(?WCLRDTAR) POS(177) INIT(0) ; 300
00082 DCL DD * BIN(4)
DEF(?WCLRDTAR) POS(179) INIT(0) ; 300
00083 DCL DD * CHAR(16)
DEF(?WCLRDTAR) POS(193) INIT( 300
X'00000000000000000000000000000000') ; 300
00084 DCL SPCPTR ?WCAPTR
DEF(?WCLRDTAR) POS(193) ; 300
00085 DCL DD * CHAR(16)
DEF(?WCLRDTAR) POS(209) INIT( 300
X'00000000000000000000000000000000') ; 300
00086 DCL SPCPTR ?WCLRCAWRKA
DEF(?WCLRDTAR) POS(209) ; 300
00087 DCL SPCPTR ?WCLRCLVCA
DEF(?WCLRDTAR) POS(225) ; 300
00088 DCL DD ?LDA CHAR(1024)
BAS(?WCLRLDA@) ; 300
00089 DCL DD ?WCAWRKA CHAR(32767)
BAS(?WCAWRKA@) ; 300
00090 DCL SPCPTR ?WCAWARGL(99)
DEF(?WCAWRKA) POS(1) ; 300
00091 DCL DD ?WCAWRKVA CHAR(31183)
DEF(?WCAWRKA) POS(1585) ; 300
00092 DCL SPCPTR ?WCAWRKA@ AUTO
DEF(?WCLRCAWRKA) ; 300
00093 DCL OL ?WCLRCARG1(?WCLRCCB@)
ARG ; 300
00094 DCL OL ?WCLRARGLST(?WCLRDTA@)
; 300
00095 DCL OL ?RTNOPLIST(?WCLRDTA@)
ARG ; 300
00096 DCL OL ?FCHDLRAL(?WCLXECB@)
ARG ; 300
00097 ?FCEXHDLR:
; 300
00098 000F 00005E 23EF 0009 0008 2001 MODEXCPD
?FCEXCMON,?EMDMONAT,X'01' ; 300
00099 0010 000066 0283 4017 214E 0051 CALLX
?WWLISEPT(0334),?FCHDLRAL,* ; 300
0000
300
00100 0011 000070 03EF 0009 0007 2001 MODEXCPD
?FCEXCMON,?EMEMONAT,X'01' ; 300
00101 0012 000078 1CC2 4000 002E 20C9 CMPBLA(B) ?WCLXERPY
,C'I'/EQ(?IGNCMD) ; 300
000E
300
00102 0013 000082 1011 000C B ?RTYCMD
; 300
00103 ?PGMEND:
; 300
00104 0014 000086 23EF 0009 0008 2001 MODEXCPD
?FCEXCMON,?EMDMONAT,X'01' ; 300
00105 0015 00008E 0283 4017 2139 0050 CALLX
?WWLISEPT(0313),?RTNOPLIST,* ; 300
0000
300
00106 0016 000098 0260 PEND
; 300
--
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.
