COBOL: SYSIN JCL для компиляции исходного кода из PDS - PullRequest
Новая
       19

COBOL: SYSIN JCL для компиляции исходного кода из PDS

2 голосов
/ 03 февраля 2010

Я только запускаю COBOL и столкнулся с этим с JCL ... Как мне скомпилировать базовую программу на cobol из моего PDS, я знаю, через instream это будет просто

// SYSIN DD * код код код / ** * 1003

Я пробовал что-то вроде

// SYSIN DD DSN = .pds.location (файл), DISP = SHR

но все, что отстреливалось, было мусором и кодом возврата 12, я думаю.

Если бы кто-нибудь мог помочь, я был бы благодарен.

1 Ответ

3 голосов
/ 03 февраля 2010

На основании информации, которую вы разместили, ваш 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<br> //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> <<br> =COLS> ----+----1----+----2----+----3----+----4----+----5----+----6----+----7--

Теперь посмотрите на PACK ON (обратите внимание, что выше показано PACK OFF).Если вы обнаружите PACK ON , это ваша проблема.Вам нужно выполнить команду PACK OFF и сохранить ваш набор данных.Попробуйте снова скомпилировать.

Кстати ... вы избавляетесь от отображения профиля, набрав RESET в командной строке.

Если ни один из них не помог решить вашу проблемувам необходимо предоставить более подробную информацию о точном характере проблемы.

...