偶看新闻高中安全教育详细教案:IDCAMS
来源：百度文库 编辑：偶看新闻 时间：2024/04/29 11:22:37
1. Syntax NOTE
a.Wrok areacolumn 2 -72
b.Continuecommand (-)
value (+)
c. comment/* and */ (must be same line for /* and */)
2.IDCAMS -DEFINE
ESDS DEFINE CLUSTER -
(NAME(RABIL.BEL.ESDS.CLUSTER) -
RECORDS(100 100) -
RECSZ(80 80) -
NONINDEXED -
) -
DATA(NAME(RABIL.BEL.ESDS.DATA))
RRDSDEFINE CLUSTER -
(NAME(RABIL.BEL.RRDS.CLUSTER) -
RECORDS(100 10) -
RECSZ(80 80) -
NUMBERED) -
DATA -
(NAME(RABIL.BEL.RRDS.DATA))
KSDS DEFINE CLUSTER -
(NAME(RABIL.BEL.KSDS.CLUSTER) -
RECORDS(100 10) -
RECSZ(80 80) -
KEYS(10 0) - -> start position of vasm from 0
INDEXED -
) -
INDEX -
(NAME(RABIL.BEL.KSDS.INDEX))-
DATA -
(NAME(RABIL.BEL.KSDS.DATA))
DEFINE-MODEL
DEFINE CLUSTER(NAME (PXXXXX.JOB1.OUTFILE.VSAM) -
MODEL(PXXXXX.MODEL.VSAM))
3.IDCAMS-REPRO
//STEP0040 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//FIL01 DD DISP=SHR,DSN=RABIL.BEL.PS.DATA.INPUT
//FIL02 DD DISP=SHR,DSN=RABIL.BEL.ESDS.CLUSTER
//SYSIN DD *
REPRO INFILE(FIL01) - -> FOR ESDS,RRDS , output can be cluster or data
OUTFILE(FIL02)
REPRO IDS(RABIL.BEL.PS.DATA.INPUT) -
ODS(RABIL.BEL.RRDS.DATA)
REPRO IDS(RABIL.BEL.PS.DATA.INPUT) - -> for KSDS, output can be cluster or index, but can't be data
ODS(RABIL.BEL.KSDS.CLUSTER)
REPRO IDS(RABIL.BEL.KSDS.CLUSTER) -
ODS(RABIL.BEL.PS.DATA1) -
FROMKEY(0000000001) TOKEY(0000000005)
REPRO IDS(RABIL.BEL.ESDS.CLUSTER) -
ODS(RABIL.BEL.PS.DATA1) -
FROMADDRESS(0) TOADDRESS(160) -> Address of address is 0, and it is multiple length of record
REPRO IDS(RABIL.BEL.RRDS.CLUSTER) -
ODS(RABIL.BEL.PS.DATA1) -
FROMNUMBER(1) TONUMBER(2) -> RRN Number is from 1
REPRO IDS(RABIL.BEL.RRDS.CLUSTER) -
ODS(RABIL.BEL.PS.DATA1) -
SKIP(2) COUNT(3)
4.IDCAMS-LISTCAT
LISTCAT ENTRY(RABIL.BEL.RRDS.CLUSTER) ALL
5.IDCAMS-PRINT
PRINT -
IDS(RABIL.BEL.KSDS.CLUSTER) CHAR ->ESDS FROMADDRESS() TOADDRESS()
RRDS FROMNUMBER() TONUMBER()
FROMKEY() TOKEY()
6.IDCAMS -AIX
6.1 AIX sample RABIL.BEL.PS.EMP.DATA
DELETE RABIL.BEL.KSDS.EMP.CLUSTER PURGE420115000000000001 LI GANG
IF MAXCC=8 THEN SET MAXCC=0 420115000000000002 LUO JUN
DEFINE CLUSTER - 420115000000000003 LUO XIN
(NAME(RABIL.BEL.EMP.CLUSTER) - 420115000000000004 LUO HUA
RECORDS(100 10) - 420115000000000005 LI BIN
RECSZ(80 80) - 420115000000000006 QIN HUI
KEYS(18 0) - 420115000000000007 QIN ZHANG
INDEXED -
) - RABIL.BEL.EMP.CLUSTER
INDEX - 420115000000000001 LI GANG
(NAME(RABIL.BEL.EMP.INDEX)) - 420115000000000002 LUO JUN
DATA - 420115000000000003 LUO XIN
(NAME(RABIL.BEL.EMP.DATA)) 420115000000000004 LUO HUA
REPRO IDS(RABIL.BEL.PS.EMP.DATA) - 420115000000000005 LI BIN
ODS(RABIL.BEL.EMP.CLUSTER) 420115000000000006 QIN HUI
DEFINE AIX - 420115000000000007 QIN ZHANG
(NAME(RABIL.BEL.EMP.CLUSTER.AIX) -
RELATE(RABIL.BEL.EMP.CLUSTER) - RABIL.BEL.EMP.CLUSTER.AIX
RECORDS(100 10) - .....LI BIN 420115000000000005
RECSZ(80 80) - .....LI GANG 420115000000000001
KEYS(11 19) - -> the key offset start in 0. so if in cluster
key from 20. then here should be 19......LUO HUA 420115000000000004
UNIQUEKEY - .....LUO JUN 420115000000000002
UPGRADE - .....LUO XIN 420115000000000003
REUSE - -> IF NOREUSE, it will open error with 232
default it is NOREUSE.....QIN HUI 420115000000000006
) - .....QIN ZHANG 420115000000000007
INDEX -
(NAME(RABIL.BEL.EMP.CLUSTER.AIX.INDEX))-
DATA -
(NAME(RABIL.BEL.EMP.CLUSTER.AIX.DATA))
PRINT IDS(RABIL.BEL.EMP.CLUSTER.AIX) */
DEFINE PATH -
(NAME(RABIL.BEL.EMP.CLUSTER.AIX.PATH) -
PATHENTRY(RABIL.BEL.EMP.CLUSTER.AIX) -
UPDATE)
BLDINDEX IDS(RABIL.BEL.EMP.CLUSTER) -
ODS(RABIL.BEL.EMP.CLUSTER.AIX)
PRINT IDS(RABIL.BEL.EMP.CLUSTER.AIX) CHAR
7.IDCAMS- GDG FILE
DEFINE GDG -
(NAME(RABIL.BEL.GDG) -
LIMT(07) -
NOEMPTY-
NOSCRATCH)
NOEMPTY - only odest one uncatlog when max limit reach
EMPTY - All generation will be uncatlog when max limit reach
NOSRATCH - will delete from VTOC when uncatlog
SCRATCH - would not delete from VTOC(volumn table of contents)
DELETE RABIL.BEL.GDG PURGE
a.Wrok areacolumn 2 -72
b.Continuecommand (-)
value (+)
c. comment/* and */ (must be same line for /* and */)
2.IDCAMS -DEFINE
ESDS DEFINE CLUSTER -
(NAME(RABIL.BEL.ESDS.CLUSTER) -
RECORDS(100 100) -
RECSZ(80 80) -
NONINDEXED -
) -
DATA(NAME(RABIL.BEL.ESDS.DATA))
RRDSDEFINE CLUSTER -
(NAME(RABIL.BEL.RRDS.CLUSTER) -
RECORDS(100 10) -
RECSZ(80 80) -
NUMBERED) -
DATA -
(NAME(RABIL.BEL.RRDS.DATA))
KSDS DEFINE CLUSTER -
(NAME(RABIL.BEL.KSDS.CLUSTER) -
RECORDS(100 10) -
RECSZ(80 80) -
KEYS(10 0) - -> start position of vasm from 0
INDEXED -
) -
INDEX -
(NAME(RABIL.BEL.KSDS.INDEX))-
DATA -
(NAME(RABIL.BEL.KSDS.DATA))
DEFINE-MODEL
DEFINE CLUSTER(NAME (PXXXXX.JOB1.OUTFILE.VSAM) -
MODEL(PXXXXX.MODEL.VSAM))
3.IDCAMS-REPRO
//STEP0040 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//FIL01 DD DISP=SHR,DSN=RABIL.BEL.PS.DATA.INPUT
//FIL02 DD DISP=SHR,DSN=RABIL.BEL.ESDS.CLUSTER
//SYSIN DD *
REPRO INFILE(FIL01) - -> FOR ESDS,RRDS , output can be cluster or data
OUTFILE(FIL02)
REPRO IDS(RABIL.BEL.PS.DATA.INPUT) -
ODS(RABIL.BEL.RRDS.DATA)
REPRO IDS(RABIL.BEL.PS.DATA.INPUT) - -> for KSDS, output can be cluster or index, but can't be data
ODS(RABIL.BEL.KSDS.CLUSTER)
REPRO IDS(RABIL.BEL.KSDS.CLUSTER) -
ODS(RABIL.BEL.PS.DATA1) -
FROMKEY(0000000001) TOKEY(0000000005)
REPRO IDS(RABIL.BEL.ESDS.CLUSTER) -
ODS(RABIL.BEL.PS.DATA1) -
FROMADDRESS(0) TOADDRESS(160) -> Address of address is 0, and it is multiple length of record
REPRO IDS(RABIL.BEL.RRDS.CLUSTER) -
ODS(RABIL.BEL.PS.DATA1) -
FROMNUMBER(1) TONUMBER(2) -> RRN Number is from 1
REPRO IDS(RABIL.BEL.RRDS.CLUSTER) -
ODS(RABIL.BEL.PS.DATA1) -
SKIP(2) COUNT(3)
4.IDCAMS-LISTCAT
LISTCAT ENTRY(RABIL.BEL.RRDS.CLUSTER) ALL
5.IDCAMS-PRINT
PRINT -
IDS(RABIL.BEL.KSDS.CLUSTER) CHAR ->ESDS FROMADDRESS() TOADDRESS()
RRDS FROMNUMBER() TONUMBER()
FROMKEY() TOKEY()
6.IDCAMS -AIX
6.1 AIX sample RABIL.BEL.PS.EMP.DATA
DELETE RABIL.BEL.KSDS.EMP.CLUSTER PURGE420115000000000001 LI GANG
IF MAXCC=8 THEN SET MAXCC=0 420115000000000002 LUO JUN
DEFINE CLUSTER - 420115000000000003 LUO XIN
(NAME(RABIL.BEL.EMP.CLUSTER) - 420115000000000004 LUO HUA
RECORDS(100 10) - 420115000000000005 LI BIN
RECSZ(80 80) - 420115000000000006 QIN HUI
KEYS(18 0) - 420115000000000007 QIN ZHANG
INDEXED -
) - RABIL.BEL.EMP.CLUSTER
INDEX - 420115000000000001 LI GANG
(NAME(RABIL.BEL.EMP.INDEX)) - 420115000000000002 LUO JUN
DATA - 420115000000000003 LUO XIN
(NAME(RABIL.BEL.EMP.DATA)) 420115000000000004 LUO HUA
REPRO IDS(RABIL.BEL.PS.EMP.DATA) - 420115000000000005 LI BIN
ODS(RABIL.BEL.EMP.CLUSTER) 420115000000000006 QIN HUI
DEFINE AIX - 420115000000000007 QIN ZHANG
(NAME(RABIL.BEL.EMP.CLUSTER.AIX) -
RELATE(RABIL.BEL.EMP.CLUSTER) - RABIL.BEL.EMP.CLUSTER.AIX
RECORDS(100 10) - .....LI BIN 420115000000000005
RECSZ(80 80) - .....LI GANG 420115000000000001
KEYS(11 19) - -> the key offset start in 0. so if in cluster
key from 20. then here should be 19......LUO HUA 420115000000000004
UNIQUEKEY - .....LUO JUN 420115000000000002
UPGRADE - .....LUO XIN 420115000000000003
REUSE - -> IF NOREUSE, it will open error with 232
default it is NOREUSE.....QIN HUI 420115000000000006
) - .....QIN ZHANG 420115000000000007
INDEX -
(NAME(RABIL.BEL.EMP.CLUSTER.AIX.INDEX))-
DATA -
(NAME(RABIL.BEL.EMP.CLUSTER.AIX.DATA))
PRINT IDS(RABIL.BEL.EMP.CLUSTER.AIX) */
DEFINE PATH -
(NAME(RABIL.BEL.EMP.CLUSTER.AIX.PATH) -
PATHENTRY(RABIL.BEL.EMP.CLUSTER.AIX) -
UPDATE)
BLDINDEX IDS(RABIL.BEL.EMP.CLUSTER) -
ODS(RABIL.BEL.EMP.CLUSTER.AIX)
PRINT IDS(RABIL.BEL.EMP.CLUSTER.AIX) CHAR
7.IDCAMS- GDG FILE
DEFINE GDG -
(NAME(RABIL.BEL.GDG) -
LIMT(07) -
NOEMPTY-
NOSCRATCH)
NOEMPTY - only odest one uncatlog when max limit reach
EMPTY - All generation will be uncatlog when max limit reach
NOSRATCH - will delete from VTOC when uncatlog
SCRATCH - would not delete from VTOC(volumn table of contents)
DELETE RABIL.BEL.GDG PURGE