RATE THIS ANSWER
0
Click to Vote:
0
0
Hi,
You could do something like the following :-
PGM
DCLF Yourfile
RCVF: RCVF
MONMSG CPF0864 EXEC(GOTO EOF)
CHGUSRPRF USRPRF(&Yourfield) STATUS(*DISABLED)
GOTO RCVF
EOF:
ENDPGM Replace the
Yourfile with the name of your file and
Yourfield with the name of your field from your file.
Regards,
Martin Gilbert.
Last Answered:
Apr 15 2009 10:55 AM GMT by Gilly400 
23625 pts.