CICS und DB2: JCL-Kompilierung und BMS-Map-Definition

JCL zur Kompilierung von CICS-Programmen

Dieses JCL-Skript dient der Kompilierung von CICS-Programmen unter z/OS.

//GPCA76CS JOB MSGCLASS=X,CLASS=C,NOTIFY=GPCA76 00010034
//* 
//* JCL PARA COMPILAR PROGRAMAS CICS
//* ALTERAR CONFORME SEGUE:
//* GPCAP760 -> TROCAR PELO SEU USUARIO
//* NAME=XXXXXXX -> COLOQUE O NOME DO PROGRAMA
// JCLLIB ORDER=GP.LB.PROCLIB
// CICSPGM EXEC DFHCICS1,NAME=PSCVINCL,INSTR='GPCA76'
// TRAN.SYSIN DD DSN=GP.GPCA76.COBLIB(GPCAP768),DISP=SHR

JCL zur Kompilierung: COBOL DB2 CICS

Job-Definition zur Kompilierung eines COBOL-DB2-CICS-Programms inklusive Bind-Schritt:

//GPCA76CD JOB CARLOS,MSGCLASS=X,CLASS=C,NOTIFY=GPCA76,TIME=(0,40)
//* 
//* JOB DE COMPILAÇÃO DE PROGRAMA COM COBOL DB2 CICS
// JCLLIB ORDER=GP.LB.PROCLIB
// COMPCIDB EXEC DFHCIDB2,NAME='GPCAP764',INSTR='GPCA76'
// BIND.SYSTSIN DD *
  DSN SYSTEM(DB2N)
  BIND PLAN(GPCAP764) MEM(GPCAP764) ACT(REP) ISOLATION(CS) -
  LIB('SYS2.DB2.DBRMLIB.DATA')
  END

BMS-Map-Definition: GPM7651 (Tabela de Produtos)

Definition des BMS-Mapsets und der Maske zur Erfassung und Anzeige von Produktdaten:

GPM7651  DFHMSD TYPE=DSECT,                                       *
               MODE=INOUT,                                        *
               LANG=COBOL,                                        *
               STORAGE=AUTO,                                      *
               CTRL=(FREEKB,ALARM,FRSET),                         *
               TIOAPFX=YES

GPM7651  DFHMDI SIZE=(24,79),                                      *
               LINE=NEXT,                                         *
               COLUMN=NEXT

*======================== <<<< LINHA 01 >>>> ========================
         DFHMDF POS=(01,02),LENGTH=07,ATTRB=ASKIP,INITIAL='GPM7651'
         DFHMDF POS=(01,19),LENGTH=32,ATTRB=ASKIP,INITIAL='TABELA DE PRODUTOS'
DATASIS  DFHMDF POS=(01,62),LENGTH=10,ATTRB=(ASKIP,NORM,FSET)
HORASIS  DFHMDF POS=(01,75),LENGTH=05,ATTRB=(ASKIP,NORM,FSET)

*======================== <<<< LINHA 02 >>>> ========================
         DFHMDF POS=(02,02),LENGTH=78,ATTRB=ASKIP,INITIAL='=============================================================================='

*======================== <<<< LINHA 04 >>>> ========================
         DFHMDF POS=(04,30),LENGTH=23,ATTRB=ASKIP,INITIAL='<<< INCLUSAO >>>'

*======================== <<<< LINHA 05 >>>> ========================
         DFHMDF POS=(05,30),LENGTH=23,ATTRB=ASKIP,INITIAL='======================='

*======================== <<<< LINHA 08 >>>> ========================
         DFHMDF POS=(08,15),LENGTH=22,ATTRB=ASKIP,INITIAL='CODIGO DO PRODUTO =>'
CODPROD  DFHMDF POS=(08,38),LENGTH=06,ATTRB=(UNPROT,NUM,FSET,IC)

*======================== <<<< LINHA 09 >>>> ========================
         DFHMDF POS=(09,15),LENGTH=22,ATTRB=ASKIP,INITIAL='======================='

*======================== <<<< LINHA 11 >>>> ========================
         DFHMDF POS=(11,15),LENGTH=22,ATTRB=ASKIP,INITIAL='DESCRICAO =>'
DESCRIC  DFHMDF POS=(11,38),LENGTH=35,ATTRB=(UNPROT,NORM)

*======================== <<<< LINHA 12 >>>> ========================
         DFHMDF POS=(12,15),LENGTH=22,ATTRB=ASKIP,INITIAL='LOCAL =>'
LOCAL    DFHMDF POS=(12,38),LENGTH=06,ATTRB=(UNPROT,NORM)

*======================== <<<< LINHA 13 >>>> ========================
         DFHMDF POS=(13,15),LENGTH=22,ATTRB=ASKIP,INITIAL='QUANTIDADE ESTOQUE =>'
QTDEST   DFHMDF POS=(13,38),LENGTH=04,ATTRB=(UNPROT,NUM,FSET)

*======================== <<<< LINHA 14 >>>> ========================
         DFHMDF POS=(14,15),LENGTH=22,ATTRB=ASKIP,INITIAL='QUANTIDADE MINIMA =>'
QTDMIN   DFHMDF POS=(14,38),LENGTH=04,ATTRB=(UNPROT,NUM,FSET)

*======================== <<<< LINHA 15 >>>> ========================
         DFHMDF POS=(15,15),LENGTH=22,ATTRB=ASKIP,INITIAL='QUANTIDADE MAXIMA =>'
QTDMAX   DFHMDF POS=(15,38),LENGTH=04,ATTRB=(UNPROT,NUM,FSET)

*======================== <<<< LINHA 16 >>>> ========================
         DFHMDF POS=(16,15),LENGTH=22,ATTRB=ASKIP,INITIAL='VALOR UNITARIO =>'
PRECO    DFHMDF POS=(16,38),LENGTH=08,ATTRB=(UNPROT,NUM,FSET)

*======================== <<<< LINHA 17 >>>> ========================
         DFHMDF POS=(17,15),LENGTH=22,ATTRB=ASKIP,INITIAL='======================='

*======================== <<<< LINHA 19 >>>> ========================
         DFHMDF POS=(19,15),LENGTH=22,ATTRB=ASKIP,INITIAL='USUARIO =>'
USUARIO  DFHMDF POS=(19,38),LENGTH=08,ATTRB=(UNPROT,NORM)

*======================== <<<< LINHA 20 >>>> ========================
         DFHMDF POS=(20,15),LENGTH=22,ATTRB=ASKIP,INITIAL='DATA ATUALIZACAO =>'
DTATU    DFHMDF POS=(20,38),LENGTH=10,ATTRB=(UNPROT,NORM)

*======================== <<<< LINHA 22 >>>> ========================
         DFHMDF POS=(22,02),LENGTH=78,ATTRB=ASKIP,INITIAL='=============================================================================='

*======================== <<<< LINHA 23 >>>> ========================
         DFHMDF POS=(23,02),LENGTH=78,ATTRB=ASKIP,INITIAL='ENTER = PROCESSA | F3 = SAIDA | F4 = MENU | F5 = PESQUISA'

*======================== <<<< LINHA 24 >>>> ========================
         DFHMDF POS=(24,02),LENGTH=07,ATTRB=ASKIP,INITIAL='MSG =>'
MENS     DFHMDF POS=(24,10),LENGTH=60,ATTRB=(ASKIP,FSET,NORM)

GPM7651  DFHMSD TYPE=FINAL
         END