//IMPRIODF JOB (ACCT),ONEPAK,REGION=4M,                                 JOB05457
//            CLASS=A,MSGCLASS=H,NOTIFY=&SYSUID,COND=(0,NE)
//********************************************************************
//* PLEASE CHANGE THE RECEIVE DD STATEMENT DSN TO THE IODF98 FILE
//* CREATED BY THE TRSMAIN UNPACK.
//********************************************************************
//DEL02      EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//DD1      DD DISP=OLD,UNIT=SYSDA,VOL=SER=A2SYS1
//SYSIN    DD *
 DEL SYS1.IODF98.CLUSTER FILE(DD1) CATALOG(CATALOG.Z22A.MASTER)
 DEL SYS1.IODF98.CLUSTER FILE(DD1)
 SET MAXCC= 0
/*
//ST1      EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN    DD *
     DEFINE CLUSTER (NAME(SYS1.IODF98.CLUSTER) -                        01050000
     LINEAR -                                                           01100000
     RECORDS(1000) -                                                    01150000
     VOLUME(A2SYS1) -                                                   01200000
     ) -                                                                01250000
     DATA (NAME (SYS1.IODF98) )                                         01300000
/*                                                                      01350000
//ST2      EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//RECEIVE  DD DISP=SHR,DSN=USE.EXPORTED.IODF98.FILE,
//            UNIT=SYSDA
//DD1      DD DISP=OLD,UNIT=SYSDA,VOL=SER=A2SYS1
//SYSIN    DD *
 IMPORT INFILE(RECEIVE) OUTDATASET(SYS1.IODF98.CLUSTER) -
        INTOEMPTY -
        OBJECTS( -
             (SYS1.IODF98.CLUSTER -
                 NEWNAME(SYS1.IODF98.CLUSTER) -
                 VOLUMES(A2SYS1) -
                 FILE(DD1)      -
                                                 )  -
             (SYS1.IODF98             -
                 NEWNAME(SYS1.IODF98        ) -
                 VOLUMES(A2SYS1) -
                 FILE(DD1)      -
                                                 )  -
               )