/* This procedure will change the long name of   */
/* a file without changing the actual file name. */
/* Useage:                                       */
/*    PUTLONG myfil.ext "Long File Name"         */
/* Written by Bill Parrill                       */
/* bparrill@vnet.ibm.com                         */

call RxFuncAdd 'SysPutEA', 'RexxUtil', 'SysPutEA'

parse arg FileName '"'LongName'"'

if FileName = '' then DO
   say 'Please specify a file name!'
   exit 1
   end  /* Do */

if LongName = '' then DO
   say 'Please specify a long name!'
   exit 2
   end  /* Do */

say 'File Name: 'FileName
say 'Long Name: 'LongName
RetCode = SysPutEA(FileName, '.LONGNAME',,
                   'FDFF'x||D2C(LENGTH(LongName))||'00'x||LongName)
say 'Return Code: 'RetCode

EXIT