APPLICATION: XINFODB2DEMO     A 28.01.04

  Status              : A                                                                                              
  Description         : Sample DB2 batch appl                                                                          
  Type                : A                                                                                              
  Calendar            : DEFAULT                                                                                        
  Valid               : 28.01.04 - 31.12.71                                                                            
  Priority            : 5                                                                                              
  Owner               : HORIZONT                                                                                       
  Ownertext           :                                                                                                
  Auth. Group         :                                                                                                
  Group Definition    :                                                                                                
  Last update user    : P390K                                                                                          
  Last update date    : 16.04.09                                                                                       
  Last update time    : 12:46                                                                                          

RUN CYCLES

Period   Offset Start End End   F T In       Out Of
                Time  Day Time      Effect   Effect
DAY      +001   06:00  01 06:00 4 N 25.10.01 31.12.71
F=free day rule (1=before free day, 2=after free day, 3=on free day, 4=not on free day, E=only work days), T=Type (N=normal, X=negative R=rule E=exclusive

RUN DAYS

      July 2009       
     August 2009      
    September 2009    
 Mo Tu We Th Fr Sa Su 
 Mo Tu We Th Fr Sa Su 
 Mo Tu We Th Fr Sa Su 
       01 02 03       
 06 07 08 09 10       
 13 14 15 16 17       
 20 21 22 23 24       
 27 28 29 30 31       
                      
                      
 03 04 05 06 07       
 10 11 12 13 14       
 17 18 19 20 21       
 24 25 26 27 28       
 31                   
    01 02 03 04       
 07 08 09 10 11       
 14 15 16 17 18       
 21 22 23 24 25       
 28 29 30             
                      
     October 2009     
    November 2009     
    December 2009     
 Mo Tu We Th Fr Sa Su 
 Mo Tu We Th Fr Sa Su 
 Mo Tu We Th Fr Sa Su 
          01 02       
 05 06 07 08 09       
 12 13 14 15 16       
 19 20 21 22 23       
 26 27 28 29 30       
                      
                      
 02 03 04 05 06       
 09 10 11 12 13       
 16 17 18 19 20       
 23 24 25 26 27       
 30                   
    01 02 03 04       
 07 08 09 10 11       
 14 15 16 17 18       
 21 22 23 24          
 28 29 30 31          
                      
     January 2010     
    February 2010     
      March 2010      
 Mo Tu We Th Fr Sa Su 
 Mo Tu We Th Fr Sa Su 
 Mo Tu We Th Fr Sa Su 
                      
 04 05    07 08       
 11 12 13 14 15       
 18 19 20 21 22       
 25 26 27 28 29       
                      
 01 02 03 04 05       
 08 09 10 11 12       
 15 16 17 18 19       
 22 23 24 25 26       
                      
                      
 01 02 03 04 05       
 08 09 10 11 12       
 15 16 17 18 19       
 22 23 24 25 26       
 29 30 31             
                      
      April 2010      
       May 2010       
      June 2010       
 Mo Tu We Th Fr Sa Su 
 Mo Tu We Th Fr Sa Su 
 Mo Tu We Th Fr Sa Su 
          01 02       
 05 06 07 08 09       
 12 13 14 15 16       
 19 20 21 22 23       
 26 27 28 29 30       
                      
                      
 03 04 05 06 07       
 10 11 12 13 14       
 17 18 19 20 21       
 24 25 26 27 28       
 31                   
    01 02 03 04       
 07 08 09 10 11       
 14 15 16 17 18       
 21 22 23 24 25       
 28 29 30             
                      

OPERATION TEXT

Operation WS   No  Operation Text
          DMY  001
DB2COB2   CPU  010 COBOL Batch Pgm
DB2PL12   CPU  015 PL1 Batch Pgm
DB2C      CPU  017 C Batch Pgm
DB2COMP   CPU  020 Compare Results
DB2PL11   CPU  025 Demo for DSNTEP2
          DMY  255 End

OPERATION DETAILS

Operation WS   No  R1 R2 S R L E T ID IT    DD DT    HRC
          DMY  001 00 00 Y Y N Y N
DB2COB2   CPU  010 00 00 Y Y N Y N
DB2PL12   CPU  015 00 00 Y Y N Y N
DB2C      CPU  017 00 00 Y Y N Y N
DB2COMP   CPU  020 00 00 Y Y N Y N
DB2PL11   CPU  025 00 00 Y Y N Y N
          DMY  255 00 00 Y Y N Y N
S=submit, R=release, L=suppress if late, E=error tracking, T=time dependent, ID/IT=IA day/time, HRC=highest return code, DD/DT=Deadline day/time

PREDECESSOR

Operation WS   No  Predecessor WS   No  Application      Status Valid from
          DMY  001             DMY  255 DB2              A      06.05.02
DB2COB2   CPU  010             DMY  001
DB2PL12   CPU  015             DMY  001
DB2C      CPU  017             DMY  001
DB2COMP   CPU  020 DB2COB2     CPU  010
                   DB2PL12     CPU  015
                   DB2C        CPU  017
DB2PL11   CPU  025             DMY  001
          DMY  255 DB2COMP     CPU  020
                   DB2PL11     CPU  025

SUCCESSOR

Operation WS   No  Successor   WS   No  Application      Status Valid from
          DMY  001 DB2COB2     CPU  010
                   DB2PL12     CPU  015
                   DB2C        CPU  017
                   DB2PL11     CPU  025
DB2COB2   CPU  010 DB2COMP     CPU  020
DB2PL12   CPU  015 DB2COMP     CPU  020
DB2C      CPU  017 DB2COMP     CPU  020
DB2COMP   CPU  020             DMY  255
DB2PL11   CPU  025             DMY  255

SPECIAL RESOURCES

Operation WS   No  T K A      Special Resource
DB2COB2   CPU  010 S          DSN1-ACTIVE
DB2PL12   CPU  015 S   000001 DSN1-ACTIVE
DB2C      CPU  017 S   000001 DSN1-ACTIVE
DB2PL11   CPU  025 S   000001 DSN1-ACTIVE
T=Typ (S=shared, X=exclusive), K=keep on error (Y/N), A=Amount

JCL DATASET TABLE DB2COB2

PGM      Step     DD       Disp Dsn
IDCAMS   D        SYSPRINT
                  SYSIN
DSN8BC3  PH02CS04 SYSTSPRT
                  SYSPRINT
                  SYSUDUMP
                  SYSOUT
                  REPORT   NCC  SYSH.XINFO.V3R0.DATA.DB2COB2.REPORT
                  SYSTSIN
                  CARDIN

JCL LIBRARY MEMBER DB2COB2

   //DB2COB2  JOB ,'HORIZONT',MSGCLASS=T,                                                                              
   // NOTIFY=&SYSUID                                                                                                   
   //LIBS JCLLIB ORDER=(SYSH.XINFO.V3R0.PROCLIB)                                                                       
   //DELETE   EXEC XXRJUNC,COND=(4,LT)                                                                                 
   //SYSIN    DD *                                                                                                     
    DEL SYSH.XINFO.V3R0.DATA.DB2COB2.REPORT                                                                            
    SET MAXCC = 0                                                                                                      
   //*                                                                                                                 
   //PH02CS04 EXEC PGM=IKJEFT01,DYNAMNBR=20,COND=(4,LT)                                                                
   //SYSTSPRT DD SYSOUT=*                                                                                              
   //SYSPRINT DD SYSOUT=*                                                                                              
   //SYSUDUMP DD SYSOUT=*                                                                                              
   //SYSOUT   DD SYSOUT=*                                                                                              
   //REPORT   DD DSN=SYSH.XINFO.V3R0.DATA.DB2COB2.REPORT,                                                              
   //            DISP=(,CATLG),                                                                                        
   //            SPACE=(TRK,(10,10),RLSE),                                                                             
   //            DCB=(DSORG=PS,RECFM=FB,BLKSIZE=23474)                                                                 
   //SYSTSIN DD *                                                                                                      
    DSN SYSTEM(DSN1)                                                                                                   
    RUN  PROGRAM(DSN8BC3) PLAN(DSN8BH61) -                                                                             
         LIB('DSN610.RUNLIB.LOAD')                                                                                     
    END                                                                                                                
   //CARDIN   DD *                                                                                                     
   L*                                                                                                                  
   LJO%                                                                                                                
   L%SON                                                                                                               
   LSMITH                                                                                                              
   LBROWN          ALAN                                                                                                
   LBROWN          DAVID                                                                                               
   U                           0002304265                                                                              
   //*                                                                                                                 

JCL WITH PROCEDURES DB2COB2

   //DB2COB2  JOB ,'HORIZONT',MSGCLASS=T,                                                                              
   //             NOTIFY=&SYSUID                                                                                       
   //LIBS JCLLIB ORDER=(SYSH.XINFO.V3R0.PROCLIB)                                                                       
   //D        EXEC  PGM=IDCAMS,PARM='MARGINS(1 64)',COND=(4,LT)                                                        
   //SYSPRINT DD  SYSOUT=*                                                                                             
   //SYSIN    DD *                                                                                                     
    DEL SYSH.XINFO.V3R0.DATA.DB2COB2.REPORT                                                                            
    SET MAXCC = 0                                                                                                      
   //PH02CS04 EXEC PGM=IKJEFT01,DYNAMNBR=20,COND=(4,LT)                                                                
   //SYSTSPRT DD SYSOUT=*                                                                                              
   //SYSPRINT DD SYSOUT=*                                                                                              
   //SYSUDUMP DD SYSOUT=*                                                                                              
   //SYSOUT   DD SYSOUT=*                                                                                              
   //REPORT   DD DSN=SYSH.XINFO.V3R0.DATA.DB2COB2.REPORT,                                                              
   //             DISP=(,CATLG),                                                                                       
   //             SPACE=(TRK,(10,10),RLSE),                                                                            
   //             DCB=(DSORG=PS,RECFM=FB,BLKSIZE=23474)                                                                
   //SYSTSIN DD *                                                                                                      
    DSN SYSTEM(DSN1)                                                                                                   
    RUN  PROGRAM(DSN8BC3) PLAN(DSN8BH61) -                                                                             
         LIB('DSN610.RUNLIB.LOAD')                                                                                     
    END                                                                                                                
   //CARDIN   DD *                                                                                                     
   L*                                                                                                                  
   LJO%                                                                                                                
   L%SON                                                                                                               
   LSMITH                                                                                                              
   LBROWN          ALAN                                                                                                
   LBROWN          DAVID                                                                                               
   U                           0002304265                                                                              
   //*                                                                                                                 

JCL DATASET TABLE DB2PL12

PGM      Step     DD       Disp Dsn
IDCAMS   D        SYSPRINT
                  SYSIN
DSN8BP3  PH02CS04 SYSTSPRT
                  SYSPRINT
                  SYSUDUMP
                  SYSOUT
                  REPORT   NCC  SYSH.XINFO.V3R0.DATA.DB2PL12.REPORT
                  SYSTSIN
                  CARDIN

JCL LIBRARY MEMBER DB2PL12

   //DB2PL12  JOB ,'HORIZONT',MSGCLASS=T,                                                                              
   // NOTIFY=&SYSUID                                                                                                   
   //LIBS JCLLIB ORDER=(SYSH.XINFO.V3R0.PROCLIB)                                                                       
   //DELETE   EXEC XXRJUNC,COND=(4,LT)                                                                                 
   //SYSIN    DD *                                                                                                     
    DEL SYSH.XINFO.V3R0.DATA.DB2PL12.REPORT                                                                            
    SET MAXCC = 0                                                                                                      
   //*                                                                                                                 
   //PH02CS04 EXEC PGM=IKJEFT01,DYNAMNBR=20,COND=(4,LT)                                                                
   //SYSTSPRT DD SYSOUT=*                                                                                              
   //SYSPRINT DD SYSOUT=*                                                                                              
   //SYSUDUMP DD SYSOUT=*                                                                                              
   //SYSOUT   DD SYSOUT=*                                                                                              
   //REPORT   DD DSN=SYSH.XINFO.V3R0.DATA.DB2PL12.REPORT,                                                              
   //            DISP=(,CATLG),                                                                                        
   //            SPACE=(TRK,(10,10),RLSE),                                                                             
   //            DCB=(DSORG=PS,RECFM=FB)                                                                               
   //SYSTSIN DD *                                                                                                      
    DSN SYSTEM(DSN1)                                                                                                   
    RUN  PROGRAM(DSN8BP3) PLAN(DSN8BP61) -                                                                             
         LIB('DSN610.RUNLIB.LOAD')                                                                                     
    END                                                                                                                
   //CARDIN   DD *                                                                                                     
   L*                                                                                                                  
   LJO%                                                                                                                
   L%SON                                                                                                               
   LSMITH                                                                                                              
   LBROWN          ALAN                                                                                                
   LBROWN          DAVID                                                                                               
   U                           0002304265                                                                              
   //*                                                                                                                 

JCL WITH PROCEDURES DB2PL12

   //DB2PL12  JOB ,'HORIZONT',MSGCLASS=T,                                                                              
   //             NOTIFY=&SYSUID                                                                                       
   //LIBS JCLLIB ORDER=(SYSH.XINFO.V3R0.PROCLIB)                                                                       
   //D        EXEC  PGM=IDCAMS,PARM='MARGINS(1 64)',COND=(4,LT)                                                        
   //SYSPRINT DD  SYSOUT=*                                                                                             
   //SYSIN    DD *                                                                                                     
    DEL SYSH.XINFO.V3R0.DATA.DB2PL12.REPORT                                                                            
    SET MAXCC = 0                                                                                                      
   //PH02CS04 EXEC PGM=IKJEFT01,DYNAMNBR=20,COND=(4,LT)                                                                
   //SYSTSPRT DD SYSOUT=*                                                                                              
   //SYSPRINT DD SYSOUT=*                                                                                              
   //SYSUDUMP DD SYSOUT=*                                                                                              
   //SYSOUT   DD SYSOUT=*                                                                                              
   //REPORT   DD DSN=SYSH.XINFO.V3R0.DATA.DB2PL12.REPORT,                                                              
   //             DISP=(,CATLG),                                                                                       
   //             SPACE=(TRK,(10,10),RLSE),                                                                            
   //             DCB=(DSORG=PS,RECFM=FB)                                                                              
   //SYSTSIN DD *                                                                                                      
    DSN SYSTEM(DSN1)                                                                                                   
    RUN  PROGRAM(DSN8BP3) PLAN(DSN8BP61) -                                                                             
         LIB('DSN610.RUNLIB.LOAD')                                                                                     
    END                                                                                                                
   //CARDIN   DD *                                                                                                     
   L*                                                                                                                  
   LJO%                                                                                                                
   L%SON                                                                                                               
   LSMITH                                                                                                              
   LBROWN          ALAN                                                                                                
   LBROWN          DAVID                                                                                               
   U                           0002304265                                                                              
   //*                                                                                                                 

JCL DATASET TABLE DB2C

PGM      Step     DD       Disp Dsn
IDCAMS   DELETE   SYSPRINT
                  SYSIN
DSN8BD3  PH02DS03 SYSTSPRT
                  SYSPRINT
                  CEEDUMP
                  SYSUDUMP
                  SYSOUT
                  REPORT   NCC  SYSH.XINFO.V3R0.DATA.DB2C.REPORT
                  SYSTSIN
                  CARDIN

JCL LIBRARY MEMBER DB2C

   //DB2C     JOB ,'HORIZONT',MSGCLASS=T,                                  00010002                                    
   // NOTIFY=&SYSUID                                                       00020002                                    
   //* EXECUTE DB2 SAMPLE C PROGRAM                                        00030002                                    
   //* NOTES = ENSURE THAT LINE NUMBER SEQUENCING IS SET 'ON' IF           00031003                                    
   //*         THIS JOB IS SUBMITTED FROM AN ISPF EDIT SESSION             00032003                                    
   //DELETE   EXEC PGM=IDCAMS,PARM='MARGINS(1 72)'                         00040002                                    
   //SYSPRINT DD SYSOUT=*                                                  00050002                                    
   //SYSIN    DD *                                                         00060002                                    
    DEL SYSH.XINFO.V3R0.DATA.DB2C.REPORT                                   00070002                                    
    SET MAXCC = 0                                                          00080002                                    
   //*                                                                     00090002                                    
   //PH02DS03 EXEC PGM=IKJEFT01,DYNAMNBR=20,COND=(4,LT)                    00100002                                    
   //SYSTSPRT  DD  SYSOUT=*                                                00110002                                    
   //SYSPRINT  DD  SYSOUT=*                                                00120002                                    
   //CEEDUMP   DD  SYSOUT=*                                                00130002                                    
   //SYSUDUMP  DD  SYSOUT=*                                                00140002                                    
   //SYSOUT    DD  SYSOUT=*                                                00150002                                    
   //REPORT   DD DSN=SYSH.XINFO.V3R0.DATA.DB2C.REPORT,                     00160002                                    
   //            DISP=(,CATLG),                                            00170002                                    
   //            SPACE=(TRK,(10,10),RLSE),                                 00180002                                    
   //            DCB=(DSORG=PS,RECFM=FB)                                   00190002                                    
   //SYSTSIN   DD  *                                                       00200002                                    
    DSN SYSTEM(DSN1)                                                       00210002                                    
    RUN  PROGRAM(DSN8BD3) PLAN(DSN8BD61) -                                 00220002                                    
         LIB('DSN610.RUNLIB.LOAD')                                         00230002                                    
    END                                                                    00240002                                    
   //CARDIN   DD  *                                                        00250002                                    
   L*                                                                      00260002                                    
   LJO%                                                                    00270002                                    
   L%SON                                                                   00280002                                    
   LSMITH                                                                  00290002                                    
   LBROWN          ALAN                                                    00300002                                    
   LBROWN          DAVID                                                   00310002                                    
   U                           0002304265                                  00320002                                    

JCL DATASET TABLE DB2COMP

PGM      Step     DD       Disp Dsn
IDCAMS   D        SYSPRINT
                  SYSIN
ISRSUPC  SUPERC   SYSIN
                  NEWDD    SKK  SYSH.XINFO.V3R0.DATA.DB2COB2.REPORT
                  OLDDD    SKK  SYSH.XINFO.V3R0.DATA.DB2PL12.REPORT
                  OUTDD    NCC  SYSH.XINFO.V3R0.DATA.DB2COMP.REPORT
ISRSUPC  SUPERC2  SYSIN
                  NEWDD    SKK  SYSH.XINFO.V3R0.DATA.DB2C.REPORT
                  OLDDD    SKK  SYSH.XINFO.V3R0.DATA.DB2PL12.REPORT
                  OUTDD    NCC  SYSH.XINFO.V3R0.DATA.DB2COMP2.REPORT
ISRSUPC  SUPERC3  SYSIN
                  NEWDD    SKK  SYSH.XINFO.V3R0.DATA.DB2C.REPORT
                  OLDDD    SKK  SYSH.XINFO.V3R0.DATA.DB2COB2.REPORT
                  OUTDD    NCC  SYSH.XINFO.V3R0.DATA.DB2COMP3.REPORT

JCL LIBRARY MEMBER DB2COMP

   //DB2COMP  JOB ,'HORIZONT',MSGCLASS=T,                                                                              
   // NOTIFY=&SYSUID                                                                                                   
   //LIBS JCLLIB ORDER=(SYSH.XINFO.V3R0.PROCLIB)                                                                       
   //*                                                                                                                 
   //* COMPARE RESULTS OF DB2 TELEPHONE APPLICATIONS                                                                   
   //*                                                                                                                 
   //*                                                                                                                 
   //DELETE   EXEC XXRJUNC,COND=(4,LT)                                                                                 
   //SYSIN    DD *                                                                                                     
    DEL SYSH.XINFO.V3R0.DATA.DB2COMP.REPORT                                                                            
    DEL SYSH.XINFO.V3R0.DATA.DB2COMP2.REPORT                                                                           
    DEL SYSH.XINFO.V3R0.DATA.DB2COMP3.REPORT                                                                           
    SET MAXCC = 0                                                                                                      
   //*                                                                                                                 
   //SUPERC  EXEC PGM=ISRSUPC,                                                                                         
   //            PARM=(DELTAL,LINECMP,                                                                                 
   //            '',                                                                                                   
   //            '')                                                                                                   
   //SYSIN  DD *                                                                                                       
   CMPCOLM 2:133                                                                                                       
   //NEWDD    DD DSN=SYSH.XINFO.V3R0.DATA.DB2COB2.REPORT,                                                              
   //            DISP=SHR                                                                                              
   //OLDDD    DD DSN=SYSH.XINFO.V3R0.DATA.DB2PL12.REPORT,                                                              
   //            DISP=SHR                                                                                              
   //OUTDD    DD DSN=SYSH.XINFO.V3R0.DATA.DB2COMP.REPORT,                                                              
   //            DISP=(,CATLG),                                                                                        
   //            SPACE=(TRK,(10,10),RLSE),                                                                             
   //            DCB=(DSORG=PS,RECFM=FB)                                                                               
   //SUPERC2 EXEC PGM=ISRSUPC,                                                                                         
   //            PARM=(DELTAL,LINECMP,                                                                                 
   //            '',                                                                                                   
   //            '')                                                                                                   
   //SYSIN  DD *                                                                                                       
   CMPCOLM 2:133                                                                                                       
   //NEWDD    DD DSN=SYSH.XINFO.V3R0.DATA.DB2C.REPORT,                                                                 
   //            DISP=SHR                                                                                              
   //OLDDD    DD DSN=SYSH.XINFO.V3R0.DATA.DB2PL12.REPORT,                                                              
   //            DISP=SHR                                                                                              
   //OUTDD    DD DSN=SYSH.XINFO.V3R0.DATA.DB2COMP2.REPORT,                                                             
   //            DISP=(,CATLG),                                                                                        
   //            SPACE=(TRK,(10,10),RLSE),                                                                             
   //            DCB=(DSORG=PS,RECFM=FB)                                                                               
   //SUPERC3 EXEC PGM=ISRSUPC,                                                                                         
   //            PARM=(DELTAL,LINECMP,                                                                                 
   //            '',                                                                                                   
   //            '')                                                                                                   
   //SYSIN  DD *                                                                                                       
   CMPCOLM 2:133                                                                                                       
   //NEWDD    DD DSN=SYSH.XINFO.V3R0.DATA.DB2C.REPORT,                                                                 
   //            DISP=SHR                                                                                              
   //OLDDD    DD DSN=SYSH.XINFO.V3R0.DATA.DB2COB2.REPORT,                                                              
   //            DISP=SHR                                                                                              
   //OUTDD    DD DSN=SYSH.XINFO.V3R0.DATA.DB2COMP3.REPORT,                                                             
   //            DISP=(,CATLG),                                                                                        
   //            SPACE=(TRK,(10,10),RLSE),                                                                             
   //            DCB=(DSORG=PS,RECFM=FB)                                                                               

JCL WITH PROCEDURES DB2COMP

   //DB2COMP  JOB ,'HORIZONT',MSGCLASS=T,                                                                              
   //             NOTIFY=&SYSUID                                                                                       
   //LIBS JCLLIB ORDER=(SYSH.XINFO.V3R0.PROCLIB)                                                                       
   //*                                                                                                                 
   //* COMPARE RESULTS OF DB2 TELEPHONE APPLICATIONS                                                                   
   //*                                                                                                                 
   //*                                                                                                                 
   //D        EXEC  PGM=IDCAMS,PARM='MARGINS(1 64)',COND=(4,LT)                                                        
   //SYSPRINT DD  SYSOUT=*                                                                                             
   //SYSIN    DD *                                                                                                     
    DEL SYSH.XINFO.V3R0.DATA.DB2COMP.REPORT                                                                            
    DEL SYSH.XINFO.V3R0.DATA.DB2COMP2.REPORT                                                                           
    DEL SYSH.XINFO.V3R0.DATA.DB2COMP3.REPORT                                                                           
    SET MAXCC = 0                                                                                                      
   //SUPERC  EXEC PGM=ISRSUPC,                                                                                         
   //             PARM=(DELTAL,LINECMP,'','')                                                                          
   //SYSIN  DD *                                                                                                       
   CMPCOLM 2:133                                                                                                       
   //NEWDD    DD DSN=SYSH.XINFO.V3R0.DATA.DB2COB2.REPORT,                                                              
   //             DISP=SHR                                                                                             
   //OLDDD    DD DSN=SYSH.XINFO.V3R0.DATA.DB2PL12.REPORT,                                                              
   //             DISP=SHR                                                                                             
   //OUTDD    DD DSN=SYSH.XINFO.V3R0.DATA.DB2COMP.REPORT,                                                              
   //             DISP=(,CATLG),                                                                                       
   //             SPACE=(TRK,(10,10),RLSE),                                                                            
   //             DCB=(DSORG=PS,RECFM=FB)                                                                              
   //SUPERC2 EXEC PGM=ISRSUPC,                                                                                         
   //             PARM=(DELTAL,LINECMP,'','')                                                                          
   //SYSIN  DD *                                                                                                       
   CMPCOLM 2:133                                                                                                       
   //NEWDD    DD DSN=SYSH.XINFO.V3R0.DATA.DB2C.REPORT,                                                                 
   //             DISP=SHR                                                                                             
   //OLDDD    DD DSN=SYSH.XINFO.V3R0.DATA.DB2PL12.REPORT,                                                              
   //             DISP=SHR                                                                                             
   //OUTDD    DD DSN=SYSH.XINFO.V3R0.DATA.DB2COMP2.REPORT,                                                             
   //             DISP=(,CATLG),                                                                                       
   //             SPACE=(TRK,(10,10),RLSE),                                                                            
   //             DCB=(DSORG=PS,RECFM=FB)                                                                              
   //SUPERC3 EXEC PGM=ISRSUPC,                                                                                         
   //             PARM=(DELTAL,LINECMP,'','')                                                                          
   //SYSIN  DD *                                                                                                       
   CMPCOLM 2:133                                                                                                       
   //NEWDD    DD DSN=SYSH.XINFO.V3R0.DATA.DB2C.REPORT,                                                                 
   //             DISP=SHR                                                                                             
   //OLDDD    DD DSN=SYSH.XINFO.V3R0.DATA.DB2COB2.REPORT,                                                              
   //             DISP=SHR                                                                                             
   //OUTDD    DD DSN=SYSH.XINFO.V3R0.DATA.DB2COMP3.REPORT,                                                             
   //             DISP=(,CATLG),                                                                                       
   //             SPACE=(TRK,(10,10),RLSE),                                                                            
   //             DCB=(DSORG=PS,RECFM=FB)                                                                              

JCL DATASET TABLE DB2PL11

PGM      Step     DD       Disp Dsn
IDCAMS   D        SYSPRINT
                  SYSIN
DSNTEP2  PH01PS02 SYSTSPRT
                  SYSPRINT NCC  SYSH.XINFO.V3R0.DATA.DB2PL11.REPORT
                  SYSUDUMP
                  SYSUDUMP
                  SYSDBOUT
                  SYSOUT
                  SYSTSIN
                  SYSIN

JCL LIBRARY MEMBER DB2PL11

   //DB2PL11  JOB ,'HORIZONT',MSGCLASS=T,                                                                              
   // NOTIFY=&SYSUID                                                                                                   
   //LIBS JCLLIB ORDER=(SYSH.XINFO.V3R0.PROCLIB)                                                                       
   //DELETE   EXEC XXRJUNC,COND=(4,LT)                                                                                 
   //SYSIN    DD *                                                                                                     
    DEL SYSH.XINFO.V3R0.DATA.DB2PL11.REPORT                                                                            
    SET MAXCC = 0                                                                                                      
   //*                                                                                                                 
   //PH01PS02 EXEC PGM=IKJEFT01,DYNAMNBR=20,COND=(4,LT)                                                                
   //SYSTSPRT DD  SYSOUT=*                                                                                             
   //SYSPRINT DD DSN=SYSH.XINFO.V3R0.DATA.DB2PL11.REPORT,                                                              
   //            DISP=(,CATLG),                                                                                        
   //            SPACE=(TRK,(10,10),RLSE),                                                                             
   //            DCB=(DSORG=PS,RECFM=FB,BLKSIZE=1330)                                                                  
   //SYSUDUMP DD  SYSOUT=*                                                                                             
   //SYSUDUMP DD  SYSOUT=*                                                                                             
   //SYSDBOUT DD  SYSOUT=*                                                                                             
   //SYSOUT   DD  SYSOUT=*                                                                                             
   //SYSTSIN  DD  *                                                                                                    
    DSN SYSTEM(DSN1)                                                                                                   
    RUN  PROGRAM(DSNTEP2) PLAN(DSNTEP2) -                                                                              
         LIB('DSN610.RUNLIB.LOAD') PARMS('/ALIGN(MID)')                                                                
    END                                                                                                                
   //*                                                                                                                 
   //SYSIN    DD *                                                                                                     
       SELECT EMPNO, FIRSTNME, MIDINIT, LASTNAME,                                                                      
         WORKDEPT, PHONENO, HIREDATE, JOB, EDLEVEL,                                                                    
         SEX, BIRTHDATE, SALARY, BONUS, COMM,                                                                          
         SALARY+BONUS+COMM AS TOTAL_SALARY                                                                             
        FROM DSN8510.EMP                                                                                               
        ORDER BY TOTAL_SALARY;                                                                                         
       SELECT * FROM DSN8510.DEPT;                                                                                     
       SELECT * FROM DSN8510.ACT;                                                                                      
       SELECT * FROM DSN8510.EMPPROJACT;                                                                               
       SELECT * FROM DSN8510.PROJ;                                                                                     
       SELECT * FROM DSN8510.PROJACT;                                                                                  
   //*                                                                                                                 

JCL WITH PROCEDURES DB2PL11

   //DB2PL11  JOB ,'HORIZONT',MSGCLASS=T,                                                                              
   //             NOTIFY=&SYSUID                                                                                       
   //LIBS JCLLIB ORDER=(SYSH.XINFO.V3R0.PROCLIB)                                                                       
   //D        EXEC  PGM=IDCAMS,PARM='MARGINS(1 64)',COND=(4,LT)                                                        
   //SYSPRINT DD  SYSOUT=*                                                                                             
   //SYSIN    DD *                                                                                                     
    DEL SYSH.XINFO.V3R0.DATA.DB2PL11.REPORT                                                                            
    SET MAXCC = 0                                                                                                      
   //PH01PS02 EXEC PGM=IKJEFT01,DYNAMNBR=20,COND=(4,LT)                                                                
   //SYSTSPRT DD  SYSOUT=*                                                                                             
   //SYSPRINT DD DSN=SYSH.XINFO.V3R0.DATA.DB2PL11.REPORT,                                                              
   //             DISP=(,CATLG),                                                                                       
   //             SPACE=(TRK,(10,10),RLSE),                                                                            
   //             DCB=(DSORG=PS,RECFM=FB,BLKSIZE=1330)                                                                 
   //SYSUDUMP DD  SYSOUT=*                                                                                             
   //SYSUDUMP DD  SYSOUT=*                                                                                             
   //SYSDBOUT DD  SYSOUT=*                                                                                             
   //SYSOUT   DD  SYSOUT=*                                                                                             
   //SYSTSIN  DD  *                                                                                                    
    DSN SYSTEM(DSN1)                                                                                                   
    RUN  PROGRAM(DSNTEP2) PLAN(DSNTEP2) -                                                                              
         LIB('DSN610.RUNLIB.LOAD') PARMS('/ALIGN(MID)')                                                                
    END                                                                                                                
   //*                                                                                                                 
   //SYSIN    DD *                                                                                                     
       SELECT EMPNO, FIRSTNME, MIDINIT, LASTNAME,                                                                      
         WORKDEPT, PHONENO, HIREDATE, JOB, EDLEVEL,                                                                    
         SEX, BIRTHDATE, SALARY, BONUS, COMM,                                                                          
         SALARY+BONUS+COMM AS TOTAL_SALARY                                                                             
        FROM DSN8510.EMP                                                                                               
        ORDER BY TOTAL_SALARY;                                                                                         
       SELECT * FROM DSN8510.DEPT;                                                                                     
       SELECT * FROM DSN8510.ACT;                                                                                      
       SELECT * FROM DSN8510.EMPPROJACT;                                                                               
       SELECT * FROM DSN8510.PROJ;                                                                                     
       SELECT * FROM DSN8510.PROJACT;                                                                                  
   //*                                                                                                                 

OPERATOR INSTRUCTIONS

  OI not found                                                                                                         

Index