IBM Mainframe Forum

[JulianaMarc]

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

[dick scherrer]

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

[JulianaMarc]

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

Thanks!

[dick scherrer]

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