How to use JCL facilities to allocate other types of DASD data sets

1.Allocating a single-step temporary data set (a work file)
Example 1
//WORK1    DD   UNIT=SYSDA,SPACE=(CYL,(10,5))
Allocates a temporary data set on a SYSDA volume using 10 cylinders of primary and 5 cylinders of secondary space. DISP=(NEW,DELETE) is assumed.

Example 2
//WORK2    DD   UNIT=SYSDA,DISP=(NEW,DELETE),
//             SPACE=(3200,(500,500)),
//             DCB=LRECL=120
Allocates a temporary data set on a SYSDA volume using 500 blocks of primary and secondary space. DISP=(NEW,DELETE) is specified, but could be omitted since it’s the default. The record length is 120 bytes.

2.A two-step job that uses temporary data sets
//MM01RN   JOB  (36512),'R MENENDEZ',MSGCLASS=X,MSGLEVEL=(1,1),
//             CLASS=A,NOTIFY=&SYSUID
//SORT     EXEC PGM=SORT
//SYSOUT   DD   SYSOUT=*
//SORTIN   DD   DSNAME=MMA2.AR.CUSTOMER.MASTER,DISP=SHR
//SORTWK01 DD   UNIT=SYSDA,SPACE=(TRK,(1,1))
//SORTWK02 DD   UNIT=SYSDA,SPACE=(TRK,(1,1))
//SORTWK03 DD   UNIT=SYSDA,SPACE=(TRK,(1,1))
//SORTOUT  DD   DSNAME=&&SORTCUST,DISP=(NEW,PASS),
//             UNIT=SYSDA,SPACE=(TRK,(1,1))
//SYSIN    DD   *
 SORT FIELDS=(2,13,A,20,1,A),FORMAT=CH
/*

//REPORT   EXEC PGM=CUSTLST
//SYSOUT   DD   SYSOUT=*
//CUSTMAST DD   DSNAME=&&SORTCUST,DISP=(OLD,DELETE)
//ATB      DD   SYSOUT=*
//SYSUDUMP DD   SYSOUT=*

3.Examples of VIO temporary data sets
Example 1
//TEMP1    DD   UNIT=VIO
The data set is defined as a VIO temporary work file that’s deleted at the end of the job step.

Example 2
//DD1      DD   UNIT=SYSDA,SPACE=(1000,(10,50)),
//             DCB=(RECFM=FB,LRECL=40)
If enough VIO space is available during the execution of the job step, the system will define the file as a VIO temporary data set. Otherwise, it’ll be defined as a DASD temporary data set. In either case, it’s deleted at the end of the job step.

Example 3
//SORTOUT  DD   DSNAME=&&PRODCD,DISP=(NEW,PASS),
//             UNIT=SYSDA,SPACE=(1000,(20,70))
&&PRODCD will be defined as a VIO or DASD temporary data set, depending on the available VIO space. In either case, DISP=(NEW,PASS) will allow the data set to be available to subsequent job steps.

4.Allocating a dummy data set
Example 1
//SYSIN    DD   DUMMY
Allocates a dummy data set. OS/390 simulates input and output processing, but no I/O operations are actually performed.

Example 2
//CUSTMAST DD   DUMMY,AMP=AMORG
Allocates a dummy VSAM data set.

Example 3
//TRANFILE DD   DUMMY,DSNAME=AR.TRANS.FILE,DISP=(NEW,KEEP),
//             UNIT=SYSDA,VOL=SER=MPS800,
//             SPACE=(CYL,(5,1)),
//             DCB=(DSORG=PS,RECFM=FB,LRECL=80)
Allocates a dummy data set using the specified file characteristics. When the DUMMY parameter is removed, this DD statement will allocate an actual data set.

Example 4
//TRANFILE DD   DSNAME=NULLFILE,DISP=(NEW,KEEP),
//             UNIT=SYSDA,VOL=SER=MPS800,
//             SPACE=(CYL,(5,1)),
//             DCB=(DSORG=PS,RECFM=FB,LRECL=80)
Allocates a dummy data set using the specified file characteristics. When NULLFILE is changed to a data set name, this DD statement will allocate an actual data set.


0 comments:

Computers TopOfBlogs Technology Blogs Mainframe interview question and answers,mainframe jobs,cobol,vsam,jcl,cics,db2,rdbms,mvs,tso,ispf,ibm,hcl,tcs,cts,wibro Blog Directory