Эбберс М. Введение в современные мейнфреймы: основы z/OS
Подождите немного. Документ загружается.
//SYSIN DD *
GRANT BIND, EXECUTE ON PLAN XYZP TO PUBLIC;
//SYSTSIN DD *
DSN SYSTEM(DB8H)
BIND PACKAGE (DSN8CC81) MEMBER(XYZ2) -
ACT(REP) ISO(CS) ENCODING(EBCDIC)
BIND PLAN(XYZP) PKLIST(DSN8CC81.*) -
ACT(REP) ISO(CS) ENCODING(EBCDIC)
RUN PROGRAM(DSNTIAD) PLAN(DSNTIA81) -
LIB('DB8HU.RUNLIB.LOAD')
END
/*
Определения CICS
Все ресурсы CICS определяются в оперативном режиме через транзакцию CEDA.
Группа имеет имя PAZSGROU.
Ресурс Тип
ABCD Транзакция
XYZ2 Программа
TMAPSET Программа(карта)
TMAPSET Наборкарт
XYZE ЗаписьDB2(сопоставляеттранзакциюABCDиимяпланаXYZP)
Выполнение программы
Введите «ABCD» в экране CICS и нажмите Enter. Затем введите номер отдела и нажми-
те Enter. Для выхода из программы нажмите PF3.
ABCD txid Average salary by department
Type a department number and press Enter.
Department number: ___
Average salary($):
F3=Exit
Программа COBOL-Batch-VSAM
Код программы
Эта программа находится в разделе XYZ3 библиотеки LUISM.TEST.SAMPLIB
IDENTIFICATION DIVISION.
*-------------------------------------------------------------
* COBOL VSAM PROGRAM ZSCHOLAR RESIDENCY
552 ПриложениеЕ
Программадляпрактическойработы 553
*------------------------------------------------------------
PROGRAM-ID. XYZ3.
/
ENVIRONMENT DIVISION.
*--------------------
CONFIGURATION SECTION.
SPECIAL-NAMES.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT I-FILE
ASSIGN TO KSDATA
ORGANIZATION IS INDEXED
ACCESS IS DYNAMIC
RECORD KEY IS I-FILE-RECORD-KEY
ALTERNATE RECORD KEY IS I-FILE-ALTREC-KEY
FILE STATUS IS FSTAT-CODE VSAM-CODE.
SELECT DPTONO
ASSIGN TO SYSIN
ORGANIZATION IS SEQUENTIAL
ACCESS IS SEQUENTIAL
FILE STATUS IS DPTONO-CODE.
DATA DIVISION.
*-------------
FILE SECTION.
FD I-FILE
RECORD CONTAINS 101 CHARACTERS.
01 I-FILE-RECORD.
05 I-FILE-RECORD-KEY PIC X(6).
05 FILLER PIC X(32).
05 I-FILE-ALTREC-KEY PIC X(3).
05 FILLER PIC X(42).
05 SALARY PIC S9(7)V9(2) COMP-3.
05 FILLER PIC X(13).
FD DPTONO
RECORDING MODE F
BLOCK 0 RECORDS
RECORD 80 CHARACTERS
LABEL RECORD STANDARD.
01 DPTONO-RECORD PIC X(80).
/
554 ПриложениеЕ
WORKING-STORAGE SECTION.
01 STATUS-AREA.
05 FSTAT-CODE PIC X(2).
88 I-O-OKAY VALUE ZEROES.
05 VSAM-CODE.
10 VSAM-R15-RETURN-CODE PIC 9(2) COMP.
10 VSAM-FUNCTION-CODE PIC 9(1) COMP.
10 VSAM-FEEDBACK-CODE PIC 9(3) COMP.
77 DPTONO-CODE PIC XX.
01 WS-DPTONO-RECORD.
05 DPTONO-KEYED PIC X(3).
05 FILLER PIC X(77).
01 WS-SALARY PIC S9(7)V9(2) COMP-3 VALUE 0.
01 WS-SALARY-EDITED PIC $ZZ,ZZZ,ZZ9.99.
/
PROCEDURE DIVISION.
OPEN INPUT DPTONO.
READ DPTONO INTO WS-DPTONO-RECORD.
DISPLAY DPTONO-KEYED.
OPEN INPUT I-FILE.
IF FSTAT-CODE NOT = «00»
DISPLAY «OPEN INPUT VSAMFILE FS-CODE: « FSTAT-CODE
PERFORM VSAM-CODE-DISPLAY
STOP RUN
END-IF.
MOVE DPTONO-KEYED TO I-FILE-ALTREC-KEY.
PERFORM READ-FIRST.
IF FSTAT-CODE = «02»
PERFORM READ-NEXT UNTIL FSTAT-CODE = «00»
END-IF.
IF FSTAT-CODE = «23»
DISPLAY «NO RECORDS EXISTS FOR THIS DEPARTMENT»
END-IF.
MOVE WS-SALARY TO WS-SALARY-EDITED.
DISPLAY WS-SALARY-EDITED.
CLOSE DPTONO.
CLOSE I-FILE.
STOP RUN.
READ-NEXT.
READ I-FILE NEXT.
Программадляпрактическойработы 555
IF FSTAT-CODE NOT = «00» AND FSTAT-CODE NOT = «02»
DISPLAY «READ NEXT I-FILE FS-CODE: « FSTAT-CODE
PERFORM VSAM-CODE-DISPLAY
ELSE
ADD SALARY TO WS-SALARY
END-IF.
READ-FIRST.
READ I-FILE RECORD KEY IS I-FILE-ALTREC-KEY.
IF FSTAT-CODE NOT = «00» AND FSTAT-CODE NOT = «02»
DISPLAY «READ I-FILE FS-CODE: « FSTAT-CODE
PERFORM VSAM-CODE-DISPLAY
ELSE
ADD SALARY TO WS-SALARY
END-IF.
VSAM-CODE-DISPLAY.
DISPLAY «VSAM CODE -->»
« RETURN: « VSAM-R15-RETURN-CODE,
« COMPONENT: « VSAM-FUNCTION-CODE,
« REASON: « VSAM-FEEDBACK-CODE.
Подготовительные задания
Создание среды VSAM
Это задание находится в разделе VSAMDEF библиотеки LUISM.TEST.SAMPLIB.
Задание выполняет следующие действия:
• Выгружает DB2-таблицу сотрудников в последовательный файл.
• Удаляет/определяет файл VSAM KSDS.
• Определяет альтернативный индекс (по номеру отдела).
• Определяет путь.
• Выполняет копирование (repro) файла VSAM из последовательного файла (шаг 1).
• Выполняет BLDINDEX.
//LUISM06 JOB (999,POK),'UNLTAB/DEFVSAM/REPRO',
// CLASS=A,MSGCLASS=T,MSGLEVEL=(1,1)
//***************************************************************
//* UNLOAD DB2 TABLE *
//***************************************************************
//STEP00 EXEC PGM=IKJEFT01,DYNAMNBR=20
//STEPLIB DD DSN=DB8H8.SDSNLOAD,DISP=SHR
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSREC00 DD DSN=LUISM.EMP.TABLE.UNLOAD,
// SPACE=(TRK,(1,1)),DISP=(,CATLG)
//SYSPUNCH DD DSN=LUISM.EMP.TABLE.SYSPUNCH,
// SPACE=(TRK,(1,1)),DISP=(,CATLG),
// RECFM=FB,LRECL=120
//SYSIN DD *
DSN8810.EMP
/*
//SYSTSIN DD *
DSN SYSTEM(DB8H)
RUN PROGRAM(DSNTIAUL) PLAN(DSNTIB81) -
LIB('DB8HU.RUNLIB.LOAD')
END
/*
//***************************************************************
//* DELETE THE KSDS FILE *
//***************************************************************
//STEP01 EXEC PGM=IDCAMS,COND=(4,LT,STEP00)
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE LUISM.KSDATA
/*
//***************************************************************
//* DEFINE A KSDS FILE *
//***************************************************************
//STEP02 EXEC PGM=IEFBR14,COND=(4,LT,STEP01)
//DEFINE DD DSN=LUISM.KSDATA,DISP=(NEW,KEEP),
// SPACE=(TRK,(1,1)),AVGREC=U,RECORG=KS,
// KEYLEN=6,KEYOFF=0,LRECL=101
/*
//***************************************************************
//* DEFINE ALTERNATE INDEX *
//***************************************************************
//STEP03 EXEC PGM=IDCAMS,COND=(4,LT,STEP02)
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE ALTERNATEINDEX -
(NAME(LUISM.ALTINDEX) -
556 ПриложениеE
Программадляпрактическойработы 557
RELATE(LUISM.KSDATA) -
NONUNIQUEKEY -
KEYS(3 38) -
RECORDSIZE(23 150) -
VOLUMES(TOTSSI) -
KILOBYTES(100 100) -
UPGRADE)
/*
//***************************************************************
//* DEFINE PATH *
//***************************************************************
//STEP04 EXEC PGM=IDCAMS,COND=(4,LT,STEP03)
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE PATH -
(NAME(LUISM.PATH) -
PATHENTRY(LUISM.ALTINDEX))
/*
//***************************************************************
//* REPRO INTO THE KSDS FROM DB2 UNLOAD SEQ FILE *
//***************************************************************
//STEP05 EXEC PGM=IDCAMS,COND=(4,LT,STEP04)
//SEQFILE DD DSN=LUISM.EMP.TABLE.UNLOAD,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
REPRO INFILE(SEQFILE) -
OUTDATASET(LUISM.KSDATA) -
REPLACE
/*
//***************************************************************
//* BLDINDEX *
//***************************************************************
//STEP06 EXEC PGM=IDCAMS,COND=(4,LT,STEP05)
//BASEDD DD DSN=LUISM.KSDATA,DISP=SHR
//AIXDD DD DSN=LUISM.ALTINDEX,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
BLDINDEX INFILE(BASEDD) -
OUTFILE(AIXDD) -
SORTCALL
/*
558 ПриложениеЕ
Подготовка программы
Это задание находится в разделе BATVSAMP библиотеки LUISM.TEST.SAMPLIB.
//LUISM07 JOB (999,POK),'Cobol-VSAM',
// CLASS=A,MSGCLASS=T,MSGLEVEL=(1,1)
//***************************************************************
//* Compile the IBM COBOL program *
//***************************************************************
//COB EXEC PGM=IGYCRCTL,
// PARM=(NOSEQUENCE,QUOTE,RENT,'PGMNAME(LONGUPPER)')
//SYSPRINT DD SYSOUT=*
//SYSTERM DD SYSOUT=*
//SYSLIN DD DSN=&&LOADSET,DISP=(MOD,PASS),UNIT=VIO,
// SPACE=(800,(500,500))
//SYSIN DD DSN=LUISM.TEST.SAMPLIB(XYZ3),DISP=SHR
//SYSUT1 DD SPACE=(800,(500,500),,,ROUND),UNIT=VIO
//SYSUT2 DD SPACE=(800,(500,500),,,ROUND),UNIT=VIO
//SYSUT3 DD SPACE=(800,(500,500),,,ROUND),UNIT=VIO
//SYSUT4 DD SPACE=(800,(500,500),,,ROUND),UNIT=VIO
//SYSUT5 DD SPACE=(800,(500,500),,,ROUND),UNIT=VIO
//SYSUT6 DD SPACE=(800,(500,500),,,ROUND),UNIT=VIO
//SYSUT7 DD SPACE=(800,(500,500),,,ROUND),UNIT=VIO
//***************************************************************
//* PRELINK STEP. *
//***************************************************************
//PLKED EXEC PGM=EDCPRLK,COND=(4,LT,COB)
//STEPLIB DD DISP=SHR,DSN=CEE.SCEERUN
//SYSMSGS DD DISP=SHR,
// DSN=CEE.SCEEMSGP(EDCPMSGE)
//SYSIN DD DSN=&&LOADSET,DISP=(OLD,DELETE)
//SYSMOD DD DSN=&&PLKSET,UNIT=SYSDA,DISP=(MOD,PASS),
// SPACE=(32000,(30,30)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200)
//SYSDEFSD DD DUMMY
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTERM DD SYSOUT=*
//***************************************************************
//* Linkedit *
//***************************************************************
//LKED EXEC PGM=IEWL,PARM='LIST,XREF',
// COND=(4,LT,PLKED)
//SYSLIB DD DISP=SHR,DSN=CEE.SCEELKED
Программадляпрактическойработы 559
// DD DISP=SHR,DSN=ISP.SISPLOAD
// DD DISP=SHR,DSN=GDDM.SADMMOD
//SYSLMOD DD DSN=LUISM.TEST.LOADLIB(XYZ3),
// DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD SPACE=(1024,(50,50)),UNIT=VIO
//SYSLIN DD DSN=&&PLKSET,DISP=(OLD,DELETE)
// DD DDNAME=SYSIN
//SYSIN DD *
MODE RMODE(ANY)
NAME XYZ3(R)
/*
Задание на выполнение программы
Выполнение программы находится в разделе RUNXYZ3 библиотеки LUISM.TEST.SAMPLIB.
//LUISM08 JOB (999,POK),'EJEC. COB-VSAM',
// CLASS=A,MSGCLASS=T,MSGLEVEL=(1,1)
//***************************************************************
//STEP01 EXEC PGM=XYZ3
//STEPLIB DD DSN=LUISM.TEST.LOADLIB,DISP=SHR
//KSDATA DD DSN=LUISM.KSDATA,DISP=SHR
//KSDATA1 DD DSN=LUISM.PATH,DISP=SHR
//OUTPUTFI DD SYSOUT=*
//SYSIN DD *
E01
/*
Ниже представлены выходные данные для отдела E01:
************************* TOP OF DATA **************************
E01
$ 40,175.00
*********************** BOTTOM OF DATA *************************
Выходные данные для отдела, не имеющего сотрудников, имеют следующий вид:
************************ TOP OF DATA ***************************
A01
READ I-FILE FS-CODE: 23
VSAM CODE --> RETURN: 08 COMPONENT: 2 REASON: 016
NO RECORDS EXISTS FOR THIS DEPARTMENT
$ 0.00
*********************** BOTTOM OF DATA *************************
560 ПриложениеЕ
Утилита DSNTEP2
Эта PL/I-программа динамически выполняет SQL-операторы, считываемые из SYSIN.
Это приложение может также выполнять операторы, отличные от SELECT.
Задание на выполнение
Это задание на выполнение находится в разделе DSNTEP2 библиотеки LUISM.TEST.SAMPLIB.
//LUISM04 JOB (999,POK),'Dsntep2',
// CLASS=A,MSGCLASS=T,MSGLEVEL=(1,1)
//***************************************************************
//* DSNTEP2 *
//***************************************************************
//DSNTEP2 EXEC PGM=IKJEFT01,DYNAMNBR=20
//STEPLIB DD DSN=DB8H8.SDSNLOAD,DISP=SHR
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(DB8H)
RUN PROGRAM(DSNTEP2) PLAN(DSNTEP81) -
LIB('DB8HU.RUNLIB.LOAD')
END
/*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSIN DD *
SELECT CHAR(DECIMAL(SUM(SALARY),9,2))
FROM DSN8810.EMP
WHERE WORKDEPT='A00'
/*
Following is the output:
PAGE 1
***INPUT STATEMENT:
SELECT CHAR(DECIMAL(SUM(SALARY),9,2))
FROM DSN8810.EMP
WHERE WORKDEPT='A00'
+-------------+
| |
+-------------+
1_| 0204250.00 |
+-------------+
SUCCESSFUL RETRIEVAL OF 1 ROW(S)
Программадляпрактическойработы 561
Пакетное выполнение QMF
Это упражнение показывает пакетное выполнение QMF-процедуры/запроса/формы.
Запрос EMPQRY содержит SQL-оператор нашей программы для практической рабо-
ты. Процедура EMPPRO инициирует выполнение запроса и распечатку отчета. Зада-
ние вызывает QMF-процедуру и передает ей номер отдела; кроме того, задается ре-
жим выполнения (пакетный, M=B) и подсистема DB2.
Задание находится в разделе QMFBATCH библиотеки LUISM.TEST.SAMPLIB.
QMF вызывается из ISPF-опции Q7 в системе SC47TS с указанием ISPQMF71 в поле
COMMAND.
Задание на выполнение
//LUISM10 JOB (999,POK),’QMF in batch’,
// CLASS=A,MSGCLASS=T,MSGLEVEL=(1,1)
/*JOBPARM SYSAFF=SC47
//***************************************************************
//QMFBAT EXEC PGM=DSQQMFE,
// PARM=’M=B,I=LUISM.EMPPRO(&&DEP=’’A00’’),S=DB7D’
//STEPLIB DD DISP=SHR,DSN=DB7DU.SDSQLOAD
// DD DISP=SHR,DSN=DB7D7.SDSNLOAD
// DD DISP=SHR,DSN=DB7D7.SDSNEXIT
//ADMGGMAP DD DSN=DB7DU.DSQMAPE,DISP=SHR
//DSQPRINT DD SYSOUT=A,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=1330)
//DSQDEBUG DD SYSOUT=A,DCB=(RECFM=FBA,LRECL=121,BLKSIZE=1210)
//DSQUDUMP DD SYSOUT=A,DCB=(RECFM=VBA,LRECL=125,BLKSIZE=1632)
//DSQSPILL DD DSN=&&SPILL,DISP=(NEW,DELETE),
// UNIT=VIO,SPACE=(TRK,(100),RLSE),
// DCB=(RECFM=F,LRECL=4096,BLKSIZE=4096)
//*
QMF-процедура
RUN QUERY EMPQRY (&&D=&DEP FORM=EMPFORM
PRINT REPORT
QMF-запрос
SELECT CHAR(DECIMAL(SUM(SALARY),9,2))
FROM DSN8710.EMP
WHERE WORKDEPT=&D