IBM Mainframe Forum

by **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,

Select all

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.

by **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.

by **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.

by **xboss** » Sat Nov 19, 2011 10:13 am

I got it. Thank you both.

IBM Mainframe Forum

SOC7 abend

SOC7 abend

Re: SOC7 abend

Re: SOC7 abend

Re: SOC7 abend