H DFTNAME(TESTEDT) DATEDIT(*YMD/)                                                              
     F********** 編集コード API のテスト ***********************************                        
     F**********************************************************************                        
     D RCVL            S             10I 0                                                          
     D MASK            S            256A   INZ                                                      
     D MASKL           S             10I 0 INZ                                                      
     D MASKR           S             10I 0 INZ                                                      
     D ZEROS           S             10I 0 INZ                                                      
     D SLEN            S             10I 0                                                          
     D SDEC            S             10I 0                                                          
     D LEN             S             10I 0 INZ                                                      
     D DEC             S             10I 0 INZ                                                      
                                                                                                    
     D*( APIERR )                                                                                   
     D APIERR          DS                                                                           
     D  GETBYT                 1      4B 0 INZ(160)                                                 
     D  AVLBYT                 5      8B 0 INZ(0)                                                   
     D  ECPERR                 9     15                                                             
     D  ECP                   16     16                                                             
                                                                                                    
     C     '* TESTEDT *' DSPLY                   ANS               1                                
     C*                                                                                             
     C                   MOVEL     'K'           EDTCDE                                             
     C                   EVAL      RCVL = %SIZE(MASK)                                               
     C                   Z-ADD     RCVL          DG04              4 0                              
     C                   MOVE      DG04          FLD4              4                                
     C     'RCVL='       CAT(P)    FLD4:0        DSP40            40                                
     C     DSP40         DSPLY                                                                      
     C                   Z-ADD     7             SLEN                                               
     C                   Z-ADD     0             SDEC                                               
     C*----------------------------------------------------+                                        
     C                   CALL      'QECCVTEC'                                                       
     C                   PARM                    MASK                                               
     C                   PARM                    MASKL                                              
     C                   PARM                    RCVL                                               
     C                   PARM      ' '           ZERO_C            1                                
     C                   PARM                    EDTCDE            1                                
     C                   PARM      '\'           TUKA              1                                
     C                   PARM                    SLEN                                               
     C                   PARM                    SDEC                                               
     C                   PARM                    APIERR                                             
     C*----------------------------------------------------+                                        
     C     'EDT OK'      DSPLY                   ANS                                                
     C                   SETON                                        LR                            
     C                   RETURN