The AMU provides two additional reporting facilities. The Component Listing by Dialog (LADAMU20) lists all component entities for each dialog, program, and schema. The Migration Component Cross-Reference Report (LADAMU25) lists each component and all entities which reference it, within the scope of the migration.
The execution of these reports is optional, but is prohibited if OPTIONS=DUPS=DROP was specified in Phase I. This is due to the fact that the specification of that option causes all cross-referencing records to be dropped from the EXTRACT file.
The input to these reports can be any EXTRACT file. However, it is recommended that the EXTRACT file which is input to Phase III be used, as it contains the fully updated migration status (which is displayed in both reports).
You can limit the extent of these reports by using a sort exit to drop records from the EXTRACT file. For example, if you do not care to see the use of classes and attributes, your sort exit would specify to drop all records with 120 or 140 in positions 1-3. See figure 1 under File Descriptions for the definition of entity codes.
//jobname JOB site parameters //step1 EXEC standard site SORT include site standard SORT JCL //SORTIN DD DSN=sorted10,DISP=SHR from Phase III //SORTOUT DD DSN=extr19,DISP=(,CATLG,DELETE),UNIT=unit, // SPACE=space1,DCB=(RECFM=FB,LRECL=250,BLKSIZE=blksz) //SYSIN DD * SORT FIELDS=(1,51,BI,A,116,1,BI,A) /* //step2 EXEC PGM=LADAMU19 //STEPLIB DD DSN=loadlib,DISP=SHR //INFILE DD DSN=extr19,DISP=OLD //step3 EXEC standard site SORT include site standard SORT JCL //SORTIN DD DSN=extr19,DISP=SHR //SORTOUT DD DSN=sorted19,DISP=(,CATLG,DELETE),UNIT=unit, // SPACE=space1,DCB=(RECFM=FB,LRECL=250,BLKSIZE=blksz) //SYSIN DD * SORT FIELDS=(159,13,BI,A,4,48,BI,A) /* //step4 EXEC PGM=LADAMU20 //STEPLIB DD DSN=loadlib,DISP=SHR //INFILE DD DSN=sorted19,DISP=SHR //SYSLST DD SYSOUT=sysout class /* // //jobname JOB site parameters //step1 EXEC standard site SORT include site standard SORT JCL //SORTIN DD DSN=sorted10,DISP=SHR from Phase III //SORTOUT DD DSN=extr25,DISP=(,CATLG,DELETE),UNIT=unit, // SPACE=space1,DCB=(RECFM=FB,LRECL=250,BLKSIZE=blksz) //SYSIN DD * SORT FIELDS=(1,98,BI,A,117,39,BI,A) /* //step2 EXEC PGM=LADAMU25 //STEPLIB DD DSN=loadlib,DISP=SHR //INFILE DD DSN=extr25,DISP=SHR //SYSLST DD SYSOUT=sysout class /* //
* $$ JOB JNM=jobname,site parameters // JOB site parameters * step1 - SORT extract file for LADAMU19 Execute your standard site SORT. Use 'sorted10' from Phase III as SORTIN. Call SORTOUT 'extr19'. SORT FIELDS=(1,51,BI,A,116,1,BI,A),WORK=work RECORD TYPE=F,LENGTH=(250) INPFIL BLKSIZE=3500 OUTFIL BLKSIZE=3500 /* * step2- LADAMU19 // ASSGN SYS030,DISK,VOL=volume,SHR // DLBL INFILE,'extr19',0 // EXTENT SYS030,volume,,,space1 // EXEC LADAMU19 /* * step3- SORT 'extr19' for LADAMU20 Execute your standard site SORT. Use 'extr19' as SORTIN. Call SORTOUT 'sorted19'. SORT FIELDS=(159,13,BI,A,4,48,BI,A),WORK=work RECORD TYPE=F,LENGTH=(250) INPFIL BLKSIZE=3500 OUTFIL BLKSIZE=3500 /* * step4- LADAMU20 // ASSGN SYS0005,SYSLST // ASSGN SYS030,DISK,VOL=volume,SHR // DLBL INFILE,'sorted19',0 // EXTENT SYS030,volume,,,space1 // EXEC LADAMU20 /* /& * $$ EOJ * $$ JOB JNM=jobname,site parameters // JOB site parameters * step1 - SORT extract file for LADAMU25 Execute your standard site SORT. Use 'sorted10' from Phase III as SORTIN. Call SORTOUT 'extr25'. SORT FIELDS=(1,98,BI,A,117,39,BI,A),WORK=work RECORD TYPE=F,LENGTH=(250) INPFIL BLKSIZE=3500 OUTFIL BLKSIZE=3500 /* * step2- LADAMU25 // ASSGN SYS0005,SYSLST // ASSGN SYS030,DISK,VOL=volume,SHR // DLBL INFILE,'sorted19',0 // EXTENT SYS030,volume,,,space1 // EXEC LADAMU25 /* /& * $$ EOJ