SOC7 abend



High Level Assembler(HLASM) for MVS & VM & VSE

SOC7 abend

Postby xboss » Fri Nov 18, 2011 11:20 pm

Hi All,
Can anybody suggest me where from this code I am getting SOC7 (bad packed decimal data format) abend.

Here is my code,
TOFPB    EQU    *                 
         TM     VAL_EBC2,X'4E'   
         BNZ    POSITIVE         
*        NI     VAL_EBC2,X'0F'   
*        MVC    VAL_EBCT,VAL_EBC2
         LA       R6,55                                    CHECK BRANCHING
         NI     VAL_EBCT,X'DF'   
         PACK   VAL_PAK2,VAL_EBCT
         MVC    VAL_PT2,VAL_PAK2 
         LA     R5,VAL_BIN2       
         CVB    R5,VAL_PT2       
         B      RETURN   
POSITIVE EQU   *
         LA       R6,66                                     CHECK BRANCHING
        NI     VAL_EBCT,X'CF'   
         PACK   VAL_PAK2,VAL_EBCT
         MVC    VAL_PT2,VAL_PAK2 
         LA     R5,VAL_BIN2       
         CVB    R5,VAL_PT2 

SAVEAREA DC     18F'0'           
VAL_BIN1 DC     1F'-55555'       
VAL_PAK1 DS     PL11             
VAL_ZON1 DS     ZL11             
VAL_ZT1  DS     ZL11             
SIGNEBC  DS     CL1             
VAL_EBC1 DS     CL11             
HEADER   DS     CL12'HELLO WORLD'
VAL_EBC2 DS     CL11'+0000000002'
VAL_EBCT DS     CL11             
VAL_ZON2 DS     ZL11             
         DS     0D               
VAL_PAK2 DS     PL11             
VAL_PT2  DS     PL11             
VAL_BIN2 DS     1F               


Thanks for your time.
xboss
 
Posts: 79
Joined: Mon Nov 29, 2010 10:55 am
Has thanked: 0 time
Been thanked: 0 time

Re: SOC7 abend

 

Re: SOC7 abend

Postby BillyBoyo » Fri Nov 18, 2011 11:47 pm

The only place it can S0C7 is with the CVB. Where do you think you need to put the sign? Check back through the replies you have already had on your other question.
BillyBoyo
Global moderator
 
Posts: 3804
Joined: Tue Jan 25, 2011 12:02 am
Has thanked: 22 times
Been thanked: 264 times

Re: SOC7 abend

Postby steve-myers » Sat Nov 19, 2011 2:11 am

Another issue is CVB only uses an 8 byte packed decimal value; your code shows an 11 byte field.
steve-myers
Global moderator
 
Posts: 1886
Joined: Thu Jun 03, 2010 6:21 pm
Has thanked: 4 times
Been thanked: 197 times

Re: SOC7 abend

Postby xboss » Sat Nov 19, 2011 10:13 am

I got it. Thank you both.
xboss
 
Posts: 79
Joined: Mon Nov 29, 2010 10:55 am
Has thanked: 0 time
Been thanked: 0 time


Return to Assembler

 


  • Related topics
    Replies
    Views
    Last post