SUBFILE VALIDATIONS
Invalid
Options in Subfile
If ProgramRRN > 0
READC SUBFILE
DOW NOT%EOF(Display File)
Eval ErrorMessage = ‘Error’
Reverse Image, Position Cursor = ‘ON’
SFLNXTCHG = ON
Update SUBFILE
SFLNXTCHG = OFF
READC SUBFILE
ENDDO
EndIf
Valid
Options in Subfile
READC SUBFILE
DOW NOT%EOF(Display File)
*****
*****
READC SUBFILE
ENDDO
(Do not make SFLNXTCHG = ON and update subfile here, since we
are going to process subfile options)
F4 Prompt In
Subfiles
Use keyword RTNCSRLOC to use F4 as below:
A
RTNCSRLOC(&@RCD1 &@FLD1 &@POS1)
A @RCD1 10A
H
A @FLD1 10A
H
A @POS1 4S 0H
Use field “FLD1” to check for
Field where F4 is taken.
No comments