JCL examples for the MDA Reversal utility

The following figure shows a JCL example for converting DFSMDA members to DFSMDA macros with the MDA Reversal utility.

Figure 1. Example of converting DFSMDA members to DFSMDA macros

//JOB
//STEP     EXEC PGM=FABXMRVS
//STEPLIB  DD DISP=SHR,DSN=HPS.SHPSLMD0
//ACBLIB   DD DISP=SHR,DSN=PROD.ACBLIB
//DFSMDA   DD DISP=SHR,DSN=PROD.MDALIB
//FABXMSRC DD SYSOUT=B,FREE=CLOSE
//FABXMOUT DD SYSOUT=A
//MDASRC   DD DISP=SHR,DSN=PDS.MDASRC
//FABXMRPT DD SYSOUT=A
//FABXMIN  DD *
  PROC FUNC=DECODE
  OPTION MDA_LIST=YES,
         FPDEDB_LIB=ACBLIB,
         RECON_ALT_DD=(RCN1,RCN2,RCN3)
  MDA NAME=HDAMDB1 
  MDA NAME=D* 
  END
/*