by enrico-sorichetti » Sun Dec 06, 2015 7:19 pm
Confusing part is for creating an Alternate Index we require a Primary key
NO
here are two JCLs and the relative output to show how it works
the first JCL
defines an ESDS cluster
loads some data into it
prints the ESDS
defines the AIX
build the AIX
defines the PATH
prints the PATH ( the records are ordered on the alternate key
the second JCL
prints the AIX to show that each record has the rba of the base
(to demonstrate the logic to somebody unable to understand it by himself)
first JCL
Code: Select all
//ENRICO@A JOB (H001),'ZESDS1',NOTIFY=ENRICO,
// CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1)
//* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
//*
//AMS EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//ESDSDATA DD *
9999999999
7777777777
5555555555
3333333333
1111111111
8888888888
6666666666
4444444444
2222222222
0000000000
//*
//SYSIN DD *
DELETE (ENRICO.MF.ESDS.CL) CLUSTER PURGE
SET LASTCC=0
SET MAXCC=0
DEFINE CLUSTER( -
NAME(ENRICO.MF.ESDS.CL) -
NONINDEXED SHR(2 3) CYL(2 2) VOL(xxxxxx) ) -
DATA( -
RECSZ(80 80) CISZ(4096) FREESPACE(0 0) )
IF MAXCC = 0 THEN -
REPRO INFILE(ESDSDATA) OUTDATASET(ENRICO.MF.ESDS.CL)
IF MAXCC = 0 THEN -
PRINT INDATASET(ENRICO.MF.ESDS.CL)
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(xxxxxx) ) -
DATA( -
RECSZ(10 2048) CISZ(4096) FREESPACE(0 0) )
END
IF MAXCC = 0 THEN -
DO
BLDINDEX INDATASET(ENRICO.MF.ESDS.CL) -
OUTDATASET(ENRICO.MF.ESDS.AIX)
END
IF MAXCC = 0 THEN -
DO
DEFINE PATH( -
NAME(ENRICO.MF.ESDS.PATH) -
PATHENTRY(ENRICO.MF.ESDS.AIX) )
END
IF MAXCC = 0 THEN -
PRINT INDATASET(ENRICO.MF.ESDS.PATH)
/*
//
first output
Code: Select all
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(xxxxxx) ) -
DATA( -
RECSZ(80 80) CISZ(4096) FREESPACE(0 0) )
IDC0508I DATA ALLOCATION STATUS FOR VOLUME xxxxxx 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(xxxxxx) ) -
DATA( -
RECSZ(10 2048) CISZ(4096) FREESPACE(0 0) )
IDC0508I DATA ALLOCATION STATUS FOR VOLUME xxxxxx IS 0
IDC0509I INDEX ALLOCATION STATUS FOR VOLUME xxxxxx 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
second JCL
Code: Select all
//ENRICO@A JOB (H001),'ZESDS2',NOTIFY=ENRICO,
// CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1)
//* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
//*
//AMS EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
PRINT INDATASET(ENRICO.MF.ESDS.AIX)
//
second output
Code: Select all
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
[quote] Confusing part is for creating an Alternate Index we require a Primary key [/quote]
[size=150]NO[/size]
here are two JCLs and the relative output to show how it works
the first JCL
defines an ESDS cluster
loads some data into it
prints the ESDS
defines the AIX
build the AIX
defines the PATH
prints the PATH ( the records are ordered on the alternate key
the second JCL
prints the AIX to show that each record has the rba of the base
(to demonstrate the logic to somebody unable to understand it by himself)
first JCL
[code]//ENRICO@A JOB (H001),'ZESDS1',NOTIFY=ENRICO,
// CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1)
//* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
//*
//AMS EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//ESDSDATA DD *
9999999999
7777777777
5555555555
3333333333
1111111111
8888888888
6666666666
4444444444
2222222222
0000000000
//*
//SYSIN DD *
DELETE (ENRICO.MF.ESDS.CL) CLUSTER PURGE
SET LASTCC=0
SET MAXCC=0
DEFINE CLUSTER( -
NAME(ENRICO.MF.ESDS.CL) -
NONINDEXED SHR(2 3) CYL(2 2) VOL(xxxxxx) ) -
DATA( -
RECSZ(80 80) CISZ(4096) FREESPACE(0 0) )
IF MAXCC = 0 THEN -
REPRO INFILE(ESDSDATA) OUTDATASET(ENRICO.MF.ESDS.CL)
IF MAXCC = 0 THEN -
PRINT INDATASET(ENRICO.MF.ESDS.CL)
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(xxxxxx) ) -
DATA( -
RECSZ(10 2048) CISZ(4096) FREESPACE(0 0) )
END
IF MAXCC = 0 THEN -
DO
BLDINDEX INDATASET(ENRICO.MF.ESDS.CL) -
OUTDATASET(ENRICO.MF.ESDS.AIX)
END
IF MAXCC = 0 THEN -
DO
DEFINE PATH( -
NAME(ENRICO.MF.ESDS.PATH) -
PATHENTRY(ENRICO.MF.ESDS.AIX) )
END
IF MAXCC = 0 THEN -
PRINT INDATASET(ENRICO.MF.ESDS.PATH)
/*
//
[/code]
first output
[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(xxxxxx) ) -
DATA( -
RECSZ(80 80) CISZ(4096) FREESPACE(0 0) )
IDC0508I DATA ALLOCATION STATUS FOR VOLUME xxxxxx 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(xxxxxx) ) -
DATA( -
RECSZ(10 2048) CISZ(4096) FREESPACE(0 0) )
IDC0508I DATA ALLOCATION STATUS FOR VOLUME xxxxxx IS 0
IDC0509I INDEX ALLOCATION STATUS FOR VOLUME xxxxxx 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
[/code]
second JCL
[code]//ENRICO@A JOB (H001),'ZESDS2',NOTIFY=ENRICO,
// CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1)
//* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
//*
//AMS EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
PRINT INDATASET(ENRICO.MF.ESDS.AIX)
//[/code]
second output
[code]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 [/code]