IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

How to create alternate index for ESDS


IBM Mainframe Forums -> Mainframe Interview Questions
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
vch

New User


Joined: 01 Feb 2008
Posts: 22
Location: chennai

PostPosted: Fri Mar 21, 2008 3:21 pm
Reply with quote

Hi,
how to create alternate index for ESDS..?

what is the difference between QSAM and ESDS??
Back to top
View user's profile Send private message
Gnanas N

Active Member


Joined: 06 Sep 2007
Posts: 792
Location: Chennai, India

PostPosted: Fri Mar 21, 2008 3:43 pm
Reply with quote

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
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Fri Mar 21, 2008 3:51 pm
Reply with quote

gnanas,

what would be the key? how would you define it?
Back to top
View user's profile Send private message
Gnanas N

Active Member


Joined: 06 Sep 2007
Posts: 792
Location: Chennai, India

PostPosted: Fri Mar 21, 2008 4:08 pm
Reply with quote

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
View user's profile Send private message
vch

New User


Joined: 01 Feb 2008
Posts: 22
Location: chennai

PostPosted: Fri Mar 21, 2008 5:52 pm
Reply with quote

ganas,

how to define alternate index for ESDS? can you give me full syntax for taht?
Back to top
View user's profile Send private message
Gnanas N

Active Member


Joined: 06 Sep 2007
Posts: 792
Location: Chennai, India

PostPosted: Fri Mar 21, 2008 5:59 pm
Reply with quote

This link might give you more information.

publib.boulder.ibm.com/infocenter/pdthelp/v1r1/index.jsp?topic=/com.ibm.entpli4.doc/ibma1mst266.htm
Back to top
View user's profile Send private message
Marso

REXX Moderator


Joined: 13 Mar 2006
Posts: 1353
Location: Israel

PostPosted: Sun Mar 23, 2008 7:40 pm
Reply with quote

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
View user's profile Send private message
Anuj Dhawan

Superior Member


Joined: 22 Apr 2006
Posts: 6248
Location: Mumbai, India

PostPosted: Sun Mar 23, 2008 11:53 pm
Reply with quote

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
View user's profile Send private message
Anuj Dhawan

Superior Member


Joined: 22 Apr 2006
Posts: 6248
Location: Mumbai, India

PostPosted: Mon Mar 24, 2008 12:04 am
Reply with quote

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
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10888
Location: italy

PostPosted: Mon Mar 24, 2008 12:24 am
Reply with quote

/ generic invitation on
please please review your vsam icon_biggrin.gif

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
View user's profile Send private message
the_gautam

Active User


Joined: 05 Jun 2005
Posts: 165
Location: Bangalore

PostPosted: Mon Mar 24, 2008 8:26 am
Reply with quote

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
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Tue Mar 25, 2008 12:57 pm
Reply with quote

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
View user's profile Send private message
Anuj Dhawan

Superior Member


Joined: 22 Apr 2006
Posts: 6248
Location: Mumbai, India

PostPosted: Tue Mar 25, 2008 2:02 pm
Reply with quote

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
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Tue Mar 25, 2008 2:14 pm
Reply with quote

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
View user's profile Send private message
vch

New User


Joined: 01 Feb 2008
Posts: 22
Location: chennai

PostPosted: Tue Mar 25, 2008 3:13 pm
Reply with quote

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
View user's profile Send private message
vch

New User


Joined: 01 Feb 2008
Posts: 22
Location: chennai

PostPosted: Tue Mar 25, 2008 3:23 pm
Reply with quote

so it is confirmed that we can create an AIX to an ESDS file
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Tue Mar 25, 2008 4:20 pm
Reply with quote

just as soon as you have tested it and can prove that it works!
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10888
Location: italy

PostPosted: Tue Mar 25, 2008 5:54 pm
Reply with quote

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
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Tue Mar 25, 2008 6:16 pm
Reply with quote

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
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10888
Location: italy

PostPosted: Tue Mar 25, 2008 6:25 pm
Reply with quote

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
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10888
Location: italy

PostPosted: Tue Mar 25, 2008 6:42 pm
Reply with quote

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
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> Mainframe Interview Questions

 


Similar Topics
Topic Forum Replies
No new posts How can I add/create a new INIT(initi... TSO/ISPF 2
No new posts How to create a list of SAR jobs with... CA Products 3
No new posts Random read in ESDS file by using RBA JCL & VSAM 6
No new posts Cobol file using index COBOL Programming 2
No new posts create rexx edit Macro that edits the... CLIST & REXX 3
Search our Forums:

Back to Top