0

我现在正在学习大型机编程。我得到了一个 tso id 与 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。我的错误是什么?

4

2 回答 2

5

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

于 2012-07-13T08:42:08.537 回答
1

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

前缀通常与用户 ID 匹配,但可以使用 TSO PROFILE 命令进行不同的设置。要查看您的环境中定义的内容,您可以运行这个小的 REXX 脚本:

    /* REXX */
    say 'sysvar(syspref):' sysvar(syspref) 
    say 'sysvar(sysuid): ' sysvar(sysuid)  
于 2019-03-12T09:54:02.027 回答