× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@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 thread ...

Follow-Ups:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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.