Las traducciones son generadas a través de traducción automática. En caso de conflicto entre la traducción y la version original de inglés, prevalecerá la version en inglés.

Colección de artefactos fuente de mainframe

En este tema se describe el proceso de recopilación del código fuente del mainframe y los artefactos relacionados para respaldar las iniciativas de modernización del mainframe mediante Transform. AWS La recopilación y preparación adecuadas de los artefactos fuente son fundamentales para el éxito del análisis, la planificación de la migración y la implementación.

Inventario de código fuente

Tipos de código fuente de la aplicación

Se admiten los siguientes tipos de código fuente de aplicaciones:

Recursos de bases de datos

Se admiten los siguientes activos de base de datos:

Extensiones de archivos de código fuente

Si no está seguro de la extensión, déjela en blanco o en formato.txt y AWS Transform la clasificará automáticamente.

En la siguiente tabla se enumeran las extensiones de archivo más comunes para los artefactos fuente de mainframe.

Métodos de cobro

Extracción de código fuente

Utilice clientes FTP seguros (WinSCP/FileZilla) para la extracción interactiva del código fuente de las bibliotecas PDS de mainframe.

Extracción de esquemas DB2

El software de cliente DB2 LUW (Linux, UNIX y Windows) incluye la db2look utilidad como parte de su paquete de instalación. La db2look utilidad extrae las sentencias DDL (lenguaje de definición de datos) de una base de datos DB2.

Use el siguiente comando:

db2look -d DATABASE_NAME -i userid -w password -a -e -m -l -x -f -createdb -printdbcfg -o DATABASE_NAME.sql

La siguiente lista describe los parámetros:

Extraer la información del catálogo del mainframe

El comando LISTCAT de IDCAMS es una utilidad para recuperar la información del catálogo sobre los conjuntos de datos del ordenador central. Esto resulta útil durante los proyectos de modernización del mainframe para inventariar los conjuntos de datos y comprender sus características.

//LSTCATJ JOB 'LISTCAT',CLASS=A,MSGCLASS=X,NOTIFY=&SYSUID
//*
//STEP1 EXEC PGM=IDCAMS
//*
//SYSPRINT DD DSN=AWS.M2.CATALOG.LIST,
//            DISP=(NEW,CATLG,DELETE),
//            SPACE=(CYL,(1,1),RLSE),
//            DCB=(RECFM=FBA,LRECL=133,BLKSIZE=0)
//*
//SYSIN DD *
  LISTCAT ENT('AWS.M2.CARDDEMO.*') ALL
  LISTCAT ENT('SYS1.*') ALL
/*

Extraer las definiciones de CICS

La utilidad IBM-provided DFHCSDUP puede extraer las definiciones de recursos del CICS del archivo de definición del sistema (CSD) del CICS.

Utilice el siguiente JCL para descargar las definiciones existentes del DFHCSD:

//CSDEXTJ JOB 'EXTRACT CSD',CLASS=A,MSGCLASS=X,NOTIFY=&SYSUID
//*
//STEP1 EXEC PGM=DFHCSDUP,REGION=0M,
//          PARM='CSD(READONLY),PAGESIZE(60),NOCOMPAT'
//*
//STEPLIB  DD DSN=your-hlq.SDFHLOAD,DISP=SHR
//DFHCSD   DD DSN=your-hlq.DFHCSD,DISP=SHR
//*
//CBDOUT   DD DSN=your-hlq.CSD,
//            DISP=(NEW,CATLG,DELETE),
//            SPACE=(CYL,(1,1),RLSE),
//            DCB=(RECFM=FB,LRECL=80,BLKSIZE=0)
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
  EXTRACT GROUP(cics-group) USERPROGRAM(DFH0CBDC) OBJECTS
/*

Extraer definiciones de IMS

Para extraer las definiciones de IMS, puede generar el archivo de transacciones de IMS mediante la utilidad DFSURDD0. Esta utilidad crea macrosentencias de fase 1 que puede utilizar con fines de migración. Actualmente, solo se admite IMS Stage 1.

Utilice el siguiente JCL para extraer las definiciones de IMS:

//IMSEXTJ JOB 'IMS STAGE 1',CLASS=A,MSGCLASS=X,NOTIFY=&SYSUID
//*
//STEP1 EXEC PGM=DFSURDD0,MEMLIMIT=12G
//*
//STEPLIB  DD DISP=SHR,DSN=your-hlq.SDFSRESL
//*
//RDDSDSN DD DISP=SHR,DSN=your-rdds
//*
//SYSOUT   DD DSN=your-hlq.STAGE1.IMS,
//            DISP=(NEW,CATLG,DELETE),
//            SPACE=(CYL,(1,1),RLSE),
//            DCB=(RECFM=FB,LRECL=80,BLKSIZE=0)
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
  OUTPUT=MAC
/*

Extraer información CA-7 del planificador

CA-7 La información del cronograma de trabajo se incluye en los informes de LJOB. Utilice la utilidad LJOB con el LIST=NODD parámetro para generar los informes en el ordenador central. Los informes deben tener una .ca7 extensión. Cada informe debe tener los caracteres de control de transporte ANSI en la columna 1. Puede crear un informe con los caracteres de control de transporte en la columna 1 especificando DCB=RECFM=FBA (o FA) en el JCL utilizado para ejecutar la utilidad LJOB.

Por ejemplo: LJOB,JOB=ZBN*,LIST=ALL

Para obtener más información, consulte la documentación de Broadcom.

Extracción de datos SMF

Los registros del Sistema de Administración de Sistemas (SMF) proporcionan métricas de actividad utilizadas por AWS Transform para analizar el uso de los trabajos por lotes y las transacciones CICS. Se admiten los siguientes tipos de registros SMF: 14, 15, 30 (subtipo 5), 64, 102, 110 (subtipo 1 con clases de datos 1, 3 y 4).

Requisitos de formato para los registros SMF:

Proporcione un mínimo de 13 meses de registros SMF para capturar los ciclos de lotes anuales y los patrones estacionales que podrían pasar desapercibidos en plazos más cortos.

Opción 1: Extraer y ordenar los registros SMF

Utilice el siguiente ejemplo de JCL para extraer y ordenar los registros SMF:

//SMFEXTR  JOB (ACCT),'EXTRACT SMF',CLASS=A,
//             MSGCLASS=X,NOTIFY=&SYSUID
//*-------------------------------------------------------------------*
//* SMF RECORD EXTRACTION TEMPLATE
//* CUSTOMIZE: Job card, dataset names, date range, record types
//*-------------------------------------------------------------------*
//*
//* STEP 1: EXTRACT SMF RECORDS
//*
//EXTRACT  EXEC PGM=IFASMFDP
//SYSPRINT DD SYSOUT=*
//*
//* INPUT: Specify your SMF datasets (MAN files or GDG)
//*
//DUMPIN   DD DISP=SHR,DSN=SYS1.MAN1
//         DD DISP=SHR,DSN=SYS1.MAN2
//         DD DISP=SHR,DSN=SYS1.MAN3
//*
//* OUTPUT: Extracted SMF records
//*
//DUMPOUT  DD DSN=your.hlq.SMF.EXTRACT,
//            DISP=(NEW,CATLG,DELETE),
//            UNIT=SYSDA,
//            SPACE=(CYL,(500,100),RLSE),
//            DCB=(RECFM=VBS,LRECL=32760,BLKSIZE=27998)
//*
//* CONTROL CARDS
//*
//SYSIN    DD *
  INDD(DUMPIN,OPTIONS(DUMP))
  OUTDD(DUMPOUT,TYPE(14,15,30,110))
  DATE(yyyy/ddd,yyyy/ddd)
  START(0000)
  END(2359)
/*
//*
//* STEP 2: SORT EXTRACTED RECORDS (OPTIONAL)
//*
//SORT     EXEC PGM=SORT
//SORTIN   DD DISP=SHR,DSN=your.hlq.SMF.EXTRACT
//SORTOUT  DD DSN=your.hlq.SMF.SORTED,
//            DISP=(NEW,CATLG,DELETE),
//            UNIT=SYSDA,
//            SPACE=(CYL,(500,100),RLSE),
//            DCB=(RECFM=VBS,LRECL=32760)
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50))
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50))
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50))
//SYSOUT   DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSIN    DD *
  SORT FIELDS=(11,4,CH,A,7,4,CH,A,15,4,CH,A),EQUALS
/*

Personalice los siguientes valores en el JCL anterior:

Opción 2: Extraer datos SMF con DFSORT

Puede usar DFSORT para consolidar y reportar datos históricos de SMF. Esto resulta útil si almacena sus registros SMF en un GDG por día o por semana. El siguiente trabajo utiliza DFSORT para consolidar los registros SMF del archivo SORTIN y filtrarlos en función de los registros especificados en el parámetro INCLUDE COND.

//EXTRSMF JOB 'EXTRACT SMF RECORDS',CLASS=S,MSGCLASS=H,
// MSGLEVEL=(1,1),REGION=0M,NOTIFY=&SYSUID,TIME=1440
//SORTJES2 EXEC PGM=SORT,REGION=0M
//SYSOUT DD SYSOUT=*
//SORTMSG DD SYSOUT=*
//SORTIN DD DISP=SHR,DSN=your.hlq.SMF.EXTRACT
//SORTOUT DD DSN=your.hlq.SMF.OUTPUT,
// DISP=(MOD,CATLG,DELETE),
// DCB=(BUFNO=20,
// RECFM=VBS,LRECL=32760,BLKSIZE=27998),
// SPACE=(CYL,(1400,900),RLSE)
//SORTWK1 DD UNIT=SYSDA,SPACE=(CYL,(30,50))
//SORTWK2 DD UNIT=SYSDA,SPACE=(CYL,(30,50))
//SORTWK3 DD UNIT=SYSDA,SPACE=(CYL,(30,50))
//SORTWK4 DD UNIT=SYSDA,SPACE=(CYL,(30,50))
//SYSIN DD *
OPTION COPY
INCLUDE COND=(6,1,BI,EQ,X'0E',OR,6,1,BI,EQ,X'0F',OR,
6,1,BI,EQ,X'1E',OR,6,1,BI,EQ,X'40',OR,
6,1,BI,EQ,X'50',OR,6,1,BI,EQ,X'59',OR,
6,1,BI,EQ,X'5C',OR,6,1,BI,EQ,X'65',OR,
6,1,BI,EQ,X'66',OR,6,1,BI,EQ,X'6E')

Para descargar los datos y conservar los datos RDW, puede utilizar un servidor FTP para recibir el archivo extraído. Asegúrese de que los datos se transfieran en formato binario y de que se utilice la opción RDW para que el RDW se incluya en la transferencia de datos. El siguiente trabajo muestra un ejemplo de trabajo de FTP para transferir este archivo.

//EXTRSMF JOB 'EXTRACT SMF RECORDS',CLASS=A,MSGCLASS=H,
// MSGLEVEL=(1,1),REGION=0M,NOTIFY=&SYSUID,TIME=1440
//STEP1 EXEC PGM=FTP,REGION=2048K
//SYSIN DD *
10.10.10.10
userid
password
type i
LOCSITE RDW
put 'your.hlq.SMF.OUTPUT' SMFREQS.SMF
quit

Cargando el informe SCRT

También puedes cargar un Sub-Capacity informe de la herramienta de informes (SCRT) en Transform. AWS

Carga del inventario de la aplicación

Una vez que hayas recolectado todos los artefactos, sigue estos pasos:

Para obtener instrucciones detalladas sobre cómo conectar su bucket de Amazon S3 a AWS Transform, consulteConfigure un conector.