Yes, it does a "rebuild" of profiles - and, yes, you could create a new
profile FOO from that.
But its main purposes are: (a) to compress existing profiles; (b) to
edit them and, in this code, also to remove IBM's profile variables
whose purpose is to save the colours etc. of IBM's panel displays.
Both PROFREAD and PROFWRIT can be executed from an interactive TSO
ISPF/PDF session.
But the renaming of the profiles (e.g. from ISRPROFN to ISRPROF) should
be done in batch (and with a 'DISP=OLD' on ISPPROF + then log off to
allow the profile rename). Otherwise, the current TSO ISPF/PDF session's
copy of the profile in VS will override the updated profile saved on
DASD at logoff, and the REXX/Clist updates to the profile on DASD will
then be lost.
I would suggest you first run a PROFREAD to check your current profile
variables in "'"SYSUID'.'PROFNAME'.VARLIST'"'". Then proceed from there
(e.g. you can edit the variables in *.VARLIST).
This a rough copy of my JCL to rename profiles in batch:
'//********************************************************************* '
'//* WARNING: MAKE SURE THAT YOUR PROFILE DATASET'S VOLSER IS * '
'//* SPECIFIED CORRECTLY (BELOW), BEFORE SUBMITTING THIS JOB. * '
'//* * '
'//********************************************************************* '
'//* RENAME THE ???! PROFILE * '
'//* * '
'//* TO CLEAN OUT + REFRESH THE ???! PROFILE, DO AS FOLLOWS: * '
'//* - INVOKE CLIST (PROFREAD) WITH NAME OF PROFILE TO BE DUMPED TO * '
'//* <USERID>.<PROFILE NAME>.VARLIST * '
'//* - INVOKE CLIST (PROFWRIT) WITH NAME OF PROFILE DUMPED TO * '
'//* <USERID>.ISPF.ISPPROF AND NEW APPLICATION NAME TO BE * '
'//* CREATED IN <USERID>.ISPF.ISPPROF: NOTE THAT ANY EXISTING * '
'//* PROFILE OF THAT NAME WILL BE DELETED FROM <USERID>.ISPF.ISPPROF * '
'//* - CHANGE ALL ?????? TO THE VOLSER OF THE PROFILE DATASET, * '
'//* &SYSUID..ISPF.ISPPROF. * '
'//* - CHANGE ALL ??? TO THE FIRST 3 CHARS OF THE PROFILE TO BE * '
'//* RENAMED (E.G. ISR). * '
'//* - CHANGE ALL ! TO THE LAST CHAR OF THE PROFILE TO BE RENAMED * '
'//* (E.G. '' IF NO 4TH CHAR). * '
'//* - CHANGE ALL &SYSUID. TO YOUR USERID. * '
'//* - SUBMIT THIS JOB TO RENAME THE CURRENT PROFILE TO 'OLD' AND THE * '
'//* NEW PROFILE TO 'CURRENT'. * '
'//* - -> CANCEL <- THE CHANGES TO THIS JOB MEMBER (PROFREN). * '
'//* - LOGOFF TO ALLOW THE JOB TO COMPLETE. * '
'//* - LOGON AGAIN: THE PROFILE SHOULD HAVE BEEN UPDATED OK (WE HOPE) * '
'//* * '
'//* * '
'//* 08/08/96 CMP * '
'//********************************************************************* '
'//* '
'//COMPRESS EXEC PGM=IEBCOPY '
'//SYSPRINT DD SYSOUT=* '
'//SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(35,2)) '
'//SYSUT4 DD UNIT=SYSDA,SPACE=(CYL,(35,2)) '
'//I1 DD DISP=OLD,DSN=&SYSUID..ISPF.ISPPROF '
'//SYSIN DD * '
' C I=I1,O=I1 '
'//* '
'//RENAME EXEC PGM=IEHPROGM '
'//SYSPRINT DD SYSOUT=* '
'//DISK1 DD DISP=SHR,UNIT=3390,VOL=SER=?????? '
'//ENQ DD DISP=OLD,DSN=&SYSUID..ISPF.ISPPROF '
'//SYSIN DD * '
'???OPROF SCRATCH DSNAME=&SYSUID..ISPF.ISPPROF,VOL=3390=??????, X'
' MEMBER=???OPROF '
'???!PROF RENAME DSNAME=&SYSUID..ISPF.ISPPROF,VOL=3390=??????, X'
' MEMBER=???!PROF,NEWNAME=???OPROF '
'???NPROF RENAME DSNAME=&SYSUID..ISPF.ISPPROF,VOL=3390=??????, X'
' MEMBER=???NPROF,NEWNAME=???!PROF '
'/* '
'//* '
'//
'
Charles Mills wrote:
Wow! Thanks!
I "get" that this is primarily a "re-build" -- a "re-organize" for error
recovery. Would this, or a modest variant of this, let you create a new language profile? PROFILE FOO, for
editing FOO datasets?
Charles
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf
Of CM Poncelet
Sent: Friday, July 08, 2016 11:36 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: ISPF Profile basic question
To read an ISPF profile, REXX PROFREAD:
/*-------------------------------------------------------------------*/
/* THIS THING READS A PROFILE POOL AS A TABLE AND EXTRACTS/DISPLAYS */
/* ALL THE EXTENSION VARIABLES IN THAT POOL - I.E. ALL THE VARIABLES */
<major snip!>
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
