IBM Mainframe Forum

by **JulianaMarc** » Tue Nov 30, 2010 4:57 pm

Hello!

How can I use MOD function in Easytrieve, like you said before, but my input file has fields with fixed. With my code, I've got a S0C7 abend. How can I handle this, please?
The code is below:

Select all

I05A_IDREG * 010 A . * 049-058 IDENT.REGISTRO DIRF
I05A_VLR_JAN * 008 P 2 . * 059-066 VALORES JANEIRO
I05A_VLR_FEV * 008 P 2 . * 067-074 VALORES FEVEREIRO
I05A_VLR_MAR * 008 P 2 . * 075-082 VALORES MARÃ‡O
*
W_REST W 15 N 2 VALUE 0
W_INT W_REST 13 N
W_DEC W_REST +13 2 N

DO WHILE IND_MES < 13
W_REST = VLR_MES_DEP / 150.69
IND_ANT = IND_MES + 1
IF W_DEC Â¬= 0
W_VLR_DEPEND = VLR_MES_DEP(IND_MES)
VLR_MES_DEP(IND_MES) = VLR_MES_DEP(IND_ANT)
IND_MES = IND_MES + 1

Thanks!
Juliana

by **dick scherrer** » Wed Dec 01, 2010 3:34 am

Hello,

You received this reply, but chose to repost the question again rather than answer the questions. . .

Hello and welcome to the forum,

Does your question have anything to do with date calculations? Or some king of MOD function?

If not, your question will be split into a new topic.

You need to make sure that all of the input is corectly defined and has valid numeric data.

You need to make sure of exactly which instruction encounters the s0c7.

Now, you need to answer the questions from yesterday,

d

by **JulianaMarc** » Thu Dec 02, 2010 8:41 pm

Hello,
A senior analyst helped me, it was because of an error in the code, the indexator was in the wrong place.

Thanks!

by **dick scherrer** » Fri Dec 03, 2010 2:55 am

Good to hear it is working - thank you for letting us know

When looking for help from a forum, you need to post according to the forum structure and rules as well as provide any information the "helpers" may request.

d

IBM Mainframe Forum

How to transform fixed field into a integer field

How to transform fixed field into a integer field

Re: How to transform fixed field into a integer field

Re: How to transform fixed field into a integer field

Re: How to transform fixed field into a integer field