If using SORT then you can use:
INREC IFTHEN=(WHEN=(4,2,CH,EQ,C' '),BUILD=(C'00',1,3,5,75)),
IFTHEN=(WHEN=(5,1,CH,EQ,C' '),BUILD=(C'0',1,4,5,75))
I only used IEHIBALL to syntax check that statement, but I think its
correct.
On Sun, Sep 14, 2014 at 9:41 PM, Shane Ginnane <[email protected]> wrote:
> >if the length is 4 or less than 4 need to append zeros to it and make it
> 5 byte length. Thanks!
>
> Like I said, trivial.
> And doesn't need compiling. And last I benchmarked, was faster anyway. But
> that was a (smallish) "one-off" on zLinux, not z/OS ...
> As a genera rule, I'd stack perl up against anything compiled for small
> stuff. But awk is damn pretty close.
>
> Each to their own.
>
> Shane ...
>
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to [email protected] with the message: INFO IBM-MAIN
>
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
