COBOL:用于从 PDS 编译源代码的 SYSIN JCL

Question

我刚刚开始使用 COBOL，并在使用 JCL 时遇到了这个问题......我如何从我的 PDS 编译一个基本的 cobol 程序，我知道通过 instream 它只是

//SYSIN DD *
代码代码代码
/*

我试过类似的东西

//SYSIN DD DSN=the.pds.location(file),DISP=SHR

但我认为所有回击都是垃圾和返回码 12。

如果有人可以提供帮助，我将不胜感激。

Answer 1

根据您发布的信息，您的 JCL
应该管用。也许你错过了别的东西。
以下 JCL 提供了完整的工作步骤
COBOL 编译:

    ... your job card goes here...
    //COB     EXEC PGM=IGYCRCTL
    //STEPLIB  DD DISP=SHR,DSN=SYSP.IGY.V3R4M1.SIGYCOMP
    //SYSUT1   DD UNIT=SYSDA,SPACE=(CYL,(1,1))
    //SYSUT2   DD UNIT=SYSDA,SPACE=(CYL,(1,1))
    //SYSUT3   DD UNIT=SYSDA,SPACE=(CYL,(1,1))
    //SYSUT4   DD UNIT=SYSDA,SPACE=(CYL,(1,1))
    //SYSUT5   DD UNIT=SYSDA,SPACE=(CYL,(1,1))
    //SYSUT6   DD UNIT=SYSDA,SPACE=(CYL,(1,1))
    //SYSUT7   DD UNIT=SYSDA,SPACE=(CYL,(1,1))
    //SYSLIN   DD DSN=objectmodule,UNIT=SYSDA,
    //            DISP=(MOD,PASS),SPACE=(TRK,(3,3))
    //SYSIN    DD DSN=the.pds.location(file),DISP=SHR

    //SYSPRINT DD SYSOUT=*
    ... your link step using object from SYSLIN above...

注:您可能需要更改 STEPLIB 以匹配
在您的站点上运行的 COBOL 版本。

如果您的 JCL 看起来非常接近上述情况，那么接下来要做的是
退房是您的 COBOL 程序。进入 ISPF 编辑器(我认为
您可以访问它)并输入 简介 在命令行上。你
应该看到类似的东西:

   =PROF> ....GEN (FIXED - 80)....RECOVERY OFF WARN....NUMBER OFF.................
   =PROF> ....CAPS ON....HEX OFF....NULLS ON STD....TABS OFF......................
   =PROF> ....AUTOSAVE ON....AUTONUM OFF....AUTOLIST OFF....STATS ON..............
   =PROF> ....PROFILE UNLOCK....IMACRO NONE....PACK OFF....NOTE ON................
   =PROF> ....HILITE OFF CURSOR FIND..............................................
   =BNDS> <

   =COLS> ----+----1----+----2----+----3----+----4----+----5----+----6----+----7--

现在看看 打包 (注意上面显示的是 PACK OFF)。如果你发现
打包 这是你的问题。您需要发出 打包 命令
并保存您的数据集。再次尝试编译。

顺便说一句......你可以通过输入 来摆脱个人资料显示。重置 在命令上
线。

如果这些都不能解决您的问题，您需要提供更多信息
至于问题的确切性质是什么。