使用和构建 COBOL Db2 程序 AWS Mainframe ModernizationAWS CodeBuild

Luis Gustavo Dantas 和 Eduardo Zimelewicz，Amazon Web Services

摘要

此模式说明了如何使用 Replatform 工具创建一个用于预编译和绑定 COBOL Db2 程序的简单 AWS CodeBuild 项目。 AWS Mainframe Modernization 这允许在 AWS Mainframe Modernization Replatform 运行时环境中部署和执行这些程序。

COBOL 是一种面向业务的编程语言，由于其可靠性和可读性，它为许多关键应用程序提供了支持。IBM Db2 是一种关系数据库管理系统，可高效管理大量数据，并通过 SQL 与 COBOL 程序集成。尽管出现了新技术，但COBOL和Db2共同构成了金融和政府等行业关键任务运营的支柱。

将 COBOL 和 Db2 组件从大型机环境迁移到其他平台会带来诸如平台兼容性、集成复杂性、数据迁移和性能优化之类的挑战。移动这些关键组件需要仔细的规划、技术专业知识和资源，以确保顺利迁移，同时保持可靠性和功能性。

该 AWS Mainframe Modernization 服务提供工具和资源，用于将大型机应用程序和数据库改为在 AWS 基础设施（例如亚马逊弹性计算云 (Amazon) 实例 EC2）上运行。这涉及在不进行重大代码更改的情况下将大型机工作负载迁移到云端。

Db2 预编译和绑定过程对于优化数据库应用程序的性能和可靠性至关重要。预编译可将嵌入式 SQL 语句转换为可执行代码，从而减少运行时开销并提高效率。绑定过程将预编译的代码与数据库结构联系起来，从而便于访问路径和查询优化。此过程可确保数据完整性，提高应用程序响应能力，并防范安全漏洞。正确预编译和绑定应用程序可最大限度地减少资源消耗、增强可扩展性并降低 SQL 注入攻击的风险。

先决条件和限制

先决条件

限制

架构

源技术堆栈

源堆栈包括：

目标技术堆栈

这种模式的方法适用于两个选项：将数据从 Db2 for 移动 z/OS 到 Db2 for LUW，或者停留在 Db2 上适用于 z/OS。目标架构包括：

目标架构

该图阐释了以下内容：

为了使事情变得简单并专注于构建，此模式中的说明涵盖了步骤 1 到 4，但不包括 COBOL Db2 程序的部署。

自动化和扩缩

为简单起见，此模式描述了如何手动配置资源。但是，有许多自动化选项可用，例如 AWS CloudFormation AWS Cloud Development Kit (AWS CDK)、和 HashiCorp Terraform，它们可以自动执行这些任务。有关更多信息，请参阅AWS CloudFormation和AWS CDK文档。

工具

AWS 服务

其他工具

最佳实践

操作说明

select CAST(NAME AS VARCHAR(10)) as name, VALIDATE, LAST_BIND_TIME, LASTUSED, CAST(PKGVERSION AS VARCHAR(10)) as PKGVERSION from SYSIBM.SYSPLAN where NAME = 'CDB2SMP' order by LAST_BIND_TIME desc

NAME       VALIDATE LAST_BIND_TIME             LASTUSED   PKGVERSION
---------- -------- -------------------------- ---------- ----------
CDB2SMP    B        2024-05-18-11.53.11.503738 01/01/0001 19

故障排除

db2 connect to $DB_NAME user $DB2USER using $DB2PASS

相关资源

IBM 文档

AWS 文档

其他信息

CodeBuild 策略

用您的值替换占位符<RegionID><AccountID><SubnetARN><BucketARN>、、、和<DB2CredSecretARN>。

{"Version": "2012-10-17",		 	 	 
    "Statement": [
        {"Action": "ecr:GetAuthorizationToken", "Effect": "Allow", "Resource": "*" },
        {"Action": ["ecr:GetDownloadUrlForLayer", "ecr:BatchGetImage", 
                    "ecr:BatchCheckLayerAvailability"],
         "Effect": "Allow", 
         "Resource": "arn:aws:ecr:*:673918848628:repository/m2-enterprise-build-tools"},
        {"Action": "s3:PutObject", "Effect": "Allow", "Resource": "arn:aws:s3:::aws-m2-repo-*/*"},
        {"Action": ["logs:PutLogEvents", "logs:CreateLogStream", "logs:CreateLogGroup"],
         "Effect": "Allow", "Resource": "arn:aws:logs:<RegionId>:<AccountId>:*"},
        {"Action": ["ec2:DescribeVpcs", "ec2:DescribeSubnets", 
                    "ec2:DescribeSecurityGroups", "ec2:DescribeNetworkInterfaces", 
                    "ec2:DescribeDhcpOptions", "ec2:DeleteNetworkInterface", 
                    "ec2:CreateNetworkInterface"],
         "Effect": "Allow", "Resource": "*"},
        {"Action": "ec2:CreateNetworkInterfacePermission", 
         "Effect": "Allow", "Resource": ["<SubnetARN>"]},
        {"Action": "s3:*", "Effect": "Allow", "Resource": ["<BucketARN>/*","<BucketARN>"]},
        {"Action": "secretsmanager:GetSecretValue", 
         "Effect": "Allow", "Resource": "<DB2CredSecretARN>"}
    ]
}

CodePipeline 策略

用您的值替换占位<ConnectionARN>符<BucketARN>和。

{
    "Version": "2012-10-17",		 	 	 
    "Statement": [
        {"Action": ["s3:List*", "s3:GetObjectVersion", "s3:GetObject", "s3:GetBucketVersioning" ], 
        "Effect": "Allow",
        "Resource": ["<BucketARN>/*", "<BucketARN>"]},
        {"Action": ["codebuild:StartBuild", "codebuild:BatchGetBuilds"], 
         "Effect": "Allow", "Resource": "*"},
        {"Action": ["codestar-connections:UseConnection"],
         "Effect": "Allow", "Resource": "<ConnectionARN>"}
        ]
}

buildspec.yml

将<your-bucket-name>占位符替换为您实际的 S3 存储桶名称。

version: 0.2
phases:
  pre_build:
    commands:
      - /var/microfocuslicensing/bin/mfcesd -no > /var/microfocuslicensing/logs/mfcesd_startup.log 2>&1 &
      - |
        mkdir $CODEBUILD_SRC_DIR/db2client
        aws s3 cp s3://<your-bucket-name>/v11.5.8_linuxx64_client.tar.gz $CODEBUILD_SRC_DIR/db2client/ >> /dev/null 2>&1
        tar -xf $CODEBUILD_SRC_DIR/db2client/v11.5.8_linuxx64_client.tar.gz -C $CODEBUILD_SRC_DIR/db2client/
        cd $CODEBUILD_SRC_DIR/db2client/
        ./client/db2_install -f sysreq -y -b /opt/ibm/db2/V11.5 >> /dev/null 2>&1        
        useradd db2cli
        /opt/ibm/db2/V11.5/instance/db2icrt -s client -u db2cli db2cli
        DB2CRED=$(aws secretsmanager get-secret-value --secret-id dev-db2-cred | jq -r '.SecretString | fromjson')
        read -r DB2USER DB2PASS DB_NODE DB_HOST DB_PORT DB_NAME DB_QUAL <<<$(echo $DB2CRED | jq -r '.username, .password, .db2node, .db2host, .db2port, .db2name, .qualifier')
        . /home/db2cli/sqllib/db2profile
        db2 catalog tcpip node $DB_NODE remote $DB_HOST server $DB_PORT
        db2 catalog db $DB_NAME as $DB_NAME at node $DB_NODE authentication server
  build:
    commands:
      - |
        revision=$CODEBUILD_SRC_DIR/loadlib
        mkdir -p $revision; cd $revision
        . /opt/microfocus/EnterpriseDeveloper/bin/cobsetenv
        cob -zU $CODEBUILD_SRC_DIR/CDB2SMP.cbl -C "DB2(DB==${DB_NAME} PASS==${DB2USER}.${DB2PASS} VERSION==${CODEBUILD_BUILD_NUMBER} COLLECTION==DB2AWSDB"
artifacts:
  files:
    - "**/*"
  base-directory: $revision