View previous topic :: View next topic
|
Author |
Message |
vch
New User
Joined: 01 Feb 2008 Posts: 22 Location: chennai
|
|
|
|
Hi,
how to create alternate index for ESDS..?
what is the difference between QSAM and ESDS?? |
|
Back to top |
|
|
Gnanas N
Active Member
Joined: 06 Sep 2007 Posts: 792 Location: Chennai, India
|
|
|
|
I think of these.
Sequential(QSAM) files can be created on tape while ESDS files cannot.
Also, you can have ALTINDEX for an ESDS while no such facility exists for QSAM files.
You can this for creating alternate index.
Code: |
DEFINE ALTERNATEINDEX .... |
|
|
Back to top |
|
|
dbzTHEdinosauer
Global Moderator
Joined: 20 Oct 2006 Posts: 6966 Location: porcelain throne
|
|
|
|
gnanas,
what would be the key? how would you define it? |
|
Back to top |
|
|
Gnanas N
Active Member
Joined: 06 Sep 2007 Posts: 792 Location: Chennai, India
|
|
|
|
Dick,
Alternate Index Key Type for ESDS may be either Unique key or
Nonunique key
Please correct me if I am worng. |
|
Back to top |
|
|
vch
New User
Joined: 01 Feb 2008 Posts: 22 Location: chennai
|
|
|
|
ganas,
how to define alternate index for ESDS? can you give me full syntax for taht? |
|
Back to top |
|
|
Gnanas N
Active Member
Joined: 06 Sep 2007 Posts: 792 Location: Chennai, India
|
|
Back to top |
|
|
Marso
REXX Moderator
Joined: 13 Mar 2006 Posts: 1353 Location: Israel
|
|
|
|
vch wrote: |
Hi,
how to create alternate index for ESDS..? |
An alternate index ??? I'm quite sure you can't even have a primary index on ESDS files... |
|
Back to top |
|
|
Anuj Dhawan
Superior Member
Joined: 22 Apr 2006 Posts: 6248 Location: Mumbai, India
|
|
|
|
Hi,
It seems relevant to have a definition of ESDS here:
Quote: |
A VSAM file whose records are loaded without respect to their contents, and whose relative byte addresses (RBAs) cannot change. Records are retrieved and stored by addressed access, and new records are added at the end of the file. |
And from Your link gnanas
Quote: |
The NONINDEXED keyword causes an ESDS to be defined. |
I hope you got the pointer why there are disagreement about Your post. And yes RBA is not INDEX. |
|
Back to top |
|
|
Anuj Dhawan
Superior Member
Joined: 22 Apr 2006 Posts: 6248 Location: Mumbai, India
|
|
|
|
Hi,
A little more, sometimes I'm not satisfied of myself and keep pouring in..
An ESDS is essentially a sequential dataset where new records are always inserted at the end. You cannot access records directly with a key. However, you may access specific records with a relative byte address (RBA), if you have or can calculate it. In fact, it's fairly common to see CICS application use an ESDS as a log file to write records in sequential order while retrieving the new record's RBA from the RIDFLD operand of the EXEC CICS WRITE command. If the application squirrels away the RBA it can later retrieve the log record directly. Also note that you cannot physically delete a record from an ESDS. Instead, most applications utilize a "logical delete" scheme where a field in the ESDS record is set to a value indicating the record is no longer valid. |
|
Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10888 Location: italy
|
|
|
|
/ generic invitation on
please please review your vsam
From the manual
Quote: |
RELATE(entryname)
names the alternate index's base cluster. The base cluster is an entry-sequenced cluster or a key-sequenced cluster to which the alternate index is to be related. You cannot relate an alternate index to a reusable cluster, to a relative record cluster, or to a VVDS (data set name 'SYS1.VVDS.Vvolser'). An SMS-managed alternate index has the same management class and storage class as its base cluster. |
|
|
Back to top |
|
|
the_gautam
Active User
Joined: 05 Jun 2005 Posts: 165 Location: Bangalore
|
|
|
|
here is a sample JCL to create the altenate Index on an ESDS.
Code: |
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE AIX(NAME(A.B.C.AIX)-
RELATE(A.B.C)-
VOLUMES()-
TRK()-
KEYS()-
RECORDSIZE()-
FREESPACE()-
CISZ()-
UNIQUEKEY-
UPGRADE)
/*
|
|
|
Back to top |
|
|
dbzTHEdinosauer
Global Moderator
Joined: 20 Oct 2006 Posts: 6966 Location: porcelain throne
|
|
|
|
that is what I like about this forum: reality or truth does not matter; each will continue to prattle-on showing how much he/she knows, when in reality, few can read, much less give a good answer. |
|
Back to top |
|
|
Anuj Dhawan
Superior Member
Joined: 22 Apr 2006 Posts: 6248 Location: Mumbai, India
|
|
|
|
Hi,
Not sure if I'm also a victim here in this thread, if any how yes, please put your comments in, so that I can learn something new. |
|
Back to top |
|
|
dbzTHEdinosauer
Global Moderator
Joined: 20 Oct 2006 Posts: 6966 Location: porcelain throne
|
|
|
|
Anuj D.,
The only Victims in this thread are those (like yourself) who continue to post meaningful and correct information.
It has only been stated 3 times (by different individuals) that an ESDS dataset does not have 'ALTERNATE' nor 'PRIMARY' index. But, others continue to post 'JCL' to create that which is not 'creatable'.
But that is why these threads are so long. Few people bother to read, they are too busy posting. |
|
Back to top |
|
|
vch
New User
Joined: 01 Feb 2008 Posts: 22 Location: chennai
|
|
|
|
Thanks alot for all your responses..
I created an alternate index to an ESDS file successfully.
so it is confirmed that we can create an ESDS to an ESDS file. |
|
Back to top |
|
|
vch
New User
Joined: 01 Feb 2008 Posts: 22 Location: chennai
|
|
|
|
so it is confirmed that we can create an AIX to an ESDS file |
|
Back to top |
|
|
dbzTHEdinosauer
Global Moderator
Joined: 20 Oct 2006 Posts: 6966 Location: porcelain throne
|
|
|
|
just as soon as you have tested it and can prove that it works! |
|
Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10888 Location: italy
|
|
|
|
here is the jcl tested and working
Code: |
000001 //ENRICO@A JOB (H001),'ZESDS1',NOTIFY=ENRICO,
000002 // CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1)
000003 //* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
000004 //* DSN=ENRICO.MF.JCLLIB(ZESDS1)
000005 //* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
000006 // JCLLIB ORDER=(ENRICO.MF.JCLLIB)
000007 //* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
000008 //*
000009 //AMS EXEC PGM=IDCAMS
000010 //SYSPRINT DD SYSOUT=*
000011 //ESDSDATA DD *
000012 9999999999
000013 7777777777
000014 5555555555
000015 3333333333
000016 1111111111
000017 8888888888
000018 6666666666
000019 4444444444
000020 2222222222
000021 0000000000
000022 //*
000023 //SYSIN DD *
000024 DELETE (ENRICO.MF.ESDS.CL) CLUSTER PURGE
000025 SET LASTCC=0
000026 SET MAXCC=0
000027
000028 DEFINE CLUSTER( -
000029 NAME(ENRICO.MF.ESDS.CL) -
000030 NONINDEXED SHR(2 3) CYL(2 2) VOL(H29CAT) ) -
000031 DATA( -
000032 RECSZ(80 80) CISZ(4096) FREESPACE(0 0) )
000033
000034 IF MAXCC = 0 THEN -
000035 REPRO INFILE(ESDSDATA) OUTDATASET(ENRICO.MF.ESDS.CL)
000036
000037 IF MAXCC = 0 THEN -
000038 PRINT INDATASET(ENRICO.MF.ESDS.CL)
000039
000040 IF MAXCC = 0 THEN -
000041 DO
000042 DEFINE AIX( -
000043 NAME(ENRICO.MF.ESDS.AIX) -
000044 RELATE(ENRICO.MF.ESDS.CL) -
000045 KEYS(10 0) UNIQUEKEY -
000046 SHR(2 3) CYL(2 2) VOL(H29CAT) ) -
000047 DATA( -
000048 RECSZ(10 2048) CISZ(4096) FREESPACE(0 0) )
000049 END
000050
000051 IF MAXCC = 0 THEN -
000052 DO
000053 BLDINDEX INDATASET(ENRICO.MF.ESDS.CL) -
000054 OUTDATASET(ENRICO.MF.ESDS.AIX)
000055 END
000056
000057 IF MAXCC = 0 THEN -
000058 DO
000059 DEFINE PATH( -
000060 NAME(ENRICO.MF.ESDS.PATH) -
000061 PATHENTRY(ENRICO.MF.ESDS.AIX) )
000062 END
000063
000064 IF MAXCC = 0 THEN -
000065 PRINT INDATASET(ENRICO.MF.ESDS.PATH)
|
here is the idcams sysout
Code: |
IDCAMS SYSTEM SERVICES TIME: 13:11:21
DELETE (ENRICO.MF.ESDS.CL) CLUSTER PURGE
IDC0550I ENTRY (D) ENRICO.MF.ESDS.AIX.DATA DELETED
IDC0550I ENTRY (I) ENRICO.MF.ESDS.AIX.INDEX DELETED
IDC0550I ENTRY (G) ENRICO.MF.ESDS.AIX DELETED
IDC0550I ENTRY (D) ENRICO.MF.ESDS.CL.DATA DELETED
IDC0550I ENTRY (C) ENRICO.MF.ESDS.CL DELETED
IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 0
SET LASTCC=0
SET MAXCC=0
DEFINE CLUSTER( -
NAME(ENRICO.MF.ESDS.CL) -
NONINDEXED SHR(2 3) CYL(2 2) VOL(H29CAT) ) -
DATA( -
RECSZ(80 80) CISZ(4096) FREESPACE(0 0) )
IDC0508I DATA ALLOCATION STATUS FOR VOLUME H29CAT IS 0
IDC0512I NAME GENERATED-(D) ENRICO.MF.ESDS.CL.DATA
IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 0
IF MAXCC = 0 THEN -
REPRO INFILE(ESDSDATA) OUTDATASET(ENRICO.MF.ESDS.CL)
IDC0005I NUMBER OF RECORDS PROCESSED WAS 10
IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 0
IF MAXCC = 0 THEN -
PRINT INDATASET(ENRICO.MF.ESDS.CL)
IDCAMS SYSTEM SERVICES TIME: 13:11:21
LISTING OF DATA SET -ENRICO.MF.ESDS.CL
RBA OF RECORD - 0
000000 F9F9F9F9 F9F9F9F9 F9F94040 40404040 40404040 40404040 40404040 4040404
000020 40404040 40404040 40404040 40404040 40404040 40404040 40404040 4040404
000040 40404040 40404040 40404040 40404040
RBA OF RECORD - 80
000000 F7F7F7F7 F7F7F7F7 F7F74040 40404040 40404040 40404040 40404040 4040404
000020 40404040 40404040 40404040 40404040 40404040 40404040 40404040 4040404
000040 40404040 40404040 40404040 40404040
RBA OF RECORD - 160
000000 F5F5F5F5 F5F5F5F5 F5F54040 40404040 40404040 40404040 40404040 4040404
000020 40404040 40404040 40404040 40404040 40404040 40404040 40404040 4040404
000040 40404040 40404040 40404040 40404040
RBA OF RECORD - 240
000000 F3F3F3F3 F3F3F3F3 F3F34040 40404040 40404040 40404040 40404040 4040404
000020 40404040 40404040 40404040 40404040 40404040 40404040 40404040 4040404
000040 40404040 40404040 40404040 40404040
RBA OF RECORD - 320
000000 F1F1F1F1 F1F1F1F1 F1F14040 40404040 40404040 40404040 40404040 4040404
000020 40404040 40404040 40404040 40404040 40404040 40404040 40404040 4040404
000040 40404040 40404040 40404040 40404040
RBA OF RECORD - 400
000000 F8F8F8F8 F8F8F8F8 F8F84040 40404040 40404040 40404040 40404040 4040404
000020 40404040 40404040 40404040 40404040 40404040 40404040 40404040 4040404
000040 40404040 40404040 40404040 40404040
RBA OF RECORD - 480
000000 F6F6F6F6 F6F6F6F6 F6F64040 40404040 40404040 40404040 40404040 4040404
000020 40404040 40404040 40404040 40404040 40404040 40404040 40404040 4040404
000040 40404040 40404040 40404040 40404040
RBA OF RECORD - 560
000000 F4F4F4F4 F4F4F4F4 F4F44040 40404040 40404040 40404040 40404040 4040404
000020 40404040 40404040 40404040 40404040 40404040 40404040 40404040 4040404
000040 40404040 40404040 40404040 40404040
IDCAMS SYSTEM SERVICES TIME: 13:11:21
LISTING OF DATA SET -ENRICO.MF.ESDS.CL
RBA OF RECORD - 640
000000 F2F2F2F2 F2F2F2F2 F2F24040 40404040 40404040 40404040 40404040 4040404
000020 40404040 40404040 40404040 40404040 40404040 40404040 40404040 4040404
000040 40404040 40404040 40404040 40404040
RBA OF RECORD - 720
000000 F0F0F0F0 F0F0F0F0 F0F04040 40404040 40404040 40404040 40404040 4040404
000020 40404040 40404040 40404040 40404040 40404040 40404040 40404040 4040404
000040 40404040 40404040 40404040 40404040
IDC0005I NUMBER OF RECORDS PROCESSED WAS 10
IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 0
IDCAMS SYSTEM SERVICES TIME: 13:11:21
IF MAXCC = 0 THEN -
DO
DEFINE AIX( -
NAME(ENRICO.MF.ESDS.AIX) -
RELATE(ENRICO.MF.ESDS.CL) -
KEYS(10 0) UNIQUEKEY -
SHR(2 3) CYL(2 2) VOL(H29CAT) ) -
DATA( -
RECSZ(10 2048) CISZ(4096) FREESPACE(0 0) )
IDC0508I DATA ALLOCATION STATUS FOR VOLUME H29CAT IS 0
IDC0509I INDEX ALLOCATION STATUS FOR VOLUME H29CAT IS 0
IDC0512I NAME GENERATED-(D) ENRICO.MF.ESDS.AIX.DATA
IDC0512I NAME GENERATED-(I) ENRICO.MF.ESDS.AIX.INDEX
IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 0
END
IF MAXCC = 0 THEN -
DO
BLDINDEX INDATASET(ENRICO.MF.ESDS.CL) -
OUTDATASET(ENRICO.MF.ESDS.AIX)
IDC31802I LOAD OF MODULE 'ICEBLDX' WAS UNSUCCESSFUL - ABEND CODE IS
IDC31802I X'0306' , REASON CODE IS X'A6B6'
IDC0657I REQUIRED SORT PRODUCT FUNCTIONS UNAVAILABLE
IDC0652I ENRICO.MF.ESDS.AIX SUCCESSFULLY BUILT
IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 0
END
IF MAXCC = 0 THEN -
DO
DEFINE PATH( -
NAME(ENRICO.MF.ESDS.PATH) -
PATHENTRY(ENRICO.MF.ESDS.AIX) )
IDCAMS SYSTEM SERVICES TIME: 13:11:21
IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 0
END
IF MAXCC = 0 THEN -
PRINT INDATASET(ENRICO.MF.ESDS.PATH)
IDCAMS SYSTEM SERVICES TIME: 13:11:21
LISTING OF DATA SET -ENRICO.MF.ESDS.PATH
KEY OF RECORD - F0F0F0F0F0F0F0F0F0F0
000000 F0F0F0F0 F0F0F0F0 F0F04040 40404040 40404040 40404040 40404040 4040404
000020 40404040 40404040 40404040 40404040 40404040 40404040 40404040 4040404
000040 40404040 40404040 40404040 40404040
KEY OF RECORD - F1F1F1F1F1F1F1F1F1F1
000000 F1F1F1F1 F1F1F1F1 F1F14040 40404040 40404040 40404040 40404040 4040404
000020 40404040 40404040 40404040 40404040 40404040 40404040 40404040 4040404
000040 40404040 40404040 40404040 40404040
KEY OF RECORD - F2F2F2F2F2F2F2F2F2F2
000000 F2F2F2F2 F2F2F2F2 F2F24040 40404040 40404040 40404040 40404040 4040404
000020 40404040 40404040 40404040 40404040 40404040 40404040 40404040 4040404
000040 40404040 40404040 40404040 40404040
KEY OF RECORD - F3F3F3F3F3F3F3F3F3F3
000000 F3F3F3F3 F3F3F3F3 F3F34040 40404040 40404040 40404040 40404040 4040404
000020 40404040 40404040 40404040 40404040 40404040 40404040 40404040 4040404
000040 40404040 40404040 40404040 40404040
KEY OF RECORD - F4F4F4F4F4F4F4F4F4F4
000000 F4F4F4F4 F4F4F4F4 F4F44040 40404040 40404040 40404040 40404040 4040404
000020 40404040 40404040 40404040 40404040 40404040 40404040 40404040 4040404
000040 40404040 40404040 40404040 40404040
KEY OF RECORD - F5F5F5F5F5F5F5F5F5F5
000000 F5F5F5F5 F5F5F5F5 F5F54040 40404040 40404040 40404040 40404040 4040404
000020 40404040 40404040 40404040 40404040 40404040 40404040 40404040 4040404
000040 40404040 40404040 40404040 40404040
KEY OF RECORD - F6F6F6F6F6F6F6F6F6F6
000000 F6F6F6F6 F6F6F6F6 F6F64040 40404040 40404040 40404040 40404040 4040404
000020 40404040 40404040 40404040 40404040 40404040 40404040 40404040 4040404
000040 40404040 40404040 40404040 40404040
KEY OF RECORD - F7F7F7F7F7F7F7F7F7F7
000000 F7F7F7F7 F7F7F7F7 F7F74040 40404040 40404040 40404040 40404040 4040404
000020 40404040 40404040 40404040 40404040 40404040 40404040 40404040 4040404
000040 40404040 40404040 40404040 40404040
IDCAMS SYSTEM SERVICES TIME: 13:11:21
LISTING OF DATA SET -ENRICO.MF.ESDS.PATH
KEY OF RECORD - F8F8F8F8F8F8F8F8F8F8
000000 F8F8F8F8 F8F8F8F8 F8F84040 40404040 40404040 40404040 40404040 4040404
000020 40404040 40404040 40404040 40404040 40404040 40404040 40404040 4040404
000040 40404040 40404040 40404040 40404040
KEY OF RECORD - F9F9F9F9F9F9F9F9F9F9
000000 F9F9F9F9 F9F9F9F9 F9F94040 40404040 40404040 40404040 40404040 4040404
000020 40404040 40404040 40404040 40404040 40404040 40404040 40404040 4040404
000040 40404040 40404040 40404040 40404040
IDC0005I NUMBER OF RECORDS PROCESSED WAS 10
IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 0
IDCAMS SYSTEM SERVICES TIME: 13:11:21
IDC0002I IDCAMS PROCESSING COMPLETE. MAXIMUM CONDITION CODE WAS 0
|
|
|
Back to top |
|
|
dbzTHEdinosauer
Global Moderator
Joined: 20 Oct 2006 Posts: 6966 Location: porcelain throne
|
|
|
|
Quote: |
here is the jcl tested and working
|
great, you jcl is working................
sorry enrico, all you have shown me is jcl to build an index (aix), and you have dumped it via idcams.
your index contains the 'key' but, does not contain an RBA.
just how do you think you can access an esds record by using this aix?
what I wanted to see is this aix used in a module.
If you can't build a primary idx, how can you build a alternate? --that is useful. |
|
Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10888 Location: italy
|
|
|
|
I have shown how...
define an esds cluster
print the esds cluster
9
7
5
3
1
8
6
2
0
repro some data in it
define the aix
build the aix
define a path
priint/access the base cluster thru a path
0
1
2
3
4
5
6
7
8
9
here is the jcl and the sysout of printing the AIX and the rba is right there
jcl
Code: |
****** ***************************** Top of Data ******************************
000001 //ENRICO@A JOB (H001),'ZESDS1',NOTIFY=ENRICO,
000002 // CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1)
000003 //* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
000004 //* DSN=ENRICO.MF.JCLLIB(ZESDS1)
000005 //* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
000006 // JCLLIB ORDER=(ENRICO.MF.JCLLIB)
000007 //* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
000008 //*
000009 //AMS EXEC PGM=IDCAMS
000010 //SYSPRINT DD SYSOUT=*
000011 //SYSIN DD *
000012 PRINT INDATASET(ENRICO.MF.ESDS.AIX)
****** **************************** Bottom of Data **************************** |
sysout with the rba
Code: |
********************************* TOP OF DATA **********************************
IDCAMS SYSTEM SERVICES TIME: 13:48:59
PRINT INDATASET(ENRICO.MF.ESDS.AIX)
IDCAMS SYSTEM SERVICES TIME: 13:48:59
LISTING OF DATA SET -ENRICO.MF.ESDS.AIX
KEY OF RECORD - F0F0F0F0F0F0F0F0F0F0
000000 00040001 0AF0F0F0 F0F0F0F0 F0F0F000 0002D0
KEY OF RECORD - F1F1F1F1F1F1F1F1F1F1
000000 00040001 0AF1F1F1 F1F1F1F1 F1F1F100 000140
KEY OF RECORD - F2F2F2F2F2F2F2F2F2F2
000000 00040001 0AF2F2F2 F2F2F2F2 F2F2F200 000280
KEY OF RECORD - F3F3F3F3F3F3F3F3F3F3
000000 00040001 0AF3F3F3 F3F3F3F3 F3F3F300 0000F0
KEY OF RECORD - F4F4F4F4F4F4F4F4F4F4
000000 00040001 0AF4F4F4 F4F4F4F4 F4F4F400 000230
KEY OF RECORD - F5F5F5F5F5F5F5F5F5F5
000000 00040001 0AF5F5F5 F5F5F5F5 F5F5F500 0000A0
KEY OF RECORD - F6F6F6F6F6F6F6F6F6F6
000000 00040001 0AF6F6F6 F6F6F6F6 F6F6F600 0001E0
KEY OF RECORD - F7F7F7F7F7F7F7F7F7F7
000000 00040001 0AF7F7F7 F7F7F7F7 F7F7F700 000050
KEY OF RECORD - F8F8F8F8F8F8F8F8F8F8
000000 00040001 0AF8F8F8 F8F8F8F8 F8F8F800 000190
KEY OF RECORD - F9F9F9F9F9F9F9F9F9F9
000000 00040001 0AF9F9F9 F9F9F9F9 F9F9F900 000000
IDC0005I NUMBER OF RECORDS PROCESSED WAS 10
IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 0
IDCAMS SYSTEM SERVICES TIME: 13:48:59
IDC0002I IDCAMS PROCESSING COMPLETE. MAXIMUM CONDITION CODE WAS 0
******************************** BOTTOM OF DATA ********************************
|
|
|
Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10888 Location: italy
|
|
|
|
Add on' s to my previous post
Quote: |
sorry enrico, all you have shown me is jcl to build an index (aix), and you have dumped it via idcams.
your index contains the 'key' but, does not contain an RBA.
just how do you think you can access an esds record by using this aix?
what I wanted to see is this aix used in a module. |
Hi Dick
the base cluster is never accessed thruu the AIX, it is accessed trhu a PATH
the logic is a shortcut to ..
read the aix to get the RBA
read the base using the RBA
accessing thru a PATH makes VSAM do the above steps behind the scene
in my first jcl You did not see any RBA because I accessed thru the PATH |
|
Back to top |
|
|
|