zOs/SQL/CATCOPFF

$£ timing() 'be'
$;
$<~wk.texv(syscopy)
$@{
    x = 0
    $@for v $@{
        x = x + 1
        v = $v
        if x // 10000 = 0 then
            say x 'db' substr(v, 1, 8) 'ts' substr(v, 9, 8) ,
                  'pa' c2d(substr(v, 17, 4))
        $}
$}
$;
$£ timing() 'en' x
$***out            20080313 15:34:41
$***out            20080313 15:32:27
$***out