如何在RPGLE中获取当年第一个月的第一天

在RPGLE中，可以使用以下代码来获取当年第一个月的第一天：

dcl-s currentDate date;
dcl-s firstDayOfMonth date;

currentDate = %date();
firstDayOfMonth = %date(%char(currentDate: 'yyyy') + '-01-01');

// 输出当年第一个月的第一天
dsply %char(firstDayOfMonth: *iso);

上述代码中，首先声明了两个日期变量currentDate和firstDayOfMonth，分别用于存储当前日期和当年第一个月的第一天。

然后，通过%date()函数获取当前日期，并将其赋值给currentDate变量。

接下来，使用%char()函数将currentDate的年份部分提取出来，并与'-01-01'拼接成一个完整的日期字符串。然后，再通过%date()函数将该字符串转换为日期类型，并将结果赋值给firstDayOfMonth变量。

最后，使用dsply指令将firstDayOfMonth以ISO格式显示出来。

这样，就可以在RPGLE中获取当年第一个月的第一天了。

请注意，以上代码仅适用于RPGLE语言，其他编程语言的实现方式可能会有所不同。