如果将本抄写本添加到链接部分而不是将其添加到子程序的工作存储部分中会发生什么？
我的文件上有一个7位数的压缩十进制字段.如何定义将提取/分离这7个数字的数据项？
例如,我希望一个数据项中的前两位数字和另一个数据项中的其他数字,所以我可以稍后操作它们.
我使用下面的jcl来修改现有的ps.我能够修改参数.但我得到一个I/O错误.
// TXXXXXSP JOB(MOD),'PRAMOD',CLASS = A,MSGCLASS = X,MSGLEVEL =(1,1),
// NOTIFY =&SYSUID
// FIXPDS EXEC PGM = IEBGENER
// SYSPRINT DD SYSOUT =*
// SYSIN DD DUMMY
// SYSUT2 DD DSN = XXXXXX.CREATE.GDG,
// DISP = MOD,SPACE =(TRK,(10, 10,0),RLSE),UNIT = SYSDA,
// DCB =(RECFM = FB,LRECL = 80,BLKSIZE = 800)
// SYSUT1 DD*
/*
//
我需要删除前x行,我需要通过Cobol来完成.可能吗？似乎DELETE语句仅适用于VSAM文件？
我想使用显示语句显示这些单词 公司的政策但如果我使用它,它会将这些单词视为变量.我试过用了
DISPLAY "COMPANY'S POLICY"
DISPLAY 'COMPANY\'S POLICY'
但都没有效果.怎么逃避这个单引号？
示例代码:
DFHMDF POS=(1,23),LENGTH=30,
INITIAL="company's policy"
ATTRB=PROT
我现在正在学习大型机编程。我在Dezhi得到了一个tso ID，并且正在使用PASSPORT终端仿真器。我的用户是CATIA81
我上传了一些工作和一个cobol程序进行测试。我试图通过ISPF COMMAND SHELL提交工作：
SUBMIT CATIA81.KSDCRTJ1.JCL
我得到以下错误：
SUBMIT cancelled, JOBNAME must start with CATIA81
这就是我所拥有的
//CATIA81KDEL1 JOB CSBL81,CLASS=1,MSGCLASS=0,NOTIFY=CSIP1
//* *******************************************************************
//* This program is provided by: SimoTime Enterprises *
//* (C) Copyright 1987-2012 All Rights Reserved *
//* Web Site URL: http://www.simotime.com *
//* e-mail: helpdesk@simotime.com *
//* *******************************************************************
//* Subject: JCL to delete a VSAM Data Set using the IDCAMS Utility *
//* Author: SimoTime Enterprises *
//* Date: January 1, 1998 *
//*-------------------------------------------------------------------*
//* The following example …我正在编写一个 COBOL 代码，但无法弄清楚为什么这个错误代码读取
“OPEN”不应从区域“A”开始。它被处理为好像在区域“B”中找到一样
具体来说，它指的PROCEDURE DIVISION是OPEN INPUT CUST-PROF
*-----------------------
IDENTIFICATION DIVISION.
*-----------------------
PROGRAM-ID. FSOC050
*--------------------
ENVIRONMENT DIVISION.
*--------------------
INPUT-OUTPUT SECTION.
*
FILE-CONTROL.
SELECT CUST-PROF ASSIGN TO CUSTPROF
ORGANIZATION IS SEQUENTIAL.
*-------------
DATA DIVISION.
*-------------
FILE SECTION.
FD CUST-PROF RECORDING MODE F.
01 CUST-PROF-01.
05 CUST-NO PIC X(6).
05 CUST-NAME PIC X(35).
05 CUST-STREET-ADDR PIC X(25).
05 CUST-CITY PIC X(11).
05 CUST-STATE PIC X(2).
05 CUST-CARD-TYPE PIC X(4).
05 CUST-CARD-EXP-MO PIC X(2).
05 CUST-CARD-EXP-YR PIC X(2).
05 CUST-CARD-NO …