Previous Topic

Next Topic

Book Contents

Book Index

JCL for Running the Test

//STEP01   EXEC CONTROLB,RULE=EURO01,GROUP=INTRAC         

//DDBEFORE  DD DISP=SHR,DSN=N14.LIB.REPORT(EURO01#1)      

//DD#AFTER  DD DISP=SHR,DSN=N14.LIB.REPORT(EURO01#2)      

//DDSUBST   DD *                                          

SUBSTFROM 'DIVIDEND' SUBSTTO 'DIVIDEND   EURO' EOS                   

SUBSTFROM 'PAID ($)' SUBSTTO 'PAID ($)   AMOUNT' EOS                 

SUBSTFROM '==========    ===========     ========'                   

SUBSTTO   '==========    ===========     ========   ======'   EOS    

SUBSTFROM '??/??/????  ??????.??     ??????.??      ?????.??'        

SUBSTTO   '??/??/????  %DLR=(??????.??)    ??????.??     ?????.??   %EUR=(ZZZZZZ.ZZ)'

EOS  

Parent Topic

Euro Validation Rule Example