/* REXX
 |
 | Name: NEWPROF
 |
 | Author: David Alcock - davea@ticnet.com
 |
 | Purpose:  Allocate new ISPF profile for version 4
 |           and copy old profile members from version 3 using
 |           the COPYPROF Rexx exec utility
 |
 | Note: Untested - this version created for internet distribution.
 */

address TSO                            /* Default env */
userid  = sysvar(sysuid)               /* Get userid for later */
profvol = "TSO004"                     /* Volume for profile file */
profunit = "SYSDA"                     /* Unit name */

old_prof = "'"userid".CLIST'"         /* ISPF v3 profiles are here */
new_prof = "'"userid".ISPF.PROFILE'"  /* new ISPF v4 profile lib */

x = sysdsn(new_prof)
if x <> "OK" then do
   say "Allocating ISPF profile dataset for Version 4"
   "ALLOCATE FILE(NEWPROF) DATASET("new_prof") NEW REUSE ",
   "UNIT("profunit") VOLUME("profvol") RECFM(F B) ",
   "TRACKS SPACE(15 5) DIR(24) LRECL(80) BLKSIZE(8800)"

   y = sysdsn(old_prof)
   if y == "OK" then "%COPYPROF "old_prof new_prof

   end