Abend S0C7



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

Abend S0C7

Postby revulsion » Thu Dec 08, 2011 8:47 am

Hello,

I'm getting abend SOC7 on my code for some reason. Any suggestions?
**********************  BEGIN LOGIC  *********************************
         MVC    CHAR(1),ZONE
         CLI    CHAR,C'-'
         BNE    SKIP
         NI     ZONE+10,X'DF'
SKIP   EQU    *
         PACK   PACKNUM,MM_CS+1
         CVB    R5,PACKNUM
**********************  END LOGIC    *********************************
**********************  DATA AREAS   *********************************
DYNAREA  DSECT ,                   
          DS   0F                     
SAVEAREA DS   18F               
        DS   0D
PACKNUM  DS   D
CHAR        DS   CL1
                YREGS
                SUMFUNMM
                END

**************************** Bottom of Data ***************************


Thanks!
revulsion
 
Posts: 1
Joined: Thu Dec 08, 2011 8:43 am
Has thanked: 0 time
Been thanked: 0 time

Re: Abend S0C7

 

Re: Abend S0C7

Postby steve-myers » Thu Dec 08, 2011 9:42 am

You aren't showing the data area definitions, and that makes it more difficult for us to guess what you're doing, so this is nothing more than a guess.

PACK PACKNUM,MM_CS+1

The PACK instruction requires two lengths, one for each operand. I'm guessing

NI ZONE+10,X'DF'

is altering the last byte in MM_CS, but the PACK is using the entire length of MM_CS, so it is running 1 byte too long, and PACKNUM becomes a non-packed decimal value, so the CVB will get the S0C7.

Another possibility is PACKNUM is not length 8.
steve-myers
Global moderator
 
Posts: 1886
Joined: Thu Jun 03, 2010 6:21 pm
Has thanked: 4 times
Been thanked: 197 times


Return to Assembler

 


  • Related topics
    Replies
    Views
    Last post