This is a part of declaring variable
gbdat(8) TYPE c VALUE 'Birth Dt',
gbdat(10) TYPE c VALUE 'Birth Dt'
Coordination
MOVE otab-gbdat+6(2) TO o_dsn-gbdat+0(2).
o_dsn-gbdat+2(1) = '/'.
MOVE otab-gbdat+4(2) TO o_dsn-gbdat+3(2).
o_dsn-gbdat+5(1) = '/'.
MOVE otab-gbdat+0(4) TO o_dsn-gbdat+6(4).
This to make sure the data given out is like 31/12/9999
gbdat(8) TYPE c VALUE 'Birth Dt',
gbdat(10) TYPE c VALUE 'Birth Dt'
Coordination
MOVE otab-gbdat+6(2) TO o_dsn-gbdat+0(2).
o_dsn-gbdat+2(1) = '/'.
MOVE otab-gbdat+4(2) TO o_dsn-gbdat+3(2).
o_dsn-gbdat+5(1) = '/'.
MOVE otab-gbdat+0(4) TO o_dsn-gbdat+6(4).
This to make sure the data given out is like 31/12/9999
No comments:
Post a Comment