/* rexx */ /* */ /* AUTHOR: MARK ZELDEN */ /* */ /*****************************/ /* swap pfkeys 1 thru 12 */ /* with pfkeys 13 thru 24 */ /*****************************/ say 'SWAPPING PFKEYS 1-12 WITH PFKEYS 13-24' call read_keys call swap_keys call write_keys say ' ' say 'SWAPPING COMPLETE!' read_keys: do i= 1 to 24 i = right(i,2,'0') "ISPEXEC VGET ZPF"||i||" PROFILE" end return swap_keys: TPF.1 = ZPF13 TPF.2 = ZPF14 TPF.3 = ZPF15 TPF.4 = ZPF16 TPF.5 = ZPF17 TPF.6 = ZPF18 TPF.7 = ZPF19 TPF.8 = ZPF20 TPF.9 = ZPF21 TPF.10 = ZPF22 TPF.11 = ZPF23 TPF.12 = ZPF24 TPF.13 = ZPF01 TPF.14 = ZPF02 TPF.15 = ZPF03 TPF.16 = ZPF04 TPF.17 = ZPF05 TPF.18 = ZPF06 TPF.19 = ZPF07 TPF.20 = ZPF08 TPF.21 = ZPF09 TPF.22 = ZPF10 TPF.23 = ZPF11 TPF.24 = ZPF12 ZPF01 = TPF.1 ZPF02 = TPF.2 ZPF03 = TPF.3 ZPF04 = TPF.4 ZPF05 = TPF.5 ZPF06 = TPF.6 ZPF07 = TPF.7 ZPF08 = TPF.8 ZPF09 = TPF.9 ZPF10 = TPF.10 ZPF11 = TPF.11 ZPF12 = TPF.12 ZPF13 = TPF.13 ZPF14 = TPF.14 ZPF15 = TPF.15 ZPF16 = TPF.16 ZPF17 = TPF.17 ZPF18 = TPF.18 ZPF19 = TPF.19 ZPF20 = TPF.20 ZPF21 = TPF.21 ZPF22 = TPF.22 ZPF23 = TPF.23 ZPF24 = TPF.24 return write_keys: do i= 1 to 24 i = right(i,2,'0') "ISPEXEC VPUT ZPF"||i||" PROFILE" end return