CICS COMPILER

 

EDIT       FACP01.COMP.JCLS(CICSCOB) - 01.04               Columns 00001 00072

Command ===>                                                  Scroll ===> PAGE

****** ***************************** Top of Data ******************************

000001 //SYSADMC  JOB ,,NOTIFY=&SYSUID,CLASS=A,MSGLEVEL=(1,1),MSGCLASS=H      

000002 //JOBPROC  JCLLIB ORDER=IBMUSER.COMPILER.JCLS                          

000003 //CICSCOB  EXEC CICSCOB1,                                              

000004 //         SRCLIB=SYSADM.PROG.SOURCE,       --> SOURCE LIB NAME   &nbssp;    

000005 //         MEM=PGMCICB,                     --> MEMBER     &            

000006 //         COPYLIB=SYSADM.COPY.LIB,         --> BMS MAP LIB    &nnbsp;       

000007 //         LOADLIB=MTPLTRG.CICS.LOADLIB     **  DO NOT CHANGE  **      

****** **************************** Bottom of Data ****************************

                                                                              

   

                             CICS MAP COMPILER

                                 

 

 

 EDIT       FACP01.COMP.JCLS(CICSMAP) - 01.03               Columns 00001 00072

  Command ===>                                                  Scroll ===> PAGE

  ****** ***************************** Top of Data ******************************

 000001 //SYSADMM  JOB ,,CLASS=A,                                              

 000002 //         MSGCLASS=H,MSGLEVEL=(1,1),                                   

 000003 //         NOTIFY=&SYSUID                                              

 000004 //JOBPROC  JCLLIB ORDER=IBMUSER.COMPILER.JCLS                          

 000005 //CICSMAP  EXEC CICSMAP1,                                               

 000006 //         OUTC=*,                                                     

 000007 //         COPYLIB=SYSADM.COPY.LIB,                -->  BMS MAP LIB   &nnbsp;

 000008 //         LOADLIB=MTPLTRG.CICS.LOADLIB,           **   DO NOT CHANGE  

 000009 //         MAPNAME=PGMMAP                          -->  MEMBER NAME   &nnbsp;

 000010 //COPY.SYSUT1 DD DSN=SYSADM.PROG.SOURCE(PGMMAP),   -->  SRC LIB    ;    

 000011 //         DISP=SHR                                                    

 ****** **************************** Bottom of Data ****************************

 

 

                              COBOL COMPILER

 

   File  Edit  Edit_Settings  Menu  Utilities  Compilers  Test  Help           

                                                                                

 EDIT       FACP01.COMP.JCLS(COBCOMC) - 01.02               Columns 00001 00072

  Command ===>                                                  Scroll ===> PAGE

  ****** ***************************** Top of Data ******************************

 000001 //SYSADMC JOB 43312,'MAINTEC',                                         

 000002 //        CLASS=A,MSGCLASS=H,MSGLEVEL=(1,1),                           

 000003 //        NOTIFY=&SYSUID                                               

 000004 //JOBPROC JCLLIB ORDER=IBMUSER.COMPILER.JCLS                           

 000005 //COBCL EXEC IGYWCL,                                                   

 000006 //          PGMLIB=SYSADM.LOAD.LIB,            --> LOADLIB NAME    &    

 000007 //          GOPGM=PGMCOB,                      --> MEMBER NAME    &nnbsp;    

 000008 //          COPYLIB=SYSADM.COPY.LIB                                    

 000009 //COBOL.SYSIN DD DSN=SYSADM.PROG.SOURCE(PGMCOB),DISP=SHR    -->SRC     

 000010 //*LKED.SYSLIB DD DSNAME=SYSADM.LOAD.LIB,DISP=SHR                      

 ****** **************************** Bottom of Data ****************************

 

 

 

 

                                                                               

     File  Edit  Edit_Settings  Menu  Utilities  Compilers  Test  Help           

                                                                               

 EDIT       FACP01.COMP.JCLS(COBCOMP) - 01.18               Columns 00001 00072

  Command ===>                                                  Scroll ===> PAGE

  ****** ***************************** Top of Data ******************************

 000001 //SYSADMC JOB 43312,'MAINTEC',                                         

 000002 //        CLASS=A,MSGCLASS=H,MSGLEVEL=(1,1),                           

 000003 //        NOTIFY=&SYSUID                                               

 000004 //JOBPROC JCLLIB ORDER=IBMUSER.COMPILER.JCLS                           

 000005 //COBCL EXEC IGYWCL,                                                    

 000006 //          PGMLIB=SYSADM.LOAD.LIB,            --> LOADLIB NAME    &    

 000007 //          GOPGM=PGMCOB                       --> MEMBER NAME    &nnbsp;    

 000008 //COBOL.SYSIN DD DSN=SYSADM.PROG.SOURCE(PGMCOB),DISP=SHR    -->SRC     

 000009 //*LKED.SYSLIB DD DSNAME=SYSADM.LOAD.LIB,DISP=SHR                      

 ****** **************************** Bottom of Data ****************************

 

 

 

                      COBOL RUN

 

 

 

 

 

        File  Edit  Edit_Settings  Menu  Utilities  Compilers  Test  Help           

                                                                               

 EDIT       FACP01.COMP.JCLS(COBRUN) - 01.08                Columns 00001 00072

  Command ===>                                                  Scroll ===> PAGE

  ****** ***************************** Top of Data ******************************

 000001 //SYSADMR  JOB 43312,'MAINTEC',                                        

 000002 //         CLASS=A,MSGCLASS=H,MSGLEVEL=(1,1),LINES=(1,CANCEL),         

 000003 //         NOTIFY=&SYSUID                                              

 000004 //RUN EXEC PGM=PGMCOB                           --> MEMBER NAME    &nnbsp;   

 000005 //STEPLIB  DD DSN=SYSADM.LOAD.LIB,DISP=SHR      --> LOADLIB NAME    &   

 000006 //SYSPRINT DD SYSOUT=*                                                 

 000007 //SYSOUT   DD SYSOUT=*                                                 

 000008 //*DD1 DD DSN=SYSADM.VSAM.KSDS,DISP=SHR                                

 000009 //*DD2 DD DSN=SYSADM.SEQ.FILE1,DISP=SHR                                

 000010 //SYSIN    DD DUMMY                                                    

 ****** **************************** Bottom of Data ****************************

 

 

 

                                      DB2COBOL

                            

 

 

 

     File  Edit  Edit_Settings  Menu  Utilities  Compilers  Test  Help           

                                                                                

 EDIT       FACP01.COMP.JCLS(DB2COB) - 01.06                Columns 00001 00072

  Command ===>                                                  Scroll ===> PAGE

  ****** ***************************** Top of Data ******************************

 000001 //SYSADMC  JOB ,,NOTIFY=&SYSUID,CLASS=A,MSGLEVEL=(1,1),MSGCLASS=H      

 000002 //JOBPROC  JCLLIB ORDER=IBMUSER.COMPILER.JCLS                          

 000003 //EXEC1    EXEC DB2JCL,                                                

 000004 //         SRCLIB=SYSADM.PROG.SOURCE,     -->  SOURCE LIB   &nbbsp;          

 000005 //         DBRMLIB=SYSADM.DBRM.LIB,       -->  DBRM LIBRARY   &         

 000006 //         MEM=PGMDB2,                    -->  MEMBER NAME   &nnbsp;         

 000007 //         DCLLIB=SYSADM.DCLGEN.LIB,      -->  DCLGEN LIBRARY   p;       

 000008 //         COPYLIB=SYSADM.COPY.LIB,       -->  COPY LIBRARY   &         

 000009 //         LOADLIB=SYSADM.LOAD.LIB        -->  LOAD LIBRARY   &         

 ****** **************************** Bottom of Data ****************************

 

 

 

                               DB2BIND

 

 

 

                                                                                                                                                              

     File  Edit  Edit_Settings  Menu  Utilities  Compilers  Test  Help           

                                                                               

 EDIT       FACP01.COMP.JCLS(DB2DBIND) - 01.10              Columns 00001 00072

  Command ===>                                                  Scroll ===> PAGE

  ****** ***************************** Top of Data ******************************

 000001 //SYSADMB  JOB ,,NOTIFY=&SYSUID,CLASS=A,MSGLEVEL=(1,1),MSGCLASS=H      

 000002 //JOBLIB   DD DISP=SHR,                                                

 000003 //            DSN=DSN710.SDSNEXIT                                      

 000004 //         DD DISP=SHR,                                                

 000005 //            DSN=DSN710.SDSNLOAD                                      

 000006 //BIND     EXEC PGM=IKJEFT01,DYNAMNBR=20                               

 000007 //DBRMLIB  DD DISP=SHR,                                                

 000008 //         DSN=SYSADM.DBRM.LIB              --> DBRM LIBRARY    &       

 000009 //SYSTSPRT DD SYSOUT=*                                                 

 000010 //SYSPRINT DD SYSOUT=*                                                 

 000011 //SYSUMUMP DD SYSOUT=*                                                  

 000012 //SYSOUT   DD SYSOUT=*                                                 

 000013 //REPORT   DD SYSOUT=*                                                 

 000014 //SYSTSIN  DD *                                                         

 000015   DSN SYSTEM(DSN1)                                                     

 000016   BIND PLAN(SYSADM) MEMBER(PGMCIDB) ISOLATION(RR) ACTION(REP)          

 000017 //*                                                                                                                                              

 

 

 

                                 DB2RUN

 

   File  Edit  Edit_Settings  Menu  Utilities  Compilers  Test  Help           

                                                                                

 EDIT       FACP01.COMP.JCLS(DB2RUN) - 01.04                Columns 00001 00072

  Command ===>                                                  Scroll ===> PAGE

  ****** ***************************** Top of Data ******************************

 000001 //SYSADMR  JOB ,,NOTIFY=&SYSUID,CLASS=A,MSGLEVEL=(1,1),MSGCLASS=H,     

 000002 //         LINES=(1,CANCEL)                                            

 000003 //JOBLIB   DD  DISP=SHR,                                                

 000004 //            DSN=DSN710.SDSNEXIT                                      

 000005 //         DD DISP=SHR,                                                

 000006 //            DSN=DSN710.SDSNLOAD                                       

 000007 //         DD DISP=SHR,                                                

 000008 //            DSN=CEE.SCEERUN                                          

 000009 //PH02CS04 EXEC PGM=IKJEFT01,DYNAMNBR=20,COND=(4,LT)                   

 000010 //SYSTSPRT DD SYSOUT=*                                                 

 000011 //SYSPRINT DD SYSOUT=*                                                 

 000012 //SYSOUT   DD SYSOUT=*                                                 

 000013 //SYSIN    DD DUMMY                                                    

 000014 //SYSTSIN  DD *                                                        

 000015   DSN SYSTEM(DSN1)                                                     

 000016   RUN PROGRAM(PGMDB2) PLAN(SYSADM) LIB('SYSADM.LOAD.LIB')              

 000017   END                                                                  

 

                                                                                                                                                            

                                                                               

                                                                               

Hosted by www.Geocities.ws

1