FSTDLENPF O E K DISK
*
C *Entry Plist
C Parm WsFld1 75
C Parm WsFld2 75
C Parm WsFld3 75
*
C MOVEL WSFLD1 VRFLD1
C MOVEL WSFLD2 VRFLD2
C MOVEL WSFLD3 VRFLD3
C WRITE VR00RC
C SETON LR
C RETURN