On Thu, 30 Jun 2022 20:23:16 +0000, Billy Ashton wrote:
> ...
>I would like to use SORT to generate a file ...
>
>I need this for about 3 months worth of dates. The dates should start
>either on the 15th of the month, 2 months ago, or 45 days ago (whichever
>is easier) and go up through the end of the current month (it could even
>start on the 1st day of 2 months ago if necessary). So for today (June
>30), it would have
>('D001','2022-04-15','20220415',20220415,'20','22','04','15')
>
I tried this in Rexx. I found it astonishingly hard to get "the end of the
current month".
Would DFSORT do betteer? Anyway, with no attention to formatting:
trace N
signal on novalue
Bas = date( 'Base' )
Std = date( 'Standard', Bas, 'Base' )
parse var Std YM 7 .
MBeg = date( 'Base', YM'01', 'Standard' ) /* Beginning of this month */
Nextm = date( 'Standard', MBeg + 45, 'Base' ) /* Middle of next month */
parse var Nextm Nextm 7 .
Nextm = date( 'Base', Nextm'01', 'Standard' ) /* First of next month */
Offset = Bas - 46
Do DDDD = Bas - 45 to Nextm - 1
say DDDD - Offset date( 'Standard', DDDD, 'Base' )
end DDDD
/* Not tested for December, January, or February. */
--
gil
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
