JSMLR11 LANSA JSONタイプ情報
FUNCTION OPTIONS(*DIRECT)
CHANGE FIELD(#BNDGCDE) TO('''00002''')
EXCHANGE FIELDS(#BNDGCDE)
CALL PROCESS(*DIRECT) FUNCTION(JSMLR0B)
JSMLR11 LANSA JSONタイプ情報
FUNCTION OPTIONS(*DIRECT)
CHANGE FIELD(#BNDGCDE) TO('''00002''')
EXCHANGE FIELDS(#BNDGCDE)
CALL PROCESS(*DIRECT) FUNCTION(JSMLR0B)