News Stay informed about the latest enterprise technology news and product updates.

Edit Codes

Edit Codes
 23/04/01  (Editcode 'Y')         Editcodes                        WHE         
  12:06:39  (Editword '  :  :  ')                                   NLSIL405    
                                                                                
                                                Edit-   First     Second        
 Give a value, use the field-minus key          code    field      field        
 to specify a negative value:                     -     1234N      123456P      
                                                  1    12.345    12.345,67      
 Value  . . . :    12345-     (5,0)               2    12.345    12.345,67      
 Value  . . . :    1234567-   (7,2)               3     12345     12345,67      
                                                  4     12345     12345,67      
                                                  A    12.345CR  12.345,67CR    
                                                  B    12.345CR  12.345,67CR    
 Systemvalue QDECFMT   :                          C     12345CR   12345,67CR    
                                                  D     12345CR   12345,67CR    
    1=Blank(Period for decimal, zero              J    12.345-   12.345,67-     
      suppression)                                K    12.345-   12.345,67-     
    2=J(Comma for decimal, one leading zero)      L     12345-    12345,67-     
    3=I(Comma for decimal, zero suppression)      M     12345-    12345,67-     
                                                  N   -12.345   -12.345,67      
                                                  O   -12.345   -12.345,67      
                                                  P    -12345    -12345,67      
                                                  Q    -12345    -12345,67      
 F3=Exit                                          Z     12345      1234567      
 
        *************** Beginning of data ************************************* 
0000.50      A                                      CA03(03)                    
0000.60      A          R S1                                                    
0000.80      A                                  1  3DATE                        
0000.90      A                                      EDTCDE(Y)                   
0001.00      A                                      DSPATR(HI)                  
0001.10      A                                  1 13'(Editcode ''Y'')'          
0001.20      A                                  1 36'Editcodes'                 
0001.30      A                                      DSPATR(HI)                  
0001.40      A                                  1 69USER                        
0001.50      A                                      DSPATR(HI)                  
0001.60      A                                  2  3TIME                        
0001.70      A                                      DSPATR(HI)                  
0001.80      A                                  2 13'(Editword ''  :  :  '')'   
0001.90      A                                  2 69SYSNAME                     
0002.00      A                                      DSPATR(HI)                  
0002.10      A                                  5  2'Give a value, use the'     
0002.20      A                                  5 24'field-minus'               
0002.30      A                                      DSPATR(HI)                  
0002.40      A                                  5 36'key'                       
0002.50      A                                  4 49'Edit-   First     Second   
0002.60      A                                      DSPATR(HI)                  
0002.70      A                                  6  2'to specify a negative valu 
0002.80      A                                  5 49'code    field      field   
0002.90      A                                      DSPATR(HI)                  
0003.00      A                                      DSPATR(UL)                  
0003.10      A                                  6 51'-'                         
0003.20      A            EC501          5Y 0O  6 57                            
0003.30      A            EC701          7Y 2O  6 68                            
0003.40      A                                  7 51'1'                         
0003.50      A            EC502          5Y 0O  7 56EDTCDE(1)                   
0003.60      A            EC702          7Y 2O  7 66EDTCDE(1)                   
0003.70      A                                  8  2'Value  . . . :'            
0003.80      A                                      DSPATR(HI)                  
0003.90      A            WAARDE5        5S 0B  8 20                            
0004.00      A                                  8 31'(5,0)'                     
0004.10      A                                  8 51'2'                         
0004.20      A            EC503          5Y 0O  8 56EDTCDE(2)                   
0004.30      A            EC703          7Y 2O  8 66EDTCDE(2)                   
0004.40      A                                  9  2'Value  . . . :'            
0004.50      A                                      DSPATR(HI)                  
0004.60      A            WAARDE72       7S 2B  9 20DSPATR(MDT)                 
0004.70      A                                  9 31'(7,2)'                     
0004.80      A                                  9 51'3'                         
0004.90      A            EC504          5Y 0O  9 57EDTCDE(3)                   
0005.00      A            EC704          7Y 2O  9 67EDTCDE(3)                   
0005.10      A                                 10 51'4'                         
0005.20      A            EC505          5Y 0O 10 57EDTCDE(4)                   
0005.30      A            EC705          7Y 2O 10 67EDTCDE(4)                   
0005.40      A                                 11 51'A'                         
0005.50      A            EC506          5Y 0O 11 56EDTCDE(A)                   
0005.60      A            EC706          7Y 2O 11 66EDTCDE(A)                   
0005.70      A                                 12 51'B'                         
0005.80      A            EC507          5Y 0O 12 56EDTCDE(B)                   
0005.90      A            EC707          7Y 2O 12 66EDTCDE(B)                   
0006.00      A                                 13  2'Systemvalue QDECFMT   :'   
0006.10      A                                      DSPATR(HI)                  
0006.20      A            DECFMT         1A  O 13 27                            
0006.30      A                                 13 51'C'                         
0006.40      A            EC508          5Y 0O 13 57EDTCDE(C)                   
0006.50      A            EC708          7Y 2O 13 67EDTCDE(C)                   
0006.60      A                                 14 51'D'                         
0006.70      A            EC509          5Y 0O 14 57EDTCDE(D)                   
0006.80      A            EC709          7Y 2O 14 67EDTCDE(D)                   
0006.90      A                                 15  5'1=Blank(Period for decimal 
0007.00      A                                            '                     
0007.10      A                                 15 51'J'                         
0007.20      A            EC510          5Y 0O 15 56EDTCDE(J)                   
0007.30      A            EC710          7Y 2O 15 66EDTCDE(J)                   
 
 
0007.40      A                                 16  5'  suppression)             
0007.50      A                                            '                     
0007.60      A                                 16 51'K'                         
0007.70      A            EC511          5Y 0O 16 56EDTCDE(K)                   
0007.80      A            EC711          7Y 2O 16 66EDTCDE(K)                   
0007.90      A                                 17  5'2=J(Comma for decimal, one 
0008.00      A                                       zero)'                     
0008.10      A                                 17 51'L'                         
0008.20      A            EC512          5Y 0O 17 57EDTCDE(L)                   
0008.30      A            EC712          7Y 2O 17 67EDTCDE(L)                   
0008.40      A                                 18  5'3=I(Comma for decimal, zer 
0008.50      A                                      ssion)'                     
0008.60      A                                 18 51'M'                         
0008.70      A            EC513          5Y 0O 18 57EDTCDE(M)                   
0008.80      A            EC713          7Y 2O 18 67EDTCDE(M)                   
0008.90      A                                 19 51'N'                         
0009.00      A            EC514          5Y 0O 19 55EDTCDE(N)                   
0009.10      A            EC714          7Y 2O 19 65EDTCDE(N)                   
0009.20      A                                 20 51'O'                         
0009.30      A            EC515          5Y 0O 20 55EDTCDE(O)                   
0009.40      A            EC715          7Y 2O 20 65EDTCDE(O)                   
0009.50      A                                 21 51'P'                         
0009.60      A            EC516          5Y 0O 21 56EDTCDE(P)                   
0009.70      A            EC716          7Y 2O 21 66EDTCDE(P)                   
0009.80      A                                 22 51'Q'                         
0009.90      A            EC517          5Y 0O 22 56EDTCDE(Q)                   
0010.00      A            EC717          7Y 2O 22 66EDTCDE(Q)                   
0010.10      A                                 23  2'F3=Exit'                   
0010.20      A                                      COLOR(BLU)                  
0010.30      A                                 23 51'Z'                         
0010.40      A            EC518          5Y 0O 23 57EDTCDE(Z)                   
0010.50      A            EC718          7Y 2O 23 68EDTCDE(Z)                   
 
 
0001.00 Fedit      cf   e             workstn                                   
0001.01                                                                         
0002.00 C                   exFmt     s1                                        
0003.00 C                   doW       not *in03                                 
0004.00 C                   exsr      srMove5                                   
0005.00 C                   exsr      srMove7                                   
0006.00 C                   exFmt     S1                                        
0007.00 C                   endDo                                               
0008.00 C                   eval      *inLR = *on                               
0008.01                                                                         
0009.00 C     srMove5       begSR                                               
0010.00 C                   eval      ec501 = waarde5                           
0011.00 C                   eval      ec502 = waarde5                           
0012.00 C                   eval      ec503 = waarde5                           
0013.00 C                   eval      ec504 = waarde5                           
0014.00 C                   eval      ec505 = waarde5                           
0015.00 C                   eval      ec506 = waarde5                           
0016.00 C                   eval      ec507 = waarde5                           
0017.00 C                   eval      ec508 = waarde5                           
0018.00 C                   eval      ec509 = waarde5                           
0019.00 C                   eval      ec510 = waarde5                           
0020.00 C                   eval      ec511 = waarde5                           
0021.00 C                   eval      ec512 = waarde5                           
0022.00 C                   eval      ec513 = waarde5                           
0023.00 C                   eval      ec514 = waarde5                           
0024.00 C                   eval      ec515 = waarde5                           
0025.00 C                   eval      ec516 = waarde5                           
0026.00 C                   eval      ec517 = waarde5                           
0027.00 C                   eval      ec518 = waarde5                           
0028.00 C                   endSR                                               
 
 
 
 
 
Columns . . . :    6  76            Edit                    STSTUWHE/QRPGLESRC 
 SEU==>                                                                    EDIT 
 FMT C  CL0N01Factor1+++++++Opcode&ExtFactor2+++++++Result++++++++Len++D+HiLoEq 
0029.00 C     srMove7       begSR                                               
0030.00 C                   eval      ec701 = waarde72                          
0031.00 C                   eval      ec702 = waarde72                          
0032.00 C                   eval      ec703 = waarde72                          
0033.00 C                   eval      ec704 = waarde72                          
0034.00 C                   eval      ec705 = waarde72                          
0035.00 C                   eval      ec706 = waarde72                          
0036.00 C                   eval      ec707 = waarde72                          
0037.00 C                   eval      ec708 = waarde72                          
0038.00 C                   eval      ec709 = waarde72                          
0039.00 C                   eval      ec710 = waarde72                          
0040.00 C                   eval      ec711 = waarde72                          
0041.00 C                   eval      ec712 = waarde72                          
0042.00 C                   eval      ec713 = waarde72                          
0043.00 C                   eval      ec714 = waarde72                          
0044.00 C                   eval      ec715 = waarde72                          
0045.00 C                   eval      ec716 = waarde72                          
0046.00 C                   eval      ec717 = waarde72                          
0047.00 C                   eval      ec718 = waarde72                          
0048.00 C                   endSR 

Dig Deeper on iSeries programming commands

Start the conversation

Send me notifications when other members comment.

Please create a username to comment.

-ADS BY GOOGLE

SearchDataCenter

Close