Re: LE CEEBXITA for // UPSI vs. PARM UPSI Handling

New Message Reply Date view Thread view Subject view Author view Other groups

Subject: Re: LE CEEBXITA for // UPSI vs. PARM UPSI Handling
industrynews@winwholesale.com
Date: Mon Jul 21 2008 - 17:39:59 EDT 

        Ideas?  I seem to be getting a segment translation exception at 
the location I've indicated below by an arrow.  Thanks.

USING CEEDSA,R7
L     R7,IJBJCWA             get Job Cntrl savearea addr 
IF    CEEDSAR15,(NE,CLC),CEEDSAR1  If PARM present... 
 L    R5,CEEDSAR1             get PARM address 
 LH   R6,0(0,R5)              get PARM length 
 LA   R5,2(0,R5)              incr. past PARM length 
 WHILE R6,(NP,LTR),R6,AND,    Search PARM...                  +
      0(R5),NE,C'/'           ...for LE options 
  LA  R5,1(0,R5)               incr. PARM address 
  BCTR R6,0                    decr. PARM length 
 WEND                         Loop 
 LR   R4,R5                   Save for later 
 SH   R6,=H'3'                Account for match string length 
 WHILE R6,(NP,LTR),R6,AND,    Search PARM...                  +
      =C'UPSI',(NE,CLC),0(R5) ...for UPSI keyword               <===
  LA  R5,1(0,R5)               incr. PARM address 
  BCTR R6,0                    decr. PARM length 
 WEND                         Loop 
 IF R6,(NP,LTR),R6,BC,RETURN  If UPSI keyword found... 
 ENDIF                        ...drop out of exit routine 
 IF   0(R4),EQ,C'/'           If other LE options found... 
  LA  R4,1(0,R4)               Point to start of LE options 
  ST  R4,ANEWOPTS              Save for later 
  L   R5,CEEDSAR1              Get PARM address 
  LH  R6,0(0,R5)               Get PARM length 
  LA  R5,2(0,R5)               Incr. past PARM length 
  SR  R4,R5                    Calc. length of user's PARM 
  SR  R6,R4                    Calc. length of LE options 
  IF  R6,(HT,CH),=YL2(L'MOREOPTS),BC,RETURN  If too much... 
  ENDIF                        ...drop out of exit routine 
  IF  R6,(NP,LTR),R6           If LE option len not zero 
   LH  R5,NEWOPTL               Get length of new options 
   AR  R5,R6                    Add length of LE options 
   LA  R5,1(0,R5)               Plus 1 for concat. comma 
   STH R5,NEWOPTL               Save length of new options 
   MVI UPSICMA,C','             Concat. to UPSI setting 
   L   R4,ANEWOPTS              Get address of LE options 
   BCTR R6,0                    decr. length for EX instr. 
   EX  R6,COPYOPTS              Copy LE options for merge 
  ENDIF                        Endif
 ENDIF                        Endif
ENDIF                        Endif
DROP  R7

Sincerely,

Dave Clark

WinWholesale Group Services
3110 Kettering Boulevard
Dayton, Ohio  45439  USA
(937) 294-5331


This email message and any attachments is for use only by the named 
addressee(s) and may contain confidential, privileged and/or proprietary 
information. If you have received this message in error, please 
immediately notify the sender and delete and destroy the message and all 
copies. All unauthorized direct or indirect use or disclosure of this 
message is strictly prohibited. No right to confidentiality or privilege 
is waived or lost by any error in transmission.

New Message Reply Date view Thread view Subject view Author view Other groups

This archive was generated by hypermail 2b25 : Tue Aug 19 2008 - 17:35:09 EDT