Sample DPRSMFSG JCL
The following BBSAMP members contain sample job control statements:
- DPRSMFB (IBM LOAD method)
- DPRSMFNB (BMC AMI Load method)
The following figure shows the sample statements from the BBSAMP member DPRSMFB for the IBM LOAD method. For the BMC AMI Load samples, see DPRSMFNB.
//*------------------------------------------------------------*
//*JOB4 : DPRSMFSG *
//* THIS JOB PROCESSES THE STORAGE RECORDS *
//*------------------------------------------------------------*
//DPRSMFSG JOB
//*
//PROCLIB JCLLIB ORDER=HIDP.BBSAMP <====UPDATE
//*
//JS010 EXEC DPPSMFA,
// PARM.STEP5='SYSTEM,UID', <====UPDATE
// PARM.STEP6='SYSTEM,UID' <====UPDATE
//*
//* STEP4 DPSYSIN INPUT PARAMETERS
//*
//STEP4.DPSYSIN DD *
GLOBAL LOG=NO,SSID=DDDD,INVFIELD=IGNORE,PLAN=DPSUMLD <-- UPDATE
*-------------------------------------------------------------------*
* THE FOLLOWING STATEMENTS WILL LOAD STORAGE TABLES. *
*-------------------------------------------------------------------*
LOAD TYPE3=ASPCSTOR,TABLE=DMRPR.DMRSTADT,FROMDD=STORDD
LOAD TYPE3=SYSTSTOR,TABLE=DMRPR.DMRSTSDT,FROMDD=STORDD
PURGE TYPE3=ASPCSTOR,TABLE=DMRPR.DMRSTADT,RETPD=10D
PURGE TYPE3=SYSTSTOR,TABLE=DMRPR.DMRSTSDT,RETPD=10D
/*
//*
//* STEP4 DFSPARM
//*
//STEP4.DFSPARM DD *
LIST,LISTX,MOSIZE=MAX,HIPRMAX=OPTIMAL,DSPSIZE=MAX,SIZE=MAX,
DYNALLOC=(WORK,24),DYNAPCT=50,DYNSPC=1024MB,FILSZ=E04444440,DSA=MAX
/*
//*
//* STEP5 INPUT DATASETS
//*
//STEP5.STORDD DD DISP=(OLD,PASS),DSN=&RPTHI..DPDSTOR
//*
//* STEP5 DFSPARM
//*
//STEP5.DFSPARM DD *
LIST,LISTX,MOSIZE=MAX,HIPRMAX=OPTIMAL,DSPSIZE=MAX,SIZE=MAX,
DYNALLOC=(WORK,24),DYNAPCT=50,DYNSPC=1024MB,FILSZ=E04444440,DSA=MAX
/*
//*
//* DELETE DATASETS
//*
//STEP7.STORDD DD DISP=(OLD,DELETE,DELETE),DSN=&RPTHI..DPDSTOR
//
//*JOB4 : DPRSMFSG *
//* THIS JOB PROCESSES THE STORAGE RECORDS *
//*------------------------------------------------------------*
//DPRSMFSG JOB
//*
//PROCLIB JCLLIB ORDER=HIDP.BBSAMP <====UPDATE
//*
//JS010 EXEC DPPSMFA,
// PARM.STEP5='SYSTEM,UID', <====UPDATE
// PARM.STEP6='SYSTEM,UID' <====UPDATE
//*
//* STEP4 DPSYSIN INPUT PARAMETERS
//*
//STEP4.DPSYSIN DD *
GLOBAL LOG=NO,SSID=DDDD,INVFIELD=IGNORE,PLAN=DPSUMLD <-- UPDATE
*-------------------------------------------------------------------*
* THE FOLLOWING STATEMENTS WILL LOAD STORAGE TABLES. *
*-------------------------------------------------------------------*
LOAD TYPE3=ASPCSTOR,TABLE=DMRPR.DMRSTADT,FROMDD=STORDD
LOAD TYPE3=SYSTSTOR,TABLE=DMRPR.DMRSTSDT,FROMDD=STORDD
PURGE TYPE3=ASPCSTOR,TABLE=DMRPR.DMRSTADT,RETPD=10D
PURGE TYPE3=SYSTSTOR,TABLE=DMRPR.DMRSTSDT,RETPD=10D
/*
//*
//* STEP4 DFSPARM
//*
//STEP4.DFSPARM DD *
LIST,LISTX,MOSIZE=MAX,HIPRMAX=OPTIMAL,DSPSIZE=MAX,SIZE=MAX,
DYNALLOC=(WORK,24),DYNAPCT=50,DYNSPC=1024MB,FILSZ=E04444440,DSA=MAX
/*
//*
//* STEP5 INPUT DATASETS
//*
//STEP5.STORDD DD DISP=(OLD,PASS),DSN=&RPTHI..DPDSTOR
//*
//* STEP5 DFSPARM
//*
//STEP5.DFSPARM DD *
LIST,LISTX,MOSIZE=MAX,HIPRMAX=OPTIMAL,DSPSIZE=MAX,SIZE=MAX,
DYNALLOC=(WORK,24),DYNAPCT=50,DYNSPC=1024MB,FILSZ=E04444440,DSA=MAX
/*
//*
//* DELETE DATASETS
//*
//STEP7.STORDD DD DISP=(OLD,DELETE,DELETE),DSN=&RPTHI..DPDSTOR
//
Related topic
Tip: For faster searching, add an asterisk to the end of your partial query. Example: cert*