Has anyone written a utility that aids in the conversion from DF/DSS (ADRDSSU)
dump
by data set to Innovation Data Processing's FDRAPPL?
//STEP010 EXEC PGM=ADRDSSU
//SYSPRINT DD SYSOUT=*
//OUT DD DSN=DFDSS.DUMP.BY.DATA.SET,
// DISP=(NEW,CATLG,DELETE),UNIT=TAPE
//SYSIN DD *
DUMP ODD(OUT) OPTIMIZE(4) -
TOL(ENQF) -
COMPRESS -
DATASET(INCLUDE( -
WHAT.DO.YOU.WANT.TO.DUMP.** -
))
TO
//STEP015 EXEC PGM=FDRABR
//SYSPRINT DD SYSOUT=*
//SYSPRIN1 DD SYSOUT=*
//SYSPRIN2 DD SYSOUT=*
//ABRMAP DD SYSOUT=*
//ARCHIVE DD DSN=FDR.APPL.CATALOG,DISP=SHR
//TAPE1 DD UNIT=IT.DOESNOT.MATTER.WHAT.YOU.CALL.IT,
// UNIT=TAPE,DISP=(,KEEP)
//SYSIN DD *
DUMP TYPE=APPL,ARCBACKUP=NO,FORMAT=NEW,MAXCARDS=9999,PRINT=ABR,
RTC=YES,BUFNO=MAX,COMPRESS=ALL,DSNENQ=NONE,ENQ=OFF,ENQERR=NO
SELECT CATDSN= WHAT.DO.YOU.WANT.TO.DUMP.**
FIRST TENNESSEE
Confidentiality notice:
This e-mail message, including any attachments, may contain legally privileged
and/or confidential information. If you are not the intended recipient(s), or
the employee or agent responsible for delivery of this message to the intended
recipient(s), you are hereby notified that any dissemination, distribution, or
copying of this e-mail message is strictly prohibited. If you have received
this message in error, please immediately notify the sender and delete this
e-mail message from your computer.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
