Cics

//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

---------------------------------------------------------------------------------------------------

//GPCA76CD JOB CARLOS,MSGCLASS=X,CLASS=C,NOTIFY=GPCA76,TIME=(0,40)

//* JOB DE COMPILACAO DE PROGRAMA COBOL COM DB2 CICS *

// JCLLIB ORDER=GP.LB.PROCLIB

//COMPCIDB EXEC DFHCIDB2,NAME='GPCAP764',INSTR='GPCA76' MEMBRO

//BIND.SYSTSIN DD * DSN SYSTEM(DB2N) BIND PLAN(GPCAP764) MEM(GPCAP764) ACT(REP) ISOLATION(CS) - LIB('SYS2.DB2.DBRMLIB.DATA') END

----------------------------------------------------------------------------------------------------

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='T A B E L A DE P R O D U T O S'
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='<<< I N C L U S A O >>>'
*==================== <<<< 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 =>'
DESCRI 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 | F*p
4 = 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