concurz

//*Compila PUBAPP
//COMPPUB JOB MSGCLASS=H
//PROCS JCLLIB ORDER=CBC.SCCNPRC
//CLG EXEC EDCCPLG,
//  INFILE=ZCON125.PRTTHREE.C(PUBAPP),
//  CPARM='RENT,CHECKOUT(ALL),SSCOM',
//  LPARM='AMODE(31),MAP,XREF,RENT,AC=1'
//COMPILE.SYSLIB DD DSN=WMQ.V701.SCSQC370,DISP=SHR
//LKED.CSQSTUB   DD DSN=WMQ.V701.SCSQLOAD,DISP=SHR
//LKED.SYSLIB    DD DSN=CEE.SCEELKED,DISP=SHR
//LKED.SYSLMOD   DD DSN=ZCON125.PRTTHREE.LOAD(PUBAPP),DISP=SHR
//LKED.SYSIN     DD *
  INCLUDE CSQSTUB(CSQBSTUB)
  ENTRY CEESTART
  NAME PUBAPP(R)
/*

************************************************************

//*EXECUTA PUBAPP E INSERE LISTA
//EXECPUB JOB MSGCLASS=H
//PUBLISH  EXEC PGM=PUBAPP,REGION=1024K,
//         PARM='MQ03 ZCON125'
//STEPLIB  DD DSN=ZCON125.PRTTHREE.LOAD,DISP=SHR
//         DD DSN=WMQ.V701.SCSQLOAD,DISP=SHR
//         DD DSN=WMQ.V701.SCSQANLE,DISP=SHR
//         DD DSN=WMQ.V701.SCSQAUTH,DISP=SHR
//SYSIN    DD DSN=ZOS.CONTEST3.TXNS,DISP=SHR
//STDOUT   DD SYSOUT=*
//STDERR   DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
/*