/* CHUSERID XEDIT: change the user ID in a directory entry */
parse upper arg fn ft fm '(' options ')' userid .
'command c/USER ZVL281/USER' userid||'/ *'
'command file'