2

COBOL を始めたばかりで、JCL でこれに遭遇しました... PDS から基本的な COBOL プログラムをコンパイルするにはどうすればよいですか。

//SYSIN DD * コード コード コード /*

私は何かを試しました

//SYSIN DD DSN=the.pds.location(ファイル),DISP=SHR

しかし、撃ち返したのはゴミであり、リターンコードは 12 だったと思います。

誰かが助けてくれたら、私は感謝します。

4

1 に答える 1

3

投稿した情報に基づいて、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...
注：サイトで実行されているCOBOLのバージョンに一致するようにSTEPLIBを変更する必要がある場合があります。

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コマンドを発行して、データセットを保存する必要があります。コンパイルを再試行してください。

ところで...コマンドラインでRESETと入力すると、プロファイル表示が表示されなくなります。

これらのいずれも問題を解決しない場合は、問題の正確な性質についてより多くの情報を提供する必要があります。

于 2010-02-03T16:29:55.353 に答える