Question

我正在学习大型机编程。我得到了dezhi和我正在使用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 is more than what is usually required to    *
    //* delete a VSAM Data Set. However, the purpose is to illustrate the *
    //* functions of the IDCAMS utility.                                  *
    //*********************************************************************
    //*
    //         EXEC PGM=IDCAMS
    //SYSPRINT DD  SYSOUT=*
    //SYSIN    DD  *
      DELETE    CATIA81.DATA.VKSD0080   -
                FILE (VKSD0080)          -
                PURGE                    -
                ERASE                    -
                CLUSTER
      SET       MAXCC = 0
     /*
    //

原始的JOBNAME是KSDDELJ1，我改为CATIA81KDEL1。我的错误是什么？

Answer 1

作业名称不能超过8个字符，将作业名称从CATIA81KDEL1更改为CATIA81K

Answer 2

除了工作名称不能超过8个字符外，您还希望将数据集名称用引号引起来，除非您不希望它明确地完全合格。否则，TSO将用户前缀添加到名称的前面。

前缀通常与用户ID匹配，但可以使用TSO PROFILE命令进行不同的设置。要查看您的环境中定义了什么，可以运行以下REXX脚本：

SELECT STRING_AGG(Doctor name, ', ') AS Doctor name, 
       firsttime, 
       lasttime 
FROM table 
GROUP BY firstdate, lastdate;

提交TSO ERROR的工作

2 个答案: