REXX Procedure to Create a New Folder

RetCode = SysCreateObject( "WPFolder",,
                           "MyFolder",,
                           "<WP_DESKTOP>",,
                           "OBJECTID=<MYFOLDER>")

if RetCode then
   say 'Folder Object created'
else do
   say 'Error creating object'
   exit(1)
   end