0

当我尝试通过在 JCL 文件上运行 SUB 来预编译我的 COBOL 应用程序时,我收到此错误:

19.30.05 JOB08639 $HASP165 ZUSER13A ENDED AT SVSCJES2 - JCL ERROR CN(INTERNAL)

我试过在网上找,没有成功。有谁知道这是指什么?

这是我的 JCL 文件

000001 //ZUSER13A JOB NOTIFY=&SYSUID
000002 //*--------------------------------------------------------------------*
000003 //*    PRECOMP - PRECOMPILE THE COBOL PROGRAM                          *
000004 //*  YOU SHOULD CHANGE ZUSER26 TO YOUR OWN TSO USERID                  *
000005 //*  YOU SHOULD CUSTOMIZE THE FOLLOWING LIBRARIES WITH HELP OF TEACHER *
000006 //*--------------------------------------------------------------------*
000007 //*--------------------------------------------------------------------*
000008 //*    THE FOLLOWING 8 SYMBOLIC PARAMETERS SHOULD BE SET BY YOURSELF   *
000009 //*  ? (1) DB2LOAD - THE DB2 LOAD LIBRARY                              *
000010 //*  ? (2) WSPC    - THE SIZE FOR TEMPARARY DATA SET                   *
000011 //*  ? (3) DASD    - THE UNIT VALUE FOR DASD                           *
000012 //*  ? (4) SRC     - THE COBOL SOURCE PROGRAM LIBRARY                  *
000013 //*  ? (5) CPY     - THE COBOL COPYBOOK LIBRARY                        *

000014 //*  ? (6) DBRM    - THE DBRM LIBRARY FOR DB2 BIND PROCESS             *
000015 //*  ? (7) MID     - THE MODIFIED COBOL SOURCE CODE LIBRARY            *
000016 //*  ? (8) TRAN    - THE TRANSACTION/FUNCTION MODULE NAME              *
000017 //*--------------------------------------------------------------------*
000018 // SET    DB2LOAD=ZUSER13.DB2.LOAD
000019 // SET    WSPC=500
000020 // SET    DASD=SYSDA
000021 // SET    SRC=ZUSER13.DB2.SRC
000022 // SET    CPY=ZUSER13.DB2.CPY
000023 // SET    DBRM=ZUSER13.DB2.DBRM
000024 // SET    MID=ZUSER13.DB2.MID
000025 // SET    TRAN=OPACCT
000026 //*------------------------------------------------------------------*
000027 //*            PRECOMPILE THE COBOL PROGRAM                          *
000028 //*            RETURN CODE SHOULD BE 4 OR LESS                       *
000029 //*------------------------------------------------------------------*
000030 //PC      EXEC PGM=DSNHPC,REGION=4096K,
000031 //        PARM=('HOST(IBMCOB)',APOST,APOSTSQL,SOURCE,XREF,'STDSQL(NO)')

000032 //STEPLIB  DD  DISP=SHR,DSN=&DB2LOAD
000033 //SYSCIN   DD  DISP=SHR,DSN=&MID(&TRAN)
000034 //SYSPRINT DD  SYSOUT=*
000035 //SYSTERM  DD  SYSOUT=*
000036 //SYSUDUMP DD  SYSOUT=*
000037 //SYSUT1   DD  SPACE=(800,(&WSPC,&WSPC),,,ROUND),UNIT=&DASD
000038 //SYSUT2   DD  SPACE=(800,(&WSPC,&WSPC),,,ROUND),UNIT=&DASD
000039 //SYSIN    DD  DISP=SHR,DSN=&SRC(&TRAN)
000040 //SYSLIB   DD  DISP=SHR,DSN=&CPY
000041 //DBRMLIB  DD  DISP=SHR,DSN=&DBRM(&TRAN)
000042 //
4

1 回答 1

2

我想知道你的工作卡是否有效。你有:

//ZUSER13A JOB NOTIFY=&SYSUID    

JCL 工作卡格式为:

//jobname JOB (accounting-info),name,keyword-parameters   

作业名是必需的,你有ZUSER13A

关键字JOB是它应该在的地方。到现在为止还挺好...

您没有任何accounting-info。根据您的安装,这可能需要也可能不需要(通常是这样)。会计信息的格式是安装定义的,因此您必须向某人询问。请注意,仅当accounting-info不包含嵌入的逗号或其他特殊字符时,括号才是可选的。

接下来,如果工作卡上指定了其他任何内容,则必须有一个逗号。这不是可选的,可能是您的问题的原因。

逗号后面应该是用引号括起来的某种名称。例如“预科普”。这也可能有安装特定的规则。

接下来,如果要在工作卡上包含任何关键字参数,则必须有另一个逗号。

最后,您可以指定关键字参数,例如NOTIFY=。我不确定诸如&USERID之类的替换参数是否在这里有效,除非作业是在已启动的任务下提交的。由于您使用SUB提交作业(在 TSO 下?),&USERID也可能不适合您。尝试对您的用户 ID 进行硬编码。

通常,找出工作卡必须包含的内容的最快方法是查看在 TSO 下提交时实际工作的 JCL 片段 - 然后复制工作卡!

于 2011-03-07T15:54:53.250 回答