IEB option (BMP) with Rexx
The following command produces incorrect result:
Code: Select all
FILERC = VIEWIMS('TPLDSN=DBA2.RP.TEMPLATE')
FMRC = ISRTIMS('SEGMENT=ZPODRIVP',
'SET #DRIVER_LICENCE_NUM=5468864',
' #MARITAL_STATUS=S',
' #PRINCPL_DRIVER_LICENCE_NUM=5468864',
' #VEH_PRNCPL_OPR_NME=NORTHWOOD',
' #PODL_EFF_DTE=16695',
'WHERE SEGMENT=ZPOBASEP #POLYNUM=DCV145F')
2nd and 4th fields are character (AN), 1 byte and 27 bytes respectively.
5th field is 2 bytes binary.
The resulting segment, which is inserted properly, contains zeros in fields 1 and 3, blanks in fileds 2 and 4 and the correct value in field 5.
Presentation here is with values as constants, for clarity. I've tried using variables, with and without surrounding quotes. Result is always the same. Only the binary field is set properly.
Any suggestions?