Язык управления заданиями JCL (Job Control Language), страница 4

Имя оператора DD может быть составным при использовании процедур:

имя шага процедуры.имя DD

//INPUTDD*

ИВАНОВ   1000

ПЕТРОВ   1500

СИДОРОВ  850

/*

//DSET1  DD   DSNAME=X.Y.Z,DISP=OLD

//TEMPDS DD   DSNAME=&&TEMP.1,UNIT=TAPE,SPACE=(CYL,5)

//TEMP1  DD   DDNAME=TEMPDS

//TEMP2  DD   DSN=*.TEMPDS

//NEWDS  DD   DSNAME=D.AS32.DATA,DISP=(NEW,KEEP),

//            VOL=SER=BIBLIO,UNIT=3350,

//            SPACE=(CYL,(10,,10),,CONTIG)

//            DCB=(RECFM=F,LRECL=120)

//L.DDX1 DD   DSN=COLL,DISP=OLD,VOL=SER=1095

//            UNIT=(3380,,DEFER)

//PAYR   JOB ,JOSEF,CLASS=C

//JOBLIB  DD  DSN=MYLIB,DISP=SHR

//ST1         EXEC PGM=SEARCHD

//ST2         EXEC PGM=PRINTD

//INDATA DD   DSN=DATA1,DISP=(OLD,PASS)

//       DD   DSN=DATA2,DISP=SHR

Процедуры

Описание процедуры

//MYPROC PROC UNT=SYSDA,PRN=A,TOM=DISK8

//ST1    EXEC PGM=SUV

//LIB    DD   DSN=SYSLIB,DISP=OLD

//SYSIN  DD   DSN=&NAME,DISP=(NEW,KEEP),

//            VOL=SER=&TOM,UNIT=&UNT,

//            SPACE=(200,(10,,10),RLSE)

//SYSOUT DD   SYSOUT=&PRN

//       PEND

Вызов процедуры

//       EXEC PROC=MYPROC,NAME=BIB,UNT=3090

//       EXEC MYPROC,NAME=PR1,V=TOM36

//       EXEC MYPROC,NAME=XXXXX.YY

//ST1.LIB DD   DSN=USERLIB,DISP=OLD

Каталогизированные процедуры (SYS1.PROCLIB)

FORTGCLG, PL1LCLG, ASMACLG

(C-компилятор, L- редактор связей, G-загрузчик)

//C           EXEC     языковый компилятор

//SYSPRINT    DD       системные сообщения

//SYSLIN      DD       объектный модуль

//SYSUT1      DD       1-й промежуточный набор

//SYSUT2      DD       2-й промежуточный набор

//LKED        EXEC     редактор связей

//SYSPRINT    DD       системные сообщения

//SYSLIN      DD       объектный модуль

//SYSLMOD     DD       загрузочный модуль

//SYSLIB      DD       стандартные программы

//SYSUT1      DD       промежуточный набор

//GO          EXEC     созданный загрузочный модуль

//SYSPRINT    DD       результаты программы и системные сообщения

//TEST        JOB      IVANOV

//            EXEC     FORTGCLG

//FORT.SYSIN  DD       *

ИСХОДНАЯ ПРОГРАММА

/*

//GO.SYSIN    DD       *

ИСХОДНЫЕ ДАННЫЕ

//

ПРИМЕРЫ

Создание библиотечного набора данных

//PRIMER1   JOB  (ACCT#,000),’ФИО’,NOTIFY=&SYSUID

//CREATPO   EXEC PGM=IEFBR14

//DSETPO     DD   DSN=AS30.PO.DATA,

//               DISP=(NEW,CATLG),

//               DCB=(DSORG=PO,RECFM=FB,LRECL=80,BKSIZE=6160),

//               SPACE=(TRK,(3,1,1)),

//               UNIT=SYSDA,

//               VOL=SER=WORKS10

Создание последовательного набора данных

//PRIMER2  JOB  (ACCT#,000),’ФИО’,NOTIFY=&SYSUID

//CREATPS  EXEC PGM=IEFBR14

//DSETPO    DD    DSN=AS30.PS.DATA,

//               DISP=(NEW,CATLG),

//               DCB=(DSORG=PS,RECFM=FB,LRECL=133,BKSIZE=3990),

//               SPACE=(TRK,(3,1)),

//               UNIT=SYSDA,

//               VOL=SER=WORKS10

Удаление набора данных

//PRIMER3    JOB  (ACCT#,000),’ФИО’,NOTIFY=&SYSUID

//DELDS      EXEC PGM=IEFBR14