//CPICSAMP JOB (,),xxxxx,NOTIFY=,TIME=(,59)                                     
/*JOBPARM FETCH                                                                 
//******************************************************************            
//*                                                                             
//* TITLE: CPI-C  NO-AUTOCALLING -- USING ATBPBI                                
//*                                                                             
//* SAMPLE JCL TO COMPILE AND LINK THE IBM SUPPLIED CPI-C SAMPLES               
//* USING SAS/C AND THE IBM ATBPBI MODULE                                       
//*                                                                             
//* CHANGE ALL OCCURANCES OF USER TO YOUR PREFIX.                               
//* CHANGE ALL OCCURANCES OF sasc TO THE SAS/C PREFIX AT YOUR SITE.             
//******************************************************************            
//*                                                                             
//* USE H ASM TO ASSEMBLE THE SHOW ROUTINE (ATBASSHW)                           
//*                                                                             
//ASMHC EXEC ASMHC,                                                             
//        PARM.ASM='NODECK,OBJECT,XREF,ALIGN'                                   
//ASM.SYSLIN DD DSN=USER.OBJ(ATBASSHW),DISP=SHR                                 
//ASM.SYSIN  DD DSN=SYS1.SAMPLIB(ATBASSHW),DISP=SHR                             
//*------------------------------------------------------------------           
//*  BUILD THE ATBCECAO TP                                                      
//*------------------------------------------------------------------           
//*                                                                             
//* USE SASC TO COMPILE THE ATBCECAO ROUTINE                                    
//*                                                                             
//COMP1 EXEC LC370C,                                                            
//        PARM.C='EXTNAME RENT DEBUG SNAME(CECAO)'                              
//C.SYSLIN   DD DSN=USER.OBJ(ATBCECAO),DISP=SHR                                 
//C.SYSDBLIB DD DSN=USER.DBGLIB,DISP=SHR                                        
//C.H        DD DSN=SYS1.SAMPLIB,DISP=SHR                                       
//*C.SYSIN    DD DSN=SYS1.SAMPLIB(ATBCECAO),DISP=SHR  FIX BUGS                  
//C.SYSIN    DD DSN=USER.C(ATBCECAO),DISP=SHR                                   
//*                                                                             
//* USE SASC CLINK TO PRE-LINK THE ATBCECAO TP                                  
//*                                                                             
//CLINK EXEC PGM=CLINK,REGION=2048K                                             
//STEPLIB      DD DISP=SHR,DSN=sasc.LOAD                                        
//             DD DISP=SHR,DSN=sasc.LINKLIB                                     
//SYSPRINT     DD SYSOUT=*                                                      
//SYSTERM      DD SYSOUT=*                                                      
//SYSLIB       DD DISP=SHR,DSN=sasc.STDOBJ                                      
//             DD DISP=SHR,DSN=sasc.BASEOBJ                                     
//SYSLIN       DD DISP=SHR,DSN=USER.OBJ(ATBCECBO)                               
//OBJ          DD DISP=SHR,DSN=USER.OBJ                                         
//SYSIN        DD *                                                             
 INCLUDE OBJ(ATBCECAO)                                                          
 INCLUDE OBJ(ATBASSHW)                                                          
/*                                                                              
//*                                                                             
//* USE LKED TO LINK THE ATBCECAO TP                                            
//*                                                                             
//LINK  EXEC PGM=IEWL,PARM='LIST,MAP,XREF,LET'                                  
//SYSUT1       DD UNIT=SYSDA,SPACE=(CYL,(1,1))                                  
//SYSUT2       DD UNIT=SYSDA,SPACE=(CYL,(1,1))                                  
//SYSPRINT     DD SYSOUT=*                                                      
//SYSLIB       DD DISP=SHR,DSN=sasc.BASELIB                                     
//SYSLMOD      DD DISP=SHR,DSN=USER.LOAD                                        
//CPICLIB      DD DISP=SHR,DSN=SYS1.CSSLIB                                      
//SYSLIN       DD DISP=SHR,DSN=USER.OBJ(ATBCECBO)                               
//             DD *                                                             
 INCLUDE CPICLIB(ATBPBI)                                                        
 ENTRY MAIN                                                                     
 NAME ATBCECAO(R)                                                               
/*                                                                              
//*------------------------------------------------------------------           
//*  BUILD THE ATBCECAI TP                                                      
//*------------------------------------------------------------------           
//*                                                                             
//* USE SASC TO COMPILE THE ATBCECAI ROUTINE                                    
//*                                                                             
//COMP1 EXEC LC370C,                                                            
//        PARM.C='EXTNAME RENT DEBUG SNAME(CECAI)'                              
//C.SYSLIN   DD DSN=USER.OBJ(ATBCECAI),DISP=SHR                                 
//C.SYSDBLIB DD DSN=USER.DBGLIB,DISP=SHR                                        
//C.H        DD DSN=SYS1.SAMPLIB,DISP=SHR                                       
//*C.SYSIN    DD DSN=SYS1.SAMPLIB(ATBCECAI),DISP=SHR  FIX BUGS                  
//C.SYSIN    DD DSN=USER.C(ATBCECAI),DISP=SHR                                   
//*                                                                             
//* USE SASC CLINK TO PRE-LINK THE ATBCECAI TP                                  
//*                                                                             
//CLINK EXEC PGM=CLINK,REGION=2048K                                             
//STEPLIB      DD DISP=SHR,DSN=sasc.LOAD                                        
//             DD DISP=SHR,DSN=sasc.LINKLIB                                     
//SYSPRINT     DD SYSOUT=*                                                      
//SYSTERM      DD SYSOUT=*                                                      
//SYSLIB       DD DISP=SHR,DSN=sasc.STDOBJ                                      
//             DD DISP=SHR,DSN=sasc.BASEOBJ                                     
//SYSLIN       DD DISP=SHR,DSN=USER.OBJ(ATBCECBI)                               
//OBJ          DD DISP=SHR,DSN=USER.OBJ                                         
//SYSIN        DD *                                                             
 INCLUDE OBJ(ATBCECAI)                                                          
 INCLUDE OBJ(ATBASSHW)                                                          
/*                                                                              
//*                                                                             
//* USE LKED TO LINK THE ATBCECAO TP                                            
//*                                                                             
//LINK  EXEC PGM=IEWL,PARM='LIST,MAP,XREF,LET'                                  
//SYSUT1       DD UNIT=SYSDA,SPACE=(CYL,(1,1))                                  
//SYSUT2       DD UNIT=SYSDA,SPACE=(CYL,(1,1))                                  
//SYSPRINT     DD SYSOUT=*                                                      
//SYSLIB       DD DISP=SHR,DSN=sasc.BASELIB                                     
//SYSLMOD      DD DISP=SHR,DSN=USER.LOAD                                        
//CPICLIB      DD DISP=SHR,DSN=SYS1.CSSLIB                                      
//SYSLIN       DD DISP=SHR,DSN=USER.OBJ(ATBCECBI)                               
//             DD *                                                             
 INCLUDE CPICLIB(ATBPBI)                                                        
 ENTRY MAIN                                                                     
 NAME ATBCECAI(R)                                                               
/*