>>>1. Is there any support in JCL or in ISPF for reading member generations?
Charles, There is no JCL support for member generations, but ISPF does provide the support. Here is how you do it. 1. Allocate PDSE version 2 with maxgens defined at 20. Note your allocation will fail if your SYS1.PARMLIB(IGDSMSxx) member does not have MAXGENS_LIMIT specified) //STEP0100 EXEC PGM=IEFBR14 //AF01 DD DSN=&SYSUID..PDSE2, // DISP=(NEW,CATLG,DELETE), // UNIT=SYSDA, // SPACE=(CYL,(1,1,5)), // DSNTYPE=(LIBRARY,2),MAXGENS=20, // DCB=(LRECL=80,RECFM=FB,BLKSIZE=0) 2. Create a member in the above allocated PDS Menu Functions Confirm Utilities Help sssssssssssssssssssssssssssssssssssssssssssssssssssss DSLIST EDIT USERID.PDSE2 Command ===> s test1 Name Prompt Size Created **End** 3. Add just 1 record DSLIST USERID.PDSE2(TEST1) - 01.00 Colu Command ===> S ****** ********************************* Top of Data ****************** ==MSG> -Warning- The UNDO command is not available until you change ==MSG> your edit profile using the command RECOVERY ON. '''''' abc '''''' '''''' 4. Issue a SAVE 5. Insert another record DSLIST USERID.PDSE2(TEST1) - 01.00 Some Command ===> ****** ********************************* Top of Data *************** ==MSG> -Warning- The UNDO command is not available until you change ==MSG> your edit profile using the command RECOVERY ON. 000100 abc '''''' def 6. Issue another SAVE 7. Insert another record DSLIST USERID.PDSE2(TEST1) - 01.00 C Command ===> ****** ********************************* Top of Data *************** ==MSG> -Warning- The UNDO command is not available until you change ==MSG> your edit profile using the command RECOVERY ON. 000100 abc 000200 def '''''' ghi 8. Issue another SAVE Now you have 3 generations of the member. 9.To access the -2 version do the following (make sure you have a slash under the PROMPT column) Menu Functions Confirm Utilities Help ssssssssssssssssssssssssssssssssssssssssssssssssss DSLIST EDIT USERID.PDSE2 Command ===> Name Prompt Size Created e________ TEST1 / 3 2023/05/30 **End** In the panel prompt (put -2 for PDSE generation) field) Esssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss e Workstation Help e ssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss e DSLIST EDIT Entry Panel e More: + e Object Name: e 'USERID.PDSE2(TEST1)' e * No workstation connection e Initial Macro . . e PDSE Generation. . -2 e Line Command Table e Profile Name . . . (Blank defaults to Type) e Format Name . . . e Panel Name . . . . (Leave blank for default) e e Options Data Encoding e Confirm Cancel/Move/Replace 1. ASCII e EDIT Mixed Mode 2. UTF-8 e EDIT host file on e Workstation e Preserve VB record length e / Warn on First Data Change e Dsssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss Now you will see this ****** ********************************* Top of Data ***************** ==MSG> -Warning- The UNDO command is not available until you change ==MSG> your edit profile using the command RECOVERY ON. ==MSG> -CAUTION- Edit session has been invoked for generation 2 ==MSG> High generation number is currently 3 000001 abc Hope this helps.. Thanks, Kolusu ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN