COBOL：SYSIN JCL用於編譯來自PDS的源碼

Question

我剛剛開始COBOL，並用JCL運行了這個...我如何從我的PDS編譯一個基本的cobol程序，我知道通過instream它只是

// SYSIN DD * 碼碼碼 /*

我想是這樣

// SYSIN DD DSN = the.pds.location（文件），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命令 並保存您的數據集。再次嘗試編譯。

順便說一句...你通過在命令 行上鍵入RESET來擺脫配置文件顯示。

如果這些都不能解決您的問題，您需要提供更多信息 以確定問題的確切性質。