Testing Rule

Figure 411 Testing Euro Validation Rule Example

    EXECUTE 'INIT'                                    

    ON_DATA                                                 

       ALWAYS                                               

          DO GETMEM MEMSYM 'EURO01' LIBSYM 'N14.LIB.AUTOEDIT'

          DO PRINT DATA 'LOCAL CURR=%%LOCAL_CURRENCY'

          DO PRINT DATA 'ROUND CURR=%%ROUND_CURRENCY'      

          DO PRINT DATA 'EUR=%%EUR DLR=%%DLR'

    EXECUTE 'RECONCIL'                                    

    ON_COMPARE                                            

      SOURCE1                                             

        DD 'DDBEFORE'  PROCESS USERBLOCK 'SUBSDATE'       

      SOURCE2                                             

        DD 'DD#AFTER'                                     

      ON_PARM MODE DS LINECT 80                           

       WHEN FLINE 1 TLINE 80 FCOL 1 TCOL 80 SEARCH '.AL.' 

          DO EXTRACT 'LINE' LEVEL 0 LINE +0 FCOL 1 TCOL 80

          DO SET 'DIFFLINE' EVAL 'SYSCURLINE'             

          DO SET 'LINETYPE' EVAL 'SUBSTR(1,1,LINE)'

    DO PRINT DATA '-%%LINETYPE- %%DIFFLINE'              

     EXECUTE 'END'                                              

     ON_DATA                                                    

        ALWAYS                                                  

           DO TERMINATE RESULT OK USER_CODE 00                  

     EXECUTE 'SUBSDATE'                                         

     ON_DATA                                                    

        ALWAYS                                                  

           DO SET 'RC' EVAL 'MSUBSTMASK(''DDSUBST'',SYSCURLINE)'