mainframemouli
New User
Joined: 01 Mar 2005 Posts: 52 Location: Mysore
|
|
|
|
I think we can do it
000001 //COMPR JOB 'IBMMFS','MAC',CLASS=A,MSGCLASS=X,NOTIFY=&SYSUID
000002 //STEP1 EXEC PGM=IEBCOMPR
000003 //SYSPRINT DD SYSOUT=*
000004 //SYSUT1 DD DSN=IBMMFS.MAC.PS,DISP=SHR
000005 //SYSUT2 DD DSN=IBMMFS.MAC.PSCOPY(member),DISP=SHR
000006 //SYSIN DD *
000007 COMPARE TYPORG=PS
000007 //
hope this helps you |
|