Portal | IBM Manuals | Downloads | Products | Refer | Info | Programs | JCLs | Forum Rules*| Site Map | Mainframe CD 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index
 
Register
 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index FAQ Search Memberlist Usergroups Profile Log in to check your private messages Log in
 
How to create alternate index for ESDS
Goto page Previous  1, 2
 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> Interview Questions
Author Message
vch

New User


Joined: 01 Feb 2008
Posts: 18
Location: chennai
PostPosted: Tue Mar 25, 2008 3:23 pm    Post subject:
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
References
PostPosted: Tue Mar 25, 2008 3:23 pm    Post subject: Re: Reply with quote
dbzTHEdinosauer

Senior Member


Joined: 20 Oct 2006
Posts: 1519
Location: germany
PostPosted: Tue Mar 25, 2008 4:20 pm    Post subject:
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

Global Moderator


Joined: 14 Mar 2007
Posts: 2656
Location: italy
PostPosted: Tue Mar 25, 2008 5:54 pm    Post subject: Reply to: How to create alternate index for ESDS
 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

Senior Member


Joined: 20 Oct 2006
Posts: 1519
Location: germany
PostPosted: Tue Mar 25, 2008 6:16 pm    Post subject:
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

Global Moderator


Joined: 14 Mar 2007
Posts: 2656
Location: italy
PostPosted: Tue Mar 25, 2008 6:25 pm    Post subject: Reply to: How to create alternate index for ESDS
 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

Global Moderator


Joined: 14 Mar 2007
Posts: 2656
Location: italy
PostPosted: Tue Mar 25, 2008 6:42 pm    Post subject: Reply to: How to create alternate index for ESDS
 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
Display posts from previous:   
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> Interview Questions All times are GMT + 6 HoursGoto page Previous  1, 2
Page 2 of 2