Re: CL: Numeric padding

[Patrik Schindler <poc@xxxxxxxxxx>]

Hello Rob,

Am 08.08.2023 um 15:13 schrieb Rob Berendt <robertowenberendt@xxxxxxxxx>:

> As much as I'd like to promote BRMS

This is way over the top for my hobbyist use.

> having meaningful tape names is long dead

Not for me. :-)

> I suspect that's not an option for your shop.  

I'm a hobbyist.

> So try this:
> DCL        VAR(&JOBDATE) TYPE(*CHAR) LEN(6)
> DCL        VAR(&YYMMDD) TYPE(*CHAR) LEN(6)
> RTVJOBA    DATE(&JOBDATE)
> CHGVAR     VAR(&YYMMDD) VALUE(%sst(&jobdate 5 2) *cat +
>             %sst(&jobdate 1 4))
> SNDMSG     MSG(&YYMMDD) TOUSR(ROB)

Thanks!

Another proposed way (privately, just arrived) is to CHGJOB JOB(*) DATFMT(*YMD) and run the retrieved job date through CVTDAT.

:wq! PoC