I hope I am just missing something. I am trying to recognize a fld in the dds using the mouse (*ULD). The problem I am having is that any zero suppression - makes only the hidden zeros available for the mouse to recognize. If I leave it un-edited all 3 positions are clickable. I have done this before with dds that has information coded as EDTCDE(Z) and the whole item is recognized, even the blanks.
I get this message when I click on the field but not on a hidden leading zero.
Message . . . . : Function key not allowed.
Cause . . . . . : The function key that was used is not correct at this time or was not defined.
Recovery . . . : The correct function keys are defined in the display device file.
This is how I have the code currently:
A R SUBFILE SFL
A EMW_EMPIDOR H REFFLD(IDO)
A NAME 27A O 7 4
A PHONE 3Y 0O 7 33
A R SUBCTL SFLCTL(SUBFILE)
A SFLSIZ(0300)
A SFLPAG(0016)
A RTNCSRLOC(&RCD &FLD &POS)
A OVERLAY
A SFLCSRRRN(&RRN)
A 41 SFLDSP
A 42 SFLDSPCTL
A N41N42N43 SFLINZ
A 43 SFLCLR
A 44 SFLEND(*SCRBAR *MORE)
A MOUBTN(*ULD E00)
A FLD 10A H
A RCD 10A H
A POS 4S 0H
A RRN 5S 0H
I appreciate any help.
I get this message when I click on the field but not on a hidden leading zero.
Message . . . . : Function key not allowed.
Cause . . . . . : The function key that was used is not correct at this time or was not defined.
Recovery . . . : The correct function keys are defined in the display device file.
This is how I have the code currently:
A R SUBFILE SFL
A EMW_EMPIDOR H REFFLD(IDO)
A NAME 27A O 7 4
A PHONE 3Y 0O 7 33
A R SUBCTL SFLCTL(SUBFILE)
A SFLSIZ(0300)
A SFLPAG(0016)
A RTNCSRLOC(&RCD &FLD &POS)
A OVERLAY
A SFLCSRRRN(&RRN)
A 41 SFLDSP
A 42 SFLDSPCTL
A N41N42N43 SFLINZ
A 43 SFLCLR
A 44 SFLEND(*SCRBAR *MORE)
A MOUBTN(*ULD E00)
A FLD 10A H
A RCD 10A H
A POS 4S 0H
A RRN 5S 0H
I appreciate any help.