当我尝试预编译我的COBOL应用程序时，通过在JCL文件上运行SUB来使用，我收到此错误：
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 //
答案 0 :(得分：2)
我想知道你的工作卡是否有效。你有：
//ZUSER13A JOB NOTIFY=&SYSUID
JCL工作卡格式为：
//jobname JOB (accounting-info),name,keyword-parameters
jobname 是必需的，你有： ZUSER13A
关键字 JOB 就是它应该的位置。到目前为止一切都很好......
您没有任何 accounting-info 。根据您的安装，可能需要也可能不需要（通常是这样）。 accounting-info 的格式是安装定义的，因此您必须向某人询问。请注意，仅当 accounting-info 不包含嵌入的逗号或其他特殊字符时，括号才是可选的。
如果作业卡上还有其他指定，则必须有逗号。这不是可选的，可能是您遇到问题的原因。
以逗号后面应该用引号括起来。例如'PRECOMP'。也可能有针对此的安装特定规则。
如果要在作业卡上包含任何 keyword-parameters ，则必须有另一个逗号。
最后，您可以指定关键字参数，例如 NOTIFY = 。我不确定＆amp; USERID 等替代参数是否在此处有效，除非作业是在已启动的任务下提交的。由于您使用 SUB 提交作业（在TSO下？），＆amp; USERID 可能也不适合您。尝试硬编码您的用户ID。
解决工作卡必须包含的最快捷的方法通常是查看在TSO下提交时实际工作的JCL - 然后复制工作卡！