FUNIX      UF   F 1000        SPECIAL PGMNAME('UNIXCMD')
F                                     PLIST(UNIXPARM) USROPN
Drecord           ds          1000

C     UNIXPARM      PLIST
C                   parm                    CMD
C * then set the CMD without the 'QSH' part
C * because UNIXCMD does that for you
C * and then...

/Free
       open UNIX;

       read UNIX record;


       dsply  ('ret=' + record);

       close UNIX;
/End-free