>>>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 [email protected] with the message: INFO IBM-MAIN
