JSMLR11 LANSA JSON Type Information

 

FUNCTION   OPTIONS(*DIRECT)

CHANGE     FIELD(#BNDGCDE) TO('''00002''')

EXCHANGE   FIELDS(#BNDGCDE)

CALL       PROCESS(*DIRECT) FUNCTION(JSMLR0B)