IEFBR14

Used to create NILL dataset if creates a new pds/ps

This is a null peg can be used to create/delete physical sequential ddataset dynamically this is the IBM supplied utility

For creating : disp=(new, catlg, delete)

For deleting : disp=(mod, delete, delete)

Copying from ps to ps

1. ispf                                3.3

2. using  cobol & jcl

cobol : cob001

i-o section

file control

select input assign  i1

select out assign  o1

D.D

Fd in1

01 in-rec

fd out1

01 out-rec

P.D

Open input in1

Open output out1

Perform unitl EOF

Read in1

Write out1

End-perform

Close in1

Close out1

JCL:- job001

//job001                 job

//step001    exec     pgm=cob001

//i1                         DD      dsn=user.source.in1.disp=shr

//o1                        DD      “                      “    .out1 “       “

//sysout                  DD      sysout =*

//sysprint    DD      ””””

//

using IBM utility for copying ps

//job001           job(xyz), ‘abc’ class= L MSGclass=x,  MSGLEVEL=(1,1), time=(1,1) reglon=look,type run= run,  notify=&sysid

// act001                      exec     pgm=IEBGENER

//sysout                        DD      DSN=user.sour.data.ps1, disp=shr

//sysout                        DD      DSN=user.sour.data.ps2 disp=old

//sysout                        DD      sysout=*

//sysprint                      DD      sysput=*