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编辑器（我猜想您可以访问它并在命令行上键入 PROFILE 。您应该看到类似的东西：

   =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 ON （注意上面显示PACK OFF）。如果你找到了 PACK ON 这是你的问题。您需要发出 PACK OFF 命令并保存您的数据集。再次尝试编译。

BTW ...您可以通过在命令中键入 RESET 来摆脱配置文件显示线。

如果其中任何一个都无法解决您的问题，则需要提供更多信息至于问题的确切性质是什么。

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

1 个答案: