View Source

現在のソリューションには、開始日 (Start Date) の列の書式が設定されないという問題があります。開始日は、符号付きの数値で 6 桁の長さのフィールドになっています。このステップでは、開始日の列を日付タイプのフィールドに変換して、作業リストに含めます。その後、Excel の開始日列の書式も日付セルとして設定することができます。

ファイルから STARTDTER を読み込んで変換し、作業リストには日付の作業フィールドを含めます。読み込むフィールドの GROUP_BY を挿入して、SELECT コマンドでこれを使用するようファンクションを変更します。コードは以下のようになります。

GROUP_BY NAME(#EMP_GRP) FIELDS(#empno #givename #surname #startdter #phonehme #salary)
.....
SELECT FIELDS(#EMP_GRP) FROM_FILE(pslmst1) WITH_KEY(#deptment #section) NBR_KEYS(*compute)
作業リストで、フィールド STARTDTER を STD_DATEX で置き換えます。
SELECT ループ内で、以下の操作を行うロジックを追加します。

STARTDTER が日付 (YYMMDD形式) かどうかを確認する。
日付 (YYMMDD形式) の場合、STARTDTER をフィールド STD_DATEX に変換する。
日付(YYMMDD形式) ではない場合、STD_DATEX を *SQLNULL に設定する。

コードは以下のようになります。

CLR_LIST NAMED(#employs)
SELECT FIELDS(#EMP_GRP) FROM_FILE(pslmst1) WITH_KEY(#deptment #section) NBR_KEYS(*compute)
IF (#STARTDTER.IsDate( YYMMDD ))
#Std_Datex := #STARTDTER.AsDate( YYMMDD )
ELSE
#Std_Datex := *SQLNULL
ENDIF
ADD_ENTRY TO_LIST(#employs)
ENDSELECT
EMPLOYS の DEF_LIST コマンドを変更し、フィールド LISTCOUNT を使ったカウンターを入れます。コードは以下のようになります。

Def_List Name(#employs) Fields(#empno #givename #surname #STD_DATEX #PHONEHME #salary) Counter(#listcount) Type(*working) Entrys(*max)
開始日列の書式を日付として設定する ADD コマンドを追加します。コードは以下のようになります。

＊開始日列をフォーマットする
#std_num := #listcount + 3
#jsmxcmd := 'ADD OBJECT(*CELLSTYLE) COLUMN(5) RANGE(5,' + #std_num.asstring + ') TYPE(*DATE) FORMAT(*FORMAT2)'
Use Builtin(jsmx_command) With_Args(#jsmxhdle1 #jsmxcmd) To_Get(#jsmsts #jsmmsg)
Execute Subroutine(CHECK_STS) With_Parms(#JSMXHDLE1)

ここでも、ADD コマンドが ExcelService の WRITE コマンドの前にあることを確認してください。
Excel でドキュメントを開くと、給与列の幅を調整する必要があることが分かります。これは、複数の給与のサイズがあるためです (1,234,456.50など)。この幅を設定するには、SET コマンドで OBJECT(*COLUMNWIDTH) を使用してください。コードは以下のようになります。

＊列幅の設定 - 給与
#jsmxcmd := 'SET OBJECT(*COLUMNWIDTH) RANGE(7) WIDTH(3260)'
USE BUILTIN(jsmx_command) WITH_ARGS(#jsmxhdle1 #jsmxcmd) TO_GET(#jsmsts #jsmmsg)
EXECUTE SUBROUTINE(CHECK_STS) With_Parms(#JSMXHDLE1)
ファンクション iiiFN13 を再コンパイルして再度テストします。ドキュメントは以下のようになります。