COBOL: Usual PROC's used by me.

IGYWCL: Compile/Link-Edit



//IGYWCL PROC  LIBPRFX='CEE',MEMBER=,                                  
//             COPYLIB1=SYS1.ADMIN.COPYLIB,                            
//             COPYLIB2=SYS1.ADMIN.COPYLIB,                            
//             COPYLIB3=SYS1.ADMIN.COPYLIB,                          
//             COPYLIB4=SYS1.ADMIN.COPYLIB,                        
//             SRCELIB=,LOADLIB=                                      
//*                                                                    
//********************************************************************
//*                                                                  *
//* IBM COBOL FOR OS/390 & VM                                        *
//*              VERSION 2 RELEASE 1 MODIFICATION 0                  *
//*                                                                  *
//* LICENSED MATERIALS - PROPERTY OF IBM                             *
//*                                                                  *
//* 5648-A25 (C) COPYRIGHT IBM CORP. 1991, 1997                      *
//* ALL RIGHTS RESERVED                                              *
//*                                                                  *
//* US GOVERNMENT USERS RESTRICTED RIGHTS - USE, DUPLICATION OR      *
//* DISCLOSURE RESTRICTED BY GSA ADP SCHEDULE CONTRACT WITH IBM      *
//* CORP.                                                            *
//*                                                                  *
//********************************************************************
//*                                                                    
//*  COMPILE AND LINK EDIT A COBOL PROGRAM                            
//*                                                                    
//*  PARAMETER  DEFAULT VALUE    USAGE                                
//*   LIBPRFX   CEE              PREFIX FOR LIBRARY DATA SET NAMES    
//*   SRCELIB                    DATA SET NAME FOR SOURCE MODULE      
//*   LOADLIB                    DATA SET NAME FOR LOAD MODULE        
//*   MEMBER                     MEMBER NAME FOR LOAD MODULE          
//*   COPYLIB1                   DATA SET NAME FOR COPYBOOK #1        
//*   COPYLIB2                   DATA SET NAME FOR COPYBOOK #2        
//*   COPYLIB3                   DATA SET NAME FOR COPYBOOK #3        
//*   COPYLIB4                   DATA SET NAME FOR COPYBOOK #4        
//*                                                                    
//*  CALLER MUST SUPPLY SRCELIB, LOADLIB AND MEMBER VALUES.          
//*                                                                    
//COBOL  EXEC PGM=IGYCRCTL,REGION=2048K,PARM='LIB'                    
//SYSLIB   DD  DSNAME=&COPYLIB4,                                      
//             DISP=SHR                                                
//         DD  DSNAME=&COPYLIB3,                                      
//             DISP=SHR                                                
//         DD  DSNAME=&COPYLIB2,                                      
//             DISP=SHR                                                
//         DD  DSNAME=&COPYLIB1,                                      
//             DISP=SHR                                                
//SYSPRINT DD  SYSOUT=*                                                
//SYSLIN   DD  DSNAME=&&LOADSET,UNIT=SYSDA,                            
//             DISP=(MOD,PASS),SPACE=(TRK,(3,3))                      
//SYSUT1   DD  UNIT=SYSDA,SPACE=(TRK,(5,5))                            
//*SYSUT2   DD  UNIT=SYSDA,SPACE=(CYL,(1,1))                          
//SYSUT2   DD  UNIT=SYSDA,SPACE=(TRK,(5,5))                            
//SYSUT3   DD  UNIT=SYSDA,SPACE=(TRK,(5,5))                            
//SYSUT4   DD  UNIT=SYSDA,SPACE=(TRK,(5,5))                            
//SYSUT5   DD  UNIT=SYSDA,SPACE=(TRK,(5,5))                            
//SYSUT6   DD  UNIT=SYSDA,SPACE=(TRK,(5,5))                            
//SYSUT7   DD  UNIT=SYSDA,SPACE=(TRK,(5,5))                            
//SYSIN    DD  DSNAME=&SRCELIB(&MEMBER),                              
//             DISP=SHR                                                
//LKED   EXEC PGM=HEWL,COND=(8,LT,COBOL),REGION=1024K                  
//SYSLIB   DD  DSNAME=&LIBPRFX..SCEELKED,                              
//             DISP=SHR                                                
//SYSPRINT DD  SYSOUT=*                                                
//SYSLIN   DD  DSNAME=&&LOADSET,DISP=(OLD,DELETE)                      
//         DD  DDNAME=SYSIN                                            
//SYSLMOD  DD  DSNAME=&LOADLIB(&MEMBER),                              
//             DISP=SHR                                                
//SYSUT1   DD  UNIT=SYSDA,SPACE=(TRK,(10,10))                          
//SYSIN    DD  DUMMY                                                  

DSNH7COB: Precompile/Compile/Link-Edit

//**********************************************************************

//*       DSNHCOB - COMPILE AND LINKEDIT A BATCH DB2 COBOL PROGRAM

//*

//DSNHCOB PROC WSPC=100,MEMBER=,SRCELIB=,LOADLIB=,DBRMLIB=,

//             INCLLIB=SYS1.ADMIN.COPYLIB,

//             COPYLIB1=SYS1.ADMIN.COPYLIB,

//             COPYLIB2=SYS1.ADMIN.COPYLIB,

//             COPYLIB3=SYS1.ADMIN.COPYLIB,

//             COPYLIB4=SYS1.ADMIN.COPYLIB

//*

//*            PRECOMPILE THE COBOL PROGRAM

//**********************************************************************

//PC      EXEC PGM=DSNHPC,PARM='HOST(IBMCOB)',REGION=4096K

//STEPLIB  DD  DISP=SHR,DSN=SYS1.DSN810.SDSNEXIT

//         DD  DISP=SHR,DSN=DSN810.SDSNLOAD

//DBRMLIB DD DSN=&DBRMLIB(&MEMBER),

//         DISP=SHR

//SYSCIN   DD  DSN=&&DSNHOUT,DISP=(MOD,PASS),

//             SPACE=(100,(&WSPC,&WSPC))

//SYSLIB DD DSN=&INCLLIB,

//        DISP=SHR

//SYSPRINT DD  SYSOUT=*

//SYSTERM  DD  SYSOUT=*

//SYSUDUMP DD  SYSOUT=*

//SYSUT1   DD  SPACE=(100,(&WSPC,&WSPC),,,ROUND)

//SYSUT2   DD  SPACE=(100,(&WSPC,&WSPC),,,ROUND)

//SYSIN   DD DSN=&SRCELIB(&MEMBER),

//        DISP=SHR

//*

//*            COMPILE THE COBOL PROGRAM IF THE PRECOMPILE

//*            RETURN CODE IS 4 OR LESS

//*

//COB     EXEC PGM=IGYCRCTL,

//       PARM='NODYNAM,QUOTE,LIB,LIST,RENT,RES,TRUNC(BIN),TEST(SYM)',

//             COND=(4,LT,PC)

//STEPLIB DD DSN=IGY.SIGYCOMP,DISP=SHR

//SYSIN    DD  DSN=&&DSNHOUT,DISP=(OLD,DELETE)

//SYSLIB   DD  DSNAME=&COPYLIB4,

//             DISP=SHR

//         DD  DSNAME=&COPYLIB3,

//             DISP=SHR

//         DD  DSNAME=&COPYLIB2,

//             DISP=SHR

//         DD  DSNAME=&COPYLIB1,

//             DISP=SHR

//         DD  DSN=CICSTS31.CICS.SDFHCOB,

//             DISP=SHR

//SYSLIN   DD  DSN=&&LOADSET,DISP=(MOD,PASS),

//             SPACE=(100,(&WSPC,&WSPC))

//SYSPRINT DD  SYSOUT=*

//SYSUDUMP DD  SYSOUT=*

//SYSUT1   DD  SPACE=(100,(&WSPC,&WSPC),,,ROUND)

//SYSUT2   DD  SPACE=(100,(&WSPC,&WSPC),,,ROUND)

//SYSUT3   DD  SPACE=(100,(&WSPC,&WSPC),,,ROUND)

//SYSUT4   DD  SPACE=(100,(&WSPC,&WSPC),,,ROUND)

//SYSUT5   DD  SPACE=(100,(&WSPC,&WSPC),,,ROUND)

//SYSUT6   DD  SPACE=(100,(&WSPC,&WSPC),,,ROUND)

//SYSUT7   DD  SPACE=(100,(&WSPC,&WSPC),,,ROUND)

//*

//*            LINKEDIT IF THE PRECOMPILE AND COMPILE

//*            RETURN CODES ARE 4 OR LESS

//*

//LKED    EXEC PGM=IEWL,PARM='XREF',

//             COND=((4,LT,COB),(4,LT,PC))

//SYSLIB   DD  DSN=CEE.SCEELKED,DISP=SHR

//         DD  DISP=SHR,DSN=DSN810.SDSNLOAD

//         DD  DISP=SHR,DSN=CICSTS31.CICS.SDFHLOAD

//SYSLIN   DD  DSN=&&LOADSET,DISP=(OLD,DELETE)

//         DD  DDNAME=SYSIN

//SYSLMOD DD DSN=&LOADLIB(&MEMBER),

//        DISP=SHR

//SYSPRINT DD  SYSOUT=*

//SYSUDUMP DD  SYSOUT=*

//SYSUT1   DD  SPACE=(1024,(50,50))

//SYSIN    DD  DUMMY