Quantcast
Channel: IBM Mainframe Computers Forums
Viewing all articles
Browse latest Browse all 8500

DFSORT/ICETOOL :: RE: Performing arithmetic on input field

$
0
0
Author: zh_lad
Posted: Thu Jan 05, 2017 8:31 pm (GMT 5.5)

Hi, Happy New Year to you all. I am back to the task.

Code:
//SORTIN   DD *                         
518791041070069                         
//SORTOUT  DD SYSOUT=*                 
//SYSIN    DD *                         
  OPTION COPY                           
  INREC IFTHEN=(WHEN=INIT,             
        BUILD=(1,1,UFF,MUL,+2,EDIT(TT),
               2,1,UFF,MUL,+1,EDIT(TT),
               3,1,UFF,MUL,+2,EDIT(TT),
               4,1,UFF,MUL,+1,EDIT(TT),
               5,1,UFF,MUL,+2,EDIT(TT),
               6,1,UFF,MUL,+1,EDIT(TT),
               7,1,UFF,MUL,+2,EDIT(TT),
               8,1,UFF,MUL,+1,EDIT(TT),
               9,1,UFF,MUL,+2,EDIT(TT),
              10,1,UFF,MUL,+1,EDIT(TT),
              11,1,UFF,MUL,+2,EDIT(TT),
              12,1,UFF,MUL,+1,EDIT(TT),
              13,1,UFF,MUL,+2,EDIT(TT),
              14,1,UFF,MUL,+1,EDIT(TT),
              15,1,UFF,MUL,+2,EDIT(TT)))
  OUTREC BUILD=(1,1,ZD,ADD,             
               2,1,ZD,ADD, 
               3,1,ZD,ADD, 
               4,1,ZD,ADD, 
               5,1,ZD,ADD, 
               6,1,ZD,ADD, 
               7,1,ZD,ADD, 
               8,1,ZD,ADD, 
               9,1,ZD,ADD, 
              10,1,ZD,ADD, 
              11,1,ZD,ADD, 
              12,1,ZD,ADD, 
              13,1,ZD,ADD, 
              14,1,ZD,ADD, 
              15,1,ZD,ADD, 
              16,1,ZD,ADD, 
              17,1,ZD,ADD, 
              18,1,ZD,ADD, 
              19,1,ZD,ADD, 
              20,1,ZD,ADD, 
              21,1,ZD,ADD, 
              22,1,ZD,ADD, 
              23,1,ZD,ADD, 
              24,1,ZD,ADD,   
              25,1,ZD,ADD,   
              26,1,ZD,ADD,   
              27,1,ZD,ADD,   
              28,1,ZD,ADD,   
              29,1,ZD,ADD,   
              30,1,ZD,MUL,+9)
//SYSOUT   DD SYSOUT=*       
//SYSUDUMP DD SYSOUT=*       

output is 116, it should have been 468 (52 x 9). I have checked, calculation is right up to 52. Something has gone wrong when MULT with 9. Is the length of 52 causing MULT with work differently?

Thanks.


Viewing all articles
Browse latest Browse all 8500

Trending Articles