Hitachi

SEWB+/標準サブルーチン ライブラリリファレンス


LXRPID56 年月変換(西暦→和暦)編集

サブルーチンID

機能分類

サブルーチン名

テーブル名

LXRPID56

日付処理

年月変換(西暦→和暦)編集

LXRCID56

〈このページの構成〉

インタフェース

入力(区分:INPUT-PARM=I,CONSTANT=C)

レベル

項目名

属性

説明および設定値

区分

03

I-YM

年月(西暦)

I

05

I-YY

9(4)

I

05

I-MM

9(2)

I

03

I-TYP

X(1)

タイプ

OT

03

I-FORMAT

X(100)

フォーマット

C

出力(区分:OUTPUT-PARM=O,RTN-CODE=R)

レベル

項目名

属性

説明および設定値

区分

03

O-YMWA

X(100)

年月(和暦)

O

03

O-RTN-CD

X(10)

リターンコード

R

SPACE:正常終了

LXRED017:年月が数値でない

処理基準

  1. (年月変換(西暦→和暦):LXRPID57)を呼び,和暦年月に変換する。

    1.2 年月の編集を,(年月(和暦)編集:LXRPID55)を用いて次の順で行う。

    No.

    置換処理

    1

    2

    3

    4

    5

    6

    7

    8

    9

    10

    11

    NN

    YY

    ZY

    MM

    ZM

    N

    YY

    ZY

    MM

    ZM

    年号を全角変換

    年号上一桁を全角変換

    年を全角変換

    年をZ9編集,全角変換

    月を全角変換

    月をZ9編集,全角変換

    年号コード

    年をZ9編集

    月をZ9編集

例1

 I-YM    :199204
 I-FORMAT:'「NNYY年MM月」'
 I-TYP   :'N'
 ↓
 O-YMWA  :'平成04年04月'
 O-RTN-CD:SPACE

例2

 I-YM    :199204
 I-FORMAT:'NYY-MM'
 I-TYP   :'N'
 ↓
 O-YMWA  :'」H04-04'
 O-RTN-CD:SPACE
 
 (注)例はVOS3版の場合で,
    '「':X'0A42',
    '」':X'0A41'とする

注意事項

  1. リターンコードは,(年月変換(西暦→和暦):LXRPID57)のリターンコードを返す。

  2. このサブルーチンから(年月(和暦)編集:LXRPID55),(年月変換(西暦→和暦):LXRPID57)を呼び出す。

  3. 機能キャラクタ編集については,(年月(和暦)編集:LXRPID55)に準ずる。

  4. I-FORMATの中で「日」項目(DDZDDDZDなど)を指定した場合,01をそれぞれの形式に編集し,置換する。

  5. 年号情報を設定変更した場合の動作の変更点については,「3.4.31 LXRPID56 (年月変換(西暦→和暦)編集)」を参照のこと。