IDCAMS - DEFINE VSAM/RRDS |
File Edit Confirm Menu Utilities Compilers Test Help
EDIT IBMMFS.MAC.JCLS(RRDS) Columns 00001 - 00072
****** ***************************** Top of Data **************************************
000001 //RRDS JOB 'IBMMFS','MAC',CLASS=A,MSGCLASS=X,NOTIFY=&SYSUID
000002 //STEP1 EXEC PGM=IDCAMS
000003 //SYSPRINT DD SYSOUT=*
000004 //SYSIN DD *
DEFINE CLUSTER -
( -
NAME(IBMMFS.MAC.RRDS) -
TRACKS(4,2) -
CONTROLINTERVALSIZE(4096) -
RECORDSIZE(80,80) -
NUMBERED -
) -
DATA -
( -
NAME(IBMMFS.MAC.RRDS.DATA) -
)
000005 /*
000006 //
****** **************************** Bottom of Data ************************************
Command ===> SUB Scroll ===> PAGE
F1=Help F3=Exit F5=Rfind F6=Rchange F12=Cancel
|
IDCAMS - DEFINE VSAM/KSDS |
File Edit Confirm Menu Utilities Compilers Test Help
EDIT IBMMFS.MAC.JCLS(KSDS) Columns 00001 - 00072
****** ***************************** Top of Data **************************************
000001 //KSDS JOB 'IBMMFS','MAC',CLASS=A,MSGCLASS=X,NOTIFY=&SYSUID
000002 //STEP1 EXEC PGM=IDCAMS
000003 //SYSPRINT DD SYSOUT=*
000004 //SYSIN DD *
DEFINE CLUSTER -
( -
NAME(IBMMFS.MAC.KSDS) -
TRACKS(4,2) -
CONTROLINTERVALSIZE(4096) -
RECORDSIZE(80,80) -
FREESPACE(10,20) -
KEYS(10,1) -
) -
DATA -
( -
NAME(IBMMFS.MAC.KSDS.DATA) -
) -
INDEX -
( -
NAME(IBMMFS.MAC.KSDS.INDEX) -
CONTROLINTERVALSIZE(2048) -
)
000005 /*
000006 //
****** **************************** Bottom of Data ************************************
Command ===> SUB Scroll ===> PAGE
F1=Help F3=Exit F5=Rfind F6=Rchange F12=Cancel
|
IDCAMS - DEFINE ALTERNATE INDEX |
File Edit Confirm Menu Utilities Compilers Test Help
EDIT IBMMFS.MAC.JCLS(AIX) Columns 00001 - 00072
****** ***************************** Top of Data **************************************
000001 //AIX JOB 'IBMMFS','MAC',CLASS=A,MSGCLASS=X,NOTIFY=&SYSUID
000002 //STEP1 EXEC PGM=IDCAMS
000003 //SYSPRINT DD SYSOUT=*
000004 //SYSIN DD *
DEFINE AIX -
( -
NAME(IBMMFS.MAC.AIX) -
RELATE(IBMMFS.MAC.KSDS) -
TRACKS(4,2) -
NONUNIQUEKEY -
UPGRADE -
RECORDSIZE(80,80) -
FREESPACE(10,20) -
KEYS(5,11) -
) -
DATA -
( -
NAME(IBMMFS.MAC.AIX.DATA) -
) -
INDEX -
( -
NAME(IBMMFS.MAC.AIX.INDEX) -
)
000005 /*
000006 //
****** **************************** Bottom of Data ************************************
Command ===> SUB Scroll ===> PAGE
F1=Help F3=Exit F5=Rfind F6=Rchange F12=Cancel
|
IDCAMS - DEFINE AIX PATH |
File Edit Confirm Menu Utilities Compilers Test Help
EDIT IBMMFS.MAC.JCLS(PATH) Columns 00001 - 00072
****** ***************************** Top of Data **************************************
000001 //PATH JOB 'IBMMFS','MAC',CLASS=A,MSGCLASS=X,NOTIFY=&SYSUID
000002 //STEP1 EXEC PGM=IDCAMS
000003 //SYSPRINT DD SYSOUT=*
000004 //SYSIN DD *
DEFINE PATH -
( -
NAME(IBMMFS.MAC.PATH) -
PATHENTRY(IBMMFS.MAC.AIX) -
UPDATE -
)
000005 /*
000006 //
****** **************************** Bottom of Data ************************************
Command ===> SUB Scroll ===> PAGE
F1=Help F3=Exit F5=Rfind F6=Rchange F12=Cancel
|
IDCAMS - DEFINE GDG |
File Edit Confirm Menu Utilities Compilers Test Help
EDIT IBMMFS.MAC.JCLS(GDG) Columns 00001 - 00072
****** ***************************** Top of Data **************************************
000001 //GDG JOB 'IBMMFS','MAC',CLASS=A,MSGCLASS=X,NOTIFY=&SYSUID
000002 //STEP1 EXEC PGM=IDCAMS
000003 //SYSPRINT DD SYSOUT=*
000004 //SYSIN DD *
DEFINE GDG -
( -
NAME(IBMMFS.MAC.GDG) -
LIMIT(10) -
NOEMPTY - <= NOEMPTY <-> EMPTY
SCRATCH - <= SCRATCH <-> NOSCRATCH
)
000005 /*
000006 //
****** **************************** Bottom of Data ************************************
Command ===> SUB Scroll ===> PAGE
F1=Help F3=Exit F5=Rfind F6=Rchange F12=Cancel
|
IDCAMS - LOAD/VIEW VSAM |
File Edit Confirm Menu Utilities Compilers Test Help
EDIT IBMMFS.MAC.JCLS(LOAD) Columns 00001 - 00072
****** ***************************** Top of Data **************************************
000001 //LOAD JOB 'IBMMFS','MAC',CLASS=A,MSGCLASS=X,NOTIFY=&SYSUID
000002 //STEP1 EXEC PGM=IDCAMS
000003 //SYSPRINT DD SYSOUT=*
000004 //SYSIN DD *
REPRO -
INDATASET(IBMMFS.MAC.KSDS) - <= INFILE FOR PDS
OUTDATASET(IBMMFS.MAC.PS) <= MAY BE A VSAM/PDS
000005 /*
000006 //
****** **************************** Bottom of Data ************************************
Command ===> SUB Scroll ===> PAGE
F1=Help F3=Exit F5=Rfind F6=Rchange F12=Cancel
|
IDCAMS - ALTER NAME/GDG/PROT |
File Edit Confirm Menu Utilities Compilers Test Help
EDIT IBMMFS.MAC.JCLS(ALTER) Columns 00001 - 00072
****** ***************************** Top of Data **************************************
000001 //ALTER JOB 'IBMMFS','MAC',CLASS=A,MSGCLASS=X,NOTIFY=&SYSUID
000002 //STEP1 EXEC PGM=IDCAMS
000003 //SYSPRINT DD SYSOUT=*
000004 //SYSIN DD *
ALTER -
IBMMFS.MAC.PS -
NEWNAME(LEM0I01MAC.PS1)
ALTER IBMMFS.MAC.KSDS.INDEX -
INHIBIT <= INHIBIT <-> UNINHIBIT
ALTER -
IBMMFS.MAC.GDG EMPTY NOSCRATCH
000005 /*
000006 //
****** **************************** Bottom of Data ************************************
Command ===> SUB Scroll ===> PAGE
F1=Help F3=Exit F5=Rfind F6=Rchange F12=Cancel
|
IDCAMS - DELETE |
File Edit Confirm Menu Utilities Compilers Test Help
EDIT IBMMFS.MAC.JCLS(DELETE) Columns 00001 - 00072
****** ***************************** Top of Data **************************************
000001 //DELETE JOB 'IBMMFS','MAC',CLASS=A,MSGCLASS=X,NOTIFY=&SYSUID
000002 //STEP1 EXEC PGM=IDCAMS
000003 //SYSPRINT DD SYSOUT=*
000004 //SYSIN DD *
DELETE IBMMFS.MAC.PSCPY <=MAY BE VSAM/PDS
DELETE IBMMFS.MAC.GDG FORCE <= FORCE <-> PURGE
000005 /*
000006 //
****** **************************** Bottom of Data ************************************
Command ===> SUB Scroll ===> PAGE
F1=Help F3=Exit F5=Rfind F6=Rchange F12=Cancel
|
IDCAMS - PRINT |
File Edit Confirm Menu Utilities Compilers Test Help
EDIT IBMMFS.MAC.JCLS(PRINT) Columns 00001 - 00072
****** ***************************** Top of Data **************************************
000001 //PRINT JOB 'IBMMFS','MAC',CLASS=A,MSGCLASS=X,NOTIFY=&SYSUID
000002 //STEP1 EXEC PGM=IDCAMS
000003 //SYSPRINT DD SYSOUT=*
000004 //SYSIN DD *
PRINT -
INDATASET(IBMMFS.MAC.KSDS) - <= INFILE FOR PDS
DUMP <= DUMP <-> CHAR <-> HEX
000005 /*
000006 //
****** **************************** Bottom of Data ************************************
Command ===> SUB Scroll ===> PAGE
F1=Help F3=Exit F5=Rfind F6=Rchange F12=Cancel
|
|
®
IBMMAINFRAMES.com Training Division © www.ibmmainframes.com |